[tuto] Bloc- note en vb

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