Common dialogue et sauvegarde
cs_ayperos
Messages postés
22
Date d'inscription
dimanche 2 septembre 2001
Statut
Membre
Dernière intervention
8 mars 2005
-
14 mai 2002 à 10:39
cs_ayperos Messages postés 22 Date d'inscription dimanche 2 septembre 2001 Statut Membre Dernière intervention 8 mars 2005 - 14 mai 2002 à 11:04
cs_ayperos Messages postés 22 Date d'inscription dimanche 2 septembre 2001 Statut Membre Dernière intervention 8 mars 2005 - 14 mai 2002 à 11:04
A voir également:
- Common dialogue et sauvegarde
- Le jeu de sauvegarde contient la sauvegarde d'une base de données qui n'est pas la base de données - Forum SQL
- Fermer boite de dialogue excel - Forum Visual Basic 6
- Fermer une boite de dialog ✓ - Forum Visual Basic
- Fermer une form avec boite de dialogue ✓ - Forum VB.NET
- Fermer une boite de dialogue - Forum Visual Basic
2 réponses
fredlynx
Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010
3
14 mai 2002 à 10:47
14 mai 2002 à 10:47
Voici un exemple
Private Sub Sauve()
Dim sFile As String
On Error GoTo ErreurSauve
With CommonDialog1
.Filter = "Fichier RTF (*.rtf)|*.rtf;"
.filename = ""
.ShowSave
If Len(.filename) = 0 Then
On Error GoTo 0
Exit Sub
End If
sFile = .filename
TexteMsg = vbYes
Screen.MousePointer = vbHourglass
RichTextBox1.SaveFile sFile
End With
Screen.MousePointer = vbDefault
Exit Sub
ErreurSauve:
Screen.MousePointer = vbDefault
msgbox "Erreur lors de la sauvegarde."
End Sub
<center>http://www.lynx-asp.fr.st
WebMaster</center>
Private Sub Sauve()
Dim sFile As String
On Error GoTo ErreurSauve
With CommonDialog1
.Filter = "Fichier RTF (*.rtf)|*.rtf;"
.filename = ""
.ShowSave
If Len(.filename) = 0 Then
On Error GoTo 0
Exit Sub
End If
sFile = .filename
TexteMsg = vbYes
Screen.MousePointer = vbHourglass
RichTextBox1.SaveFile sFile
End With
Screen.MousePointer = vbDefault
Exit Sub
ErreurSauve:
Screen.MousePointer = vbDefault
msgbox "Erreur lors de la sauvegarde."
End Sub
<center>http://www.lynx-asp.fr.st
WebMaster</center>
cs_ayperos
Messages postés
22
Date d'inscription
dimanche 2 septembre 2001
Statut
Membre
Dernière intervention
8 mars 2005
14 mai 2002 à 11:04
14 mai 2002 à 11:04
c super cool...
je te remerci
je te remerci
