فراخوانی اتوماتیک

[majidbahrami]

دوستان سلام....
من یه مشکلی توی ویبی دارم

میخوام برنامه ای بنویسم که بعد از اجرا اتوماتیک فایل تکست کنار برنامه رو بخونه

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

ممنون

[MohammadGh2011]

دوستان سلام....
من یه مشکلی توی ویبی دارم

میخوام برنامه ای بنویسم که بعد از اجرا اتوماتیک فایل تکست کنار برنامه رو بخونه

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

ممنون
سلام عليکم
شما ميخواين فايل txt. که در کنار برنامه هست،بعد از اجراي برنامه ،محتواي اون فايل توي يک تکست باکس بياد؟!اگه اينطوره ميتونيد از دستور open استفاده کنيد.
اگه منظورتون همينه بفرماييد تا کدش رو بنويسم،در غير اينصورت بيشتر توضيح بديد.


موفق باشيد

[majidbahrami]

خدا خیریت بده بزار آره دادا

[MohammadGh2011]

خدا خیریت بده بزار آره دادا
Private Sub Form_Load()

Dim filepath As String
Dim FileNumber As String

Text1.Text = ""
filepath = App.Path & "/" & "textfile.txt"
FileNumber = FreeFile()

Open filepath For Input As FileNumber
While EOF(FileNumber) = False
Input #FileNumber, fileline
Text1.Text = Text1.Text + vbCrLf + fileline
Wend
Close FileNumber

End Sub

يک تکست باکس بزارين رو فرم و کد بالا رو تو قسمت کدنويسي کپي کنين،بعد به جاي textfile اسم فايل txt که در کنار برنامتون هست رو بنويسيد بعد برنامه رو اجرا کنيد.

مشکلي بود درخدمتم...

موفق باشيد

[majidbahrami]

دمت گرم دادا فقط یه مشکل کوچیک .. برنامه لود میکنه اما وقتی فایل تکست مقدارش تغییر میکنه توی برنامه مثل قبل میمونه..میخوام هر 5 دقیقه یه رفلش کنه و دوباره بارگزاری کنه

[MohammadGh2011]

دمت گرم دادا فقط یه مشکل کوچیک .. برنامه لود میکنه اما وقتی فایل تکست مقدارش تغییر میکنه توی برنامه مثل قبل میمونه..میخوام هر 5 دقیقه یه رفلش کنه و دوباره بارگزاری کنه
ميتونيد از تايمر استفاده کنيد.
يه تايمر روي فرم اضافه کنيد با اينتروال 60000 ،سپس اون کدها رو در داخل اين تايمر بنويسيد،اين کار باعث ميشه که هر يک دقيقه رفرش بشه.

[majidbahrami]

واسه 5 دقیقه چیکار کنم دادا؟

[MohammadGh2011]

واسه 5 دقیقه چیکار کنم دادا؟
تايمر وي بي محدوده و بيش از 1 دقيقه قبول نميکنه.

[MohammadGh2011]

با توجه به پست زير:
http://barnamenevis.org/showthread.php?325767-%DA%86%DA%AF%D9%88%D9%86%D9%87-%D8%B2%D9%85%D8%A7%D9%86-%D9%8A%D9%83-%D8%AA%D8%A7%D9%8A%D9%85%D8%B1-%D8%B1%D8%A7-%D8%A8%D9%87-%D9%8A%D9%83-%D8%B3%D8%A7%D9%87%D8%AA-%D9%8A%D8%A7-%D8%AF%D9%88-%D8%B3%D8%A7%D8%B9%D8%AA-%D8%AA%D8%BA%D9%8A%D9%8A%D8%B1-%D8%AF%D9%87%D9%8A%D9%85&p=1432076&viewfull=1#post1432076

از کد زير براي 5 دقيقه استفاده کنيد (اينتروال را بر روي 1000 قرار دهيد):

Private Sub Timer2_Timer()
Static iDelay%
iDelay% = iDelay% + 1
Caption = iDelay%
If iDelay% >= (2 * 150) Then
iDelay% = 0



Dim filepath As String
Dim FileNumber As String

Text1.Text = ""
filepath = App.Path & "/" & "textfile.txt"
FileNumber = FreeFile()

Open filepath For Input As FileNumber
While EOF(FileNumber) = False
Input #FileNumber, fileline
Text1.Text = Text1.Text + vbCrLf + fileline
Wend
Close FileNumber


End If

End Sub




موفق باشيد