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?
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.