تبلیغات
تبلیغات متنی
محبوبترینها
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1837956509
vb6; تشخیص پسوند فایل انتخابی؟ -
واضح آرشیو وب فارسی:سایت ریسک: vb 6; تشخیص پسوند فایل انتخابی؟ Saeed Shahabi 12 آبان 1388, 14:42با سلام... در برنامه ام یک پنجره open گذاشتم که فایلهای تصویری رو open کنم. در قسمت file type گزینه all file هم قرار دادم اما موجب شده که اگه کاربر روی یه فایل غیر تصویری کلیک کنه برنامه کاملا قطع میشه. چطوری جلوی این خطا رو بگیرم؟ چطوری تشخیص بدم که پسوند فایل انتخابی جزو پسوندهای پیش فرض من( jpg و ...) هست یا نه؟ the_king 13 آبان 1388, 05:16با سلام... در برنامه ام یک پنجره open گذاشتم که فایلهای تصویری رو open کنم. در قسمت file type گزینه all file هم قرار دادم اما موجب شده که اگه کاربر روی یه فایل غیر تصویری کلیک کنه برنامه کاملا قطع میشه. چطوری جلوی این خطا رو بگیرم؟ چطوری تشخیص بدم که پسوند فایل انتخابی جزو پسوندهای پیش فرض من( jpg و ...) هست یا نه؟ فرض کنیم که مسیر فایل مورد نظر را در Path قرار داده اید : Dim Path As String Path = CommonDialog1.FileName کد زیر در صورتی که پسوند فایل jpeg نبود، پیغام Error را نمایش می دهد : If InStr(Path, ".") > 0 Then Select Case LCase(Mid(Path, InStrRev(Path, ".") + 1)) Case "jpg", "jpe", "jpeg" Case Else MsgBox "Error" End Select End If کد زیر در صورتی که فایل مورد نظر به هر دلیلی یک فایل تصویری صحیح و قابل نمایش نباشد، پیغام Error را نمایش می دهد و از قطع شدن اجرای برنامه جلوگیری می کند : Dim Pic As StdPicture On Error Resume Next Set Pic = LoadPicture(Path) If Err.Number <> 0 Then MsgBox "Error"
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1198]
-
گوناگون
پربازدیدترینها