تبلیغات
تبلیغات متنی
محبوبترینها
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1836542157
یه سوال تو ویژوال بیسیک -
واضح آرشیو وب فارسی:سایت ریسک: یه سوال تو ویژوال بیسیک حامد منصف 08 خرداد 1386, 00:04با سلام خدمت دوستان عزیز من تو ویژوال بیسیک میخوام کاری کنم وقتی روی close یه پنجره کلیک میکنم بپرسه مطمئنی؟ اگه جواب منفی بود برنامه رو نبنده برای این کار توUnload فرم یه msg box گذاشتم تا yes or no رو تشخیص بده.؟ حالا نمیدونم اگه جواب منفی بود چجوری فرمانunload رو cancel کنم و الان چه yes بزنی چه no برنامه رو میبنده اگه کمکم کنین ممنون میشم MDP 08 خرداد 1386, 09:00NET. یا 6vb؟ حامد منصف 09 خرداد 1386, 07:30vb 6 Faroos Networks 09 خرداد 1386, 08:11سلام Private Sub MDIForm_Unload(Cancel As Integer) If MsgBox("ÂíÇ ãØãÆä Èå ÎÑæÌ ÇÒ ÈÑäÇãå åÓÊíÏ¿", vbQuestion + vbYesNo, "Faroos Networls") = vbNo Then Cancel = True Form1.Show Exit Sub End If End Sub موفق باشين Parthia 08 تير 1386, 22:56من معمولا اینطوری کار میکنم : Private Sub Form_Unload(Cancel As Integer) Dim MsgRes As VbMsgBoxResult MsgRes = MsgBox("Are You Sure You Want To Exit ?", vbYesNo Or vbQuestion) If MsgRes = vbYes Then Unload Me End If End Sub Parthia 08 تير 1386, 23:02من معمولا اینطوری کار میکنم : Private Sub Form_Unload(Cancel As Integer) Dim MsgRes As VbMsgBoxResult MsgRes = MsgBox("Are You Sure You Want To Exit ?", vbYesNo Or vbQuestion) If MsgRes = vbYes Then Unload Me End If End Sub
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 361]
-
گوناگون
پربازدیدترینها