این هم برنامه notepad با vb 6

[night_secret]

از دوستان عزیز خواهش میکنم اگه مشکلی دیدند حتما بگن که درستش کنم نظر یادتون نره باتشکر!http://www.persiangig.com/pages/download/?dl=http://night-secret.persiangig.com/project%20notepad.zip

[Javad-2010]

وقتی که Open را می‌زنیم و بعد Cancel ، برنامه خطا می‌دهد.

[milad-fa]

Find & Replace هم بذاری بهتر میشه.

[returnx]

این برنامه رو ببین شاید برای Find &Replace بدردت بخوره من این برنامه رو برای یکی دیگه نوشته بودم برای همین شما باید یه سری تغییرات توش اعمال کنیدکه نتیجه مطلوب بگیری
http://www.4shared.com/file/Sj5bS7I1/read_txt__compare.html

[night_secret]

وقتی که Open را می‌زنیم و بعد Cancel ، برنامه خطا می‌دهد.
دوست عزیز من هر کاری کردم درست نشد حتی on error resume next هم میزارم برنامه هنگ میکنه شما راهی به نظرتون میرسه؟!!!

[M.T.P]

دوست عزیز من هر کاری کردم درست نشد حتی on error resume next هم میزارم برنامه هنگ میکنه شما راهی به نظرتون میرسه؟!!!

کد Open رو اینطوری بنویس:


Private Sub c_Click()
Dim m As Integer
m = FreeFile()
Dim path As String
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
path = CommonDialog1.FileName
If path = " " Then Exit Sub
Open path For Input As #m
Dim text As String
Do While Not EOF(m)
Line Input #m, text
Text1.text = Text1.text + vbCrLf + text
Loop
Close #m
End If
End Sub

[night_secret]

ممنون دوست عزیز میشه کمی بیشتر توضیح بدی چی شده!!!:متفکر:

[M.T.P]

ممنون دوست عزیز میشه کمی بیشتر توضیح بدی چی شده!!!:متفکر:

وقتی کاربر Cancel رو کلیک کنه یک کاراکتر پوچ یا Null به متغیر Path شما نسبت داده میشه که کد زیر این موضوع رو بررسی و در صورت صحت موضوع کرسر رو از روال خارج میکنه.


If path = " " Then Exit Sub

[Dr.Bronx]

جرا اینجوری میکنید !!!!!!!

این همه دردسر نداره که ...

شما CancelError رو False اگر بزارید دیگه error نمیشه اگر فایلی انتخاب نشه .

موفق باشید !!!

[Javad-2010]

اگه CancelError رو False باشه هم error میده.

[Dr.Bronx]

من همین الان تست کردم چطور میگید error میده !!!!

شما تو یک پروژه جدید هم تست کنید همینه !

موفق باشید .../

[night_secret]

من همین الان تست کردم چطور میگید error میده !!!!

شما تو یک پروژه جدید هم تست کنید همینه !

موفق باشید .../
ما باید در کدوم قسمت باید cancell error رو false کنیم من همچین گزینه ای نمی بینم:متفکر:

[Dr.Bronx]

ما باید در کدوم قسمت باید cancell error رو false کنیم من همچین گزینه ای نمی بینم:متفکر:

در Property های common dialog گزینه ای به نام CancelError داره که اون رو باید False کنید .

موفق باشید ./

[Javad-2010]

اگه CancelError رو False باشه هم error میده.

من همین الان تست کردم و error میده !!!

موفق باشید.

[returnx]

از این کد استفاده کنید برای Open :

Dim m As Integer
m = FreeFile()
Dim path As String
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
path = CommonDialog1.FileName
On Error GoTo label
Open path For Input As #m
Dim text As String
Do While Not EOF(m)
Line Input #m, text
Text1.text = Text1.text + vbCrLf + text
Loop
Close #m
label:
MsgBox ("error")

End If