1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
SaveFileDialog.Filter = "Fichiers texte (*.jpg)|*.jpg|Tous les fichiers (*.*)|*.*"
If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = SaveFileDialog.FileName
SaveFileDialog1.FileName = Me.Text ' Mais quelque chose me dit que cette instruction n'est pas le juste pour enregistrer le contenu actuel du formulaire dans un fichier.
End If
End Sub |
Partager