باگ

[mohammadjavad]

سلام
یه سوال داشتم اگه جواب بدین ممنون میشم
تو این چیزی که نوشتم انگار یه باگ که نمیدونم چطور بگیرمش


SaveFileDialog1.Filter = "text file|*.txt|word file |*.rtf|html file|*.html"
SaveFileDialog1.Title = "save text"
SaveFileDialog1.ShowDialog()
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, RichTextBox1.Text)
PrintLine(1, "")
FileClose()

وقتی cancel رو میزنم ارور میده ....
:گیج:

[Alireza_Salehi]

SaveFileDialog1.Filter = "text file|*.txt|word file |*.rtf|html file|*.html"
SaveFileDialog1.Title = "save text"
If SaveFileDialog1.ShowDialog()=DialogResult.OK Then
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, RichTextBox1.Text)
PrintLine(1, "")
FileClose()
End if

[vahidiran]

کد تونو اینجوری بنویسید

Try
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
''' دستورات شما ''''
End If
Catch ErrMesg As Exception
MsgBox(ErrMesg.Message)
End Try


اینجوری می تونید description خطا رو هم داشته باشید بعد description رو بگویید