Traitement de texte de base

Télécharger le projet
Commenter

Description

C'est pas compliquer, Y sert a ecrire mais aussi de changer le background, la couleur du texte, de faire des recherche, etc...

Source / Exemple : 


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

Conclusion :


C'est mon premier, soyer indulgent.... Faut bien commencer en quelque part hein?
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (DolfinCry)