Adn56
Messages postés1172Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention28 septembre 20131 6 févr. 2012 à 15:43
Salut, quelques remarques en diagonale :
Control non nommés, label1, form2 etc....
Option explicit et stric à On
des try/catch qui ne font rien pour l'utilisateur (idem pour les IF)
Ex :
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If System.IO.File.Exists("MemoTextFile.txt") Then ....
Else ? bha rien l'user ne sait pas ce qui se passe....
Pourquoi utiliser une form2 plutôt qu'une message box ? juste pour la couleur ?
SaveFile.ShowDialog()
Try
Dim ecrire As New System.IO.StreamWriter(SaveFile.FileName)
ecrire.Write(RichTextBox1.Text)
ecrire.Close()
Catch ex As Exception
Et si je clic sur annuler et que savefile.filename n'est pas nothing ?
6 févr. 2012 à 15:43
Control non nommés, label1, form2 etc....
Option explicit et stric à On
des try/catch qui ne font rien pour l'utilisateur (idem pour les IF)
Ex :
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If System.IO.File.Exists("MemoTextFile.txt") Then ....
Else ? bha rien l'user ne sait pas ce qui se passe....
Pourquoi utiliser une form2 plutôt qu'une message box ? juste pour la couleur ?
SaveFile.ShowDialog()
Try
Dim ecrire As New System.IO.StreamWriter(SaveFile.FileName)
ecrire.Write(RichTextBox1.Text)
ecrire.Close()
Catch ex As Exception
Et si je clic sur annuler et que savefile.filename n'est pas nothing ?
bref plein de chose à revoir, bonne continuation.