soonami
سه شنبه 04 مرداد 1390, 11:17 صبح
Dim s As String
cd1.ShowDialog()
s = cd1.FileName
Dim sr As New StreamReader(s)
Dim str As String = ""
While sr.Peek() >= 0
str &= sr.ReadLine
str &= vbCrLf
End While
sr.Close()
r1.Text = str
کد بالا برای باز کردن یک فایل متنی است در صورتی که کاربر از OPEN منصرف بشه و CANCEL بزنه ارور میده
برای رفع ارور باید چی کار کنم ؟؟؟
از TRY و... استفاده کنم
اکگر مقدور هسا در رفع ارور راهنمایی بفرمایید
cd1.ShowDialog()
s = cd1.FileName
Dim sr As New StreamReader(s)
Dim str As String = ""
While sr.Peek() >= 0
str &= sr.ReadLine
str &= vbCrLf
End While
sr.Close()
r1.Text = str
کد بالا برای باز کردن یک فایل متنی است در صورتی که کاربر از OPEN منصرف بشه و CANCEL بزنه ارور میده
برای رفع ارور باید چی کار کنم ؟؟؟
از TRY و... استفاده کنم
اکگر مقدور هسا در رفع ارور راهنمایی بفرمایید