soonami
دوشنبه 19 اردیبهشت 1390, 13:31 عصر
دوستان این تیکه کد مربوط به قسمت NEW برنامه من هست اگر کاربر تصمیم بگیره یه صفحه بار کنه جدید اگر اطلاعات توی اون صفحه باشه و کاربر از SAVE کردن پشیمون بشه اررو میده
If r1.Text <> "" Then
s1.Filter = "W(*docs)|*.doc|text file (*.txt)|*.txt"
s1.ShowDialog()
FileOpen(2, s1.FileName, OpenMode.Append)
Write(2, r1.Text)
ElseIf cd1.FileName <> "" Then
r1.Text = ""
End If
از خط قرمز ارور میگیره
حتی در قسمت OPEN هم اگر CANCEL بزنه باز ارور میده
If r1.Text <> "" Then
s1.Filter = "W(*docs)|*.doc|text file (*.txt)|*.txt"
s1.ShowDialog()
FileOpen(2, s1.FileName, OpenMode.Append)
Write(2, r1.Text)
ElseIf cd1.FileName <> "" Then
r1.Text = ""
End If
از خط قرمز ارور میگیره
حتی در قسمت OPEN هم اگر CANCEL بزنه باز ارور میده