TRAITEMENT DE TEXTE DE BASE

Option Explicit
Dim strrechercher As String

Private Sub mnuArrierePlan_Click()
    CommonDialog1.ShowColor
    txtedition.BackColor = CommonDialog1.Color
End Sub

Private Sub mnucaractere_Click()
    CommonDialog1.ShowColor
    txtedition.ForeColor = CommonDialog1.Color
End Sub

Private Sub mnuchoix_Click()
    CommonDialog1.Flags = cdlCFScreenFonts
    CommonDialog1.FontName = txtedition.FontName
    CommonDialog1.FontBold = txtedition.FontBold
    CommonDialog1.FontItalic = txtedition.FontItalic
    CommonDialog1.FontSize = txtedition.FontSize
    
    CommonDialog1.ShowFont
    
    txtedition.FontName = CommonDialog1.FontName
    txtedition.FontBold = CommonDialog1.FontBold
    txtedition.FontItalic = CommonDialog1.FontItalic
    txtedition.FontSize = CommonDialog1.FontSize
End Sub

Private Sub mnucoller_Click()
    txtedition.SelText = Clipboard.GetText()
End Sub

Private Sub mnucopier_Click()
    Clipboard.Clear
    Clipboard.SetText txtedition.SelText
End Sub

Private Sub mnucouper_Click()
    Clipboard.Clear
    Clipboard.SetText txtedition.SelText
    txtedition.SelText = ""
End Sub

Private Sub mnuedition_Click()
    '** aucun texte sélectionné
    If txtedition.SelText = "" Then
        mnucouper.Enabled = False
        mnucopier.Enabled = False
    Else
        mnucouper.Enabled = True
        mnucopier.Enabled = True
    End If
    
    ' si aucun texte dans le presse-papier
    If Clipboard.GetText = "" Then
        mnucoller.Enabled = False
    Else
        mnucoller.Enabled = True
    End If
    
End Sub

Private Sub mnunouveau_Click()
    Call mnusauve_sous_Click
End Sub

Private Sub mnuouvrir_Click()
    Dim line As String
    CommonDialog1.Filter = "Fichier texte(*.txt) | *.txt | Tout les fichiers (*.*) | *.*"
    CommonDialog1.FileName = ""
    
    CommonDialog1.ShowOpen
    
    Open CommonDialog1.FileName For Input As #1
    Do Until EOF(1)
        Input #1, line
        txtedition.Text = txtedition.Text & line & Chr(13) & Chr(10)
    Loop
    Close #1
    
End Sub

Private Sub mnuquitter_Click()
    End
End Sub

Private Sub mnusauve_Click()
    Call mnusauve_sous_Click
End Sub

Private Sub mnusauve_sous_Click()
    CommonDialog1.Filter = "Fichier texte(*.txt) | *.txt | Tout les fichiers (*.*) | *.*"
    CommonDialog1.FileName = ""
    CommonDialog1.ShowSave
    If CommonDialog1.FileName = "" Then
        Exit Sub
    End If
    
    Open CommonDialog1.FileName For Output As #1
    Print #1, txtedition.Text
    Close #1
    
End Sub

Private Sub mnusearch_Click()
    Dim intValRenvoi As Integer
    Dim intPositionTrouver As Integer
    '
    '   **Demande le texte recherché
    '
    strrechercher = InputBox("Rechercher: ", "RECHERCHER")
    '
    '   Rechercher le texte
    '
    intPositionTrouver = InStr(1, txtedition.Text, strrechercher, 1)
    If intPositionTrouver = 0 Then
        MsgBox "Recherche Infructueuse"
    Else
        '
        'Texte Retrouvé
        'Mettre le texte en surbrillance
        '
        txtedition.SelStart = intPositionTrouver - 1
        txtedition.SelLength = Len(strrechercher)
    End If
End Sub

Private Sub mnusuivant_Click()
    Dim intPositionDebut As Integer
    Dim intPositionTrouver As Integer
    
    intPositionDebut = txtedition.SelStart + 2
    intPositionTrouver = InStr(intPositionDebut, txtedition.Text, strrechercher, 1)
    If intPositionTrouver = 0 Then
        MsgBox "La Recherche est Terminée"
    Else
       '
        'Texte Retrouvé
        'Mettre le texte en surbrillance
        '
        txtedition.SelStart = intPositionTrouver - 1
        txtedition.SelLength = Len(strrechercher)
    End If
End Sub