Tous pour le PC
 
AccueilCalendrierFAQRechercherMembresGroupesS'enregistrerConnexion

Partagez | 
 

 [tuto] Bloc- note en vb

Aller en bas 
AuteurMessage
mad
Admin
Admin
avatar

Messages : 37
Date d'inscription : 29/05/2011
Age : 28

MessageSujet: [tuto] Bloc- note en vb   Jeu 23 Juin - 16:55


Comment créer un bloc note en VB.Net


1) Ajouter une RichTextBox et l'intégrer au contenu parent ( si cela n'est pas fait automatiquement )
2) Ajouter un MenuStrip
3) Le premier menu aura pour titre "Fichier", le deuxième "Edition" et pour finir le troisième se nommera "Format", comme ceci :


4) ]Occupons nous maintenant du menu "Fichier"
- Ajoutez l'item "Nouveau"
- Ajoutez l'item "Ouvrir"
- Ajoutez l'item "Enregistrer"
- Ajoutez l'item "Quitter"

5) Occupons nous maintenant du menu "Edition"
- Ajoutez l'item "Annuler"
- Ajoutez l'item "Suivant"
- Ajoutez un séparateur
- Ajoutez l'item "Couper"
- Ajoutez l'item "Copier"
- Ajoutez l'item "Coller"
- Ajoutez un séparateur
- Ajoutez l'item "Supprimer tout"
- Ajoutez l'item "Sélectionner tout"

6) et enfin le menu "Format"
- Ajoutez l'item "Police"
- Ajoutez l'item "Couleur"

7) Attaquons maintenant le code


Pour l'item "Nouveau"


Code:
RichTextBox1.Clear()

Pour l'item "Ouvrir"


Code:
Try
            Dim dlg As OpenFileDialog = New OpenFileDialog
            dlg.Title = "Ouvrir"
            dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.LoadFile(dlg.FileName)
            End If
        Catch ex As Exception : End Try[

Pour l'item "Enregistrer"
Code:

Code:
 Try
            Dim dlg As SaveFileDialog = New SaveFileDialog
            dlg.Title = "Enregistrer"
            dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
            End If
        Catch ex As Exception : End Try

Pour l'item "Quitter"
Code:

Code:
 Me.Close()

Pour l'item "Annuler"
Code:

Code:
RichTextBox1.Undo()

Pour l'item "Suivant"
Code:

Code:
 RichTextBox1.Redo()
Pour l'item "Couper"
Code:

Code:
 RichTextBox1.Cut()

Pour l'item "Copier"
Code:


Code:
 RichTextBox1.Copy()

Pour l'item "Coller"
Code:

Code:
 RichTextBox1.Paste()

Pour l'item "Supprimer tout"
Code:

Code:
 RichTextBox1.Clear()

Pour l'item "Sélectionner tout"
Code:

Code:
 RichTextBox1.SelectAll()

Pour l'item "Police"
Code:

Code:
    Try
            Dim dlg As FontDialog = New FontDialog
            dlg.Font = RichTextBox1.Font
            If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.Font = dlg.Font
            End If
        Catch ex As Exception : End Try

Pour l'item "Couleur"
Code:

Code:
Try
            Dim dlg As ColorDialog = New ColorDialog
            dlg.Color = RichTextBox1.ForeColor
            If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.ForeColor = dlg.Color
            End If
        Catch ex As Exception : End Try


Merci de ne pas recopier ce tuto sans mon autorisation


Cordialement,
mad
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://pcstuce.jeunforum.com
 
[tuto] Bloc- note en vb
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» mémento pour fête père ou mère...
» PCCFA (Papier, Caryon, Couteau, Ficelle, Allumette)
» Comment se regonfler le moral à bloc en 4 minutes chrono!
» EST GE CASA ...c'est quoi la note seuil des ex années????
» 1ere note du cned

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
PCstuce :: Programmation :: Visual Basic et .NET Framework-
Sauter vers: