ورود

View Full Version : سوال: مشکل با Inet


renjerk
دوشنبه 07 تیر 1389, 09:56 صبح
مشکل با Inet

سلام میخوام با Inet سورس یک سایت رو بدست بیاریم ولی این کنترل ارور میده راهنمایی کنید ممنون

نمونه کد مورد استفاده:

Dim Source As String
Source = Inet1.OpenURL(Text1.Text)
RTF1.Text = Source
parselearn
دوشنبه 07 تیر 1389, 10:11 صبح
چه خطايي ميده؟
من به خطايي بر نخوردم.
renjerk
دوشنبه 07 تیر 1389, 10:45 صبح
چه خطايي ميده؟
من به خطايي بر نخوردم.
وقتی دابل کلیک میکنم اررور میده. ممنون راهنمایی کنید

وقتی در حال لود شدن هست من کلیک میکنم ارور میده

کد:

Private Sub Command1_Click()
Dim Source As String
Source = Inet1.OpenURL(Text1.Text)
RTF1.Text = Source
End Sub
renjerk
سه شنبه 08 تیر 1389, 11:38 صبح
از این کد On Error Resume Nextهم استفاده کردم ولی نمیخوام از این کد استفاده کنم چون با پروژه من همخوانی ندارد اگه امکانش هست راه اصولی بگید ممنون.
مهران رسا
شنبه 12 تیر 1389, 12:12 عصر
سلام؛

دوست عزیز این مشکل خاصی نیست . شما کدتون رو توی رویداد Click نوشتید ! اصلاً چه دلیلی داره DoubleClik کنید ؟

خطایی که باهاش مواجه میشید :


Still executing last request

هنوز آخرین درخواستی که واسش ارسال کردی در حال اجرا هست و باید تا پایان کار اون درخواست منتظر بمونی .

کدت رو به این صورت بنویس :



Private Sub Command1_Click()
Dim Source As String
If Not (Inet1.StillExecuting) Then
Text1.Text = ""
Source = Inet1.OpenURL("http://www.google.com")
Text1.Text = Source
End If
End Sub
اول بررسی میکنیم Inet از قبل در حال انجام کاری نبوده باشه .

موفق باشید
mpmsoft
شنبه 12 تیر 1389, 13:11 عصر
ببینید کد زیر هم ارور برمیگردونه


Text1.Text = Inet1.OpenURL("www.google.com")
arash020
یک شنبه 13 تیر 1389, 01:52 صبح
سلام دوست من
شاید با این مثال مشکلت برطرف بشه »:

On Error GoTo n
MsgBox (0 \ 0)
Exit Sub
n:
MsgBox "gjk"

توضیح:
شما باید به جای resume next
هدایت کنی به یه label
البته برای اینکه اون لیبل بیخودی اجرا نشه باید بعد از پایان دستورات اصلیت ext sub بزاریا ... حتما
پیغامتم میتونی پشت بند label بنویسی
امیدوارم تونسته باشم کاری کنم
موفق باشی
parselearn
یک شنبه 13 تیر 1389, 16:16 عصر
ببينيد كنترل Inet پروپرتي به نام RequestTimeout دارد
كه شما با تنظيم كردن آن مي توانيد زمان ارسال درخواست و دريافت را تنظيم نمائيد
تا قبل از اين زمان برنامه را با استفاده از تايمر طوري تنظيم نمائيد كه كليك دوباره تاثيري نداشته باشد
تا درخواست دوباره در حين انجام كار ارسال نشود

كدي هم كه در بالا گذاشته شده اين مشكل رو حل ميكنه


If Not (Inet1.StillExecuting) Then
renjerk
دوشنبه 14 تیر 1389, 16:44 عصر
با سلام به چه طریق میشه کنترل Inet رو Stop کرد ؟
مثلا کنترل در حال لود کردن سورس یک سایت هست با یک دکمه بزنیم و این عملیات رو متوقف کنیم. این رو میخوام بدونم راهنمایی کنید ممنون.