نمایش یک فایل متنی از درایو C در text1 روی فرم

[elimiz]

سلام دوستان
میخواستم بدونم چجوری محتویان یک فایل متنی از این ادرس رو C:\m.txt در text1 روی فرمم نمایش بدم ؟
خیلی نیاز دارم

[Veteran]

CommonDialog1.FileName = ""

CommonDialog1.ShowOpen
Dim Stri As String
If CommonDialog1.FileName = "" Then Exit Sub

Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, Stri
Print Stri
Loop
Close #1
End Sub


تصحیح شد

[elimiz]

سلام دوست عزیز
اگر امکان داره یه کمی در باره کد بالا توضیح بدین
من فقط میخوام متن داخل یک فایل تکست رو در text1 داخل فرمم نمایش بدم
مرسی

[sr2m72]

اگر امکان داره یه کمی در باره کد بالا توضیح بدین
من فقط میخوام متن داخل یک فایل تکست رو در text1 داخل فرمم نمایش بدمبا اجازه آقا سبحان.


Open CommonDialog1.FileName For Input As #1
اين دستور فايل رو براي خواندن باز ميكنه،‌كه ميتونيد به جاي CommonDialog1.FileName آدرس فايلتون(C:\m.txt)رو بنويسيد.



Do While Not EOF(1)
Line Input #1, Stri
اين يعني اينكه: تا وقتي به پايان فايل نرسيدي، خط به خط بخون و در Stri قرار بده.



Print Stri
اينم كه معلومه براي چاپ كردن هستش كه ميتونيد به جاي اين متن رو توي تكست نشون بدين:(text1.text=Stri)



Close #1
بعد از اينكه كارت با فايل تموم شد بايد با دستور Close‌ فايل رو ببندي.
موفق باشيد.

[SlowCode]

یه راه خیلی ساده تر استفاده از Rich TextBox هست، اول اونو به فرمتون اضافه کنید و بعد کد زیر رو بنویسید:
RichText1.Load("C:\m.txt")
به همین سادگی.

[elimiz]

سلام دوستان عزیز
من نتونستم از کدهای بابا استفده کنم
هر دوتا اررور دادن و کامپایل نشدن
اگر امکان داره سورس رو اصلاح کنین و بزارین. ممنون میشم
مرسی

[Veteran]

Open "C:\m.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Stri
text1= Text1+ Stri
Loop
Close #1
End Sub

[SlowCode]

ببخشید دوست عزیز، چون از حفظ نوشتم یه چیز یادم رفت، اینطور بنویس:
RichTextBox1.LoadFile ("C:\m.txt")