Traitement de texte de base

Soyez le premier à donner votre avis sur cette source.

Vue 4 130 fois - Téléchargée 372 fois

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?

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

DolfinCry
Messages postés
25
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
7 octobre 2002
-
Pour ma part, je trouve pas que c'est vraiment bien commenter, je vais essayer de le modifier mais pour la faute d'ortographe, et bien elle, je l'ai réparée. En passant, je suis pas très bon en francais, je le sais mais je fais des efforts.
cs_Crazyht
Messages postés
1523
Date d'inscription
mardi 18 décembre 2001
Statut
Modérateur
Dernière intervention
21 août 2010
4 -
Si c'est réellement ton premier code VB alors je te felicite, Il est clair, commenté et en plus ça fonctionne correctement.

Toute mes félicitions.

A++
Hervé
FScorpion
Messages postés
16
Date d'inscription
lundi 7 janvier 2002
Statut
Membre
Dernière intervention
18 janvier 2002
-
Bien comme code.

Bon travail
cs_config
Messages postés
54
Date d'inscription
lundi 3 décembre 2001
Statut
Membre
Dernière intervention
17 septembre 2002
-
"La Recherche est Terminer"... tu devrais ajouter un correcteur d'orthographe hahahaha (désolé)
je suppose ke c une erreur paske t'as tapé trop vite mais bon c'est "Terminée".
remarke vo mieux ça k'un code pourri comme ceux ke je pourrais mettre...

@+

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.