Ricpperso
Messages postés236Date d'inscriptionjeudi 24 janvier 2002StatutMembreDernière intervention26 octobre 2004
-
3 févr. 2002 à 16:07
cs_chiffre
Messages postés40Date d'inscriptionvendredi 7 mars 2003StatutMembreDernière intervention 9 février 2013
-
21 nov. 2010 à 18:35
Quel est le code sub complet pour annulez et répéter une action dans un richedit (commande du menu edition : annuler & répéter), qui est dans une activefrome. Merci
cs_chiffre
Messages postés40Date d'inscriptionvendredi 7 mars 2003StatutMembreDernière intervention 9 février 2013 21 nov. 2010 à 18:35
Bonjour..
J'ai trouver et coder, pour faire fonctionner avec vb.net 2005 fr
CreerUnRepertoire,NouveauRichtextBox,OuvrirFichier, Copier,coller,Supprimer,EnregistrerSous,Couper,Copier,Coller,Police pour le texte et annuler.......
Mais ce code pour
1...Enregistrer simplement dans le ficher créer on
modifie...
2...Le bouton Rétablir qu'il me manque,je crois ca fait 3 jours environ que j,essai et travaille pour le réussir,mais je n'ai pas réussi
S.v.p.
J'aurais besoin d'aide si c'est possible pour le bouton Enregistrer et Rétablir dans un richTextBox
Je travaille avec visual studio 2005 j'essai d'apprendre a coder..
'----------"--------"
Voici quelque code...
'Créer un répertoireIf
If Directory.Exists Directory.Exists("C:\JeanMarc") = False Then
Directory.CreateDirectory("C:\JeanMarc ")
MsgBox("Ce répertoire nommé « JeanMarc » a été créé" & vbCrLf & "" & vbCrLf & "Vous pouvez le renommer ce répertoire, il se trouve sur votre disque C\: ")
ElseIf True Then
MsgBox("Il existe déjà ce répertoire nommé « JeanMarcSim Notes »" & vbCrLf & "" & vbCrLf & "Vous pouvez le renommeré ce répertoire, il se trouve sur votre disque C\:", (MsgBoxStyle.OkOnly), " Attention ! Ceci est une information de JeanMarc...")
Else
MsgBox("Vous pouvez le renommer ce répertoire, il se trouve sur votre disque C\: ", (MsgBoxStyle.OkOnly), " Attention ! Ceci est une information de JeanMarc ...")
End If
'----------"--------"
'btnEnregistrer_Sous
If (True) Then
If sfd1.ShowDialog() = DialogResult.OK And sfd1.FileName.Length > 0 Then
If System.IO.Path.GetExtension(sfd1.FileName).ToLower().Equals(".rtf") Then
RichTextBoxNotesJms.SaveFile(sfd1.FileName)
Else
RichTextBoxNotesJms.SaveFile(sfd1.FileName, RichTextBoxStreamType.PlainText)
End If
End If
End If
Merci,
Pour votre aide que je vais recevoir !
Au plaisir de vous relire
pour aide de ces 2 btn
[b]1...Enregistrer
2...Le bouton RétablirSi vous aves besoin de mes autres code que j,ai réussi