PDA

View Full Version : سوال: خیلی فوری ( جلوگیری از خطای کاربری در فراخوانی عکس (image)



hamed_vb
سه شنبه 05 اردیبهشت 1396, 14:19 عصر
سلام دوستان من یک برنامه ای نوشتم که وقتی کاربر به اشتباه مثلا یک نام دیگری رو توی Filename وارد می کنه و فراخوانی میکنه ارور میده و از برنامه خارج میشه لطفا کمکم کنین تا این مشکل رو حل کنم
145042

siyn71
سه شنبه 05 اردیبهشت 1396, 15:31 عصر
لطفا بیشتر توضیح بدین
یه تیکه کد لااقل بزارین ببینیم موضوع چیه اصلا


خوب وقتی اون فایل تو این مسیر نباشه ارور میده ها

اینو بزار بالای کدت ارور نده
On Error Resume Next

hamed_vb
سه شنبه 05 اردیبهشت 1396, 15:34 عصر
Private Sub Command7_Click()
Dim sFile As String
With CD1
.DialogTitle = "ÇäÊÎÇÈ ÊÕæíÑ ÑÇåäãÇ"
.CancelError = False
'ToDo: set the flags and attributes of the common dialog control
.Filter = "Picture (*.JPG)|*.JPG"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
Label69.Caption = CD1.FileName
End With
End Sub

Private Sub Label69_Change()

Image3.Picture = LoadPicture(Label69.Caption)

End Sub

siyn71
سه شنبه 05 اردیبهشت 1396, 15:50 عصر
داداش کدت تویسیستم من داره کار میکنه قشنگ عکس لود میشه.

اگه میتونی به تلگرامم پیام بده بتونم با تیم ویور بیام تو سیستمت مشکلو از نزدیک ببینم
@AmvajAbi

Hashemvp
پنج شنبه 07 اردیبهشت 1396, 07:49 صبح
سلام دوست عزیز شما دو راه داری

اول اینکه همونطور ک دوست عزیزمون گفتن با کد on error resume next از خارج شدن برنامه جلوگیری کنی
یا اینکه براش یک کد خطا تعریف کنی ک خارج نشه از برنامه

دوم اینکه با استفاده از تابع API به اسم File system object استفاده کنی و قبل از اینکه بخوای عکس رو لود کنی
اصلا چک کنی ببینی همچنین فایلی وجود داره یا نه

موفق باشی

hamed_vb
پنج شنبه 07 اردیبهشت 1396, 22:40 عصر
سلام دوست عزیز من از کد on error resume next استفاده کردم حتی دوست عزیزمونم دیدن تو کامپیوتر ایشون با وجود این کد ارورنمیده ولی تو سیستم من ارور میده حتی من ویژوال بسیک رو حذف کردم و دوباره نصب کردم نشد و حتی نسخه اصلی ویژوال استدیو 6 رو نصب کردم بازم ارور میده نمی دوم مشکل ارور کجاست

vbhamed
شنبه 09 اردیبهشت 1396, 15:43 عصر
سلام
دلیل رو تو تاپیک زیر که ایجاد کردین توضیح دادم

http://barnamenevis.org/showthread.php?537499-%D8%AF%D9%84%DB%8C%D9%84-%DA%A9%D8%A7%D8%B1%D9%86%DA%A9%D8%B1%D8%AF%D9%86-%DA%A9%D8%AF-On-erorr-resume-next-%D8%AF%D8%B1-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2-7&p=2364579&posted=1#post2364579

www.pc3enter.tk
یک شنبه 10 اردیبهشت 1396, 15:42 عصر
سلام
دلیل رو تو تاپیک زیر که ایجاد کردین توضیح دادم
http://barnamenevis.org/showthread.p...=1#post2364579
لینک خرابه

vbhamed
دوشنبه 11 اردیبهشت 1396, 11:02 صبح
سلام
لینک تو همون پست اصلاح شد