محبوبترینها
آیا میشود فیستول را عمل نکرد و به خودی خود خوب میشود؟
مزایای آستر مدول الیاف سرامیکی یا زد بلوک
سررسید تبلیغاتی 1404 چگونه می‌تواند برندینگ کسب‌وکارتان را تقویت کند؟
چگونه با ثبت آگهی رایگان در سایت های نیازمندیها، کسب و کارتان را به دیگران معرفی کنید؟
بهترین لوله برای لوله کشی آب ساختمان
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1855690143
vb6 ; کدنویسی برای press شدن Esc ؟؟؟ -
واضح آرشیو وب فارسی:سایت ریسک: vb 6 ; کدنویسی برای press شدن Esc ؟؟؟ Saeed Shahabi 13 ارديبهشت 1388, 17:38سلام به همه دوستان خوبم... در طول اجرای برنامه رویدادهای مختلفی به جریان می افتند;چطور میشه کاری کرد که در صورت press شدن Esc , رویدادهای درحال اجرا متوقف بشن؟(درست مثل AutoCAD ) the_king 13 ارديبهشت 1388, 20:27سلام به همه دوستان خوبم... در طول اجرای برنامه رویدادهای مختلفی به جریان می افتند;چطور میشه کاری کرد که در صورت press شدن Esc , رویدادهای درحال اجرا متوقف بشن؟(درست مثل AutoCAD ) کد زیر را در یک فرم عادی و خالی امتحان کنید : Private Canceled As Boolean Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then Canceled = True End Sub Private Sub Form_Load() KeyPreview = True End Sub Private Sub Form_Resize() Dim CurTime As Date CurTime = Now Do While Now < DateAdd("s", 20, CurTime) And Canceled = False Caption = Format(Now - CurTime, "Nn:Ss") DoEvents Loop Caption = Caption & " - Stop" End Sub تا زمانی که 20 ثانیه سپری نشده، یا دکمه ESC فشار داده نشده، ثانیه شمار در عنوان فرم اجرا می شود.
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 395]
-
گوناگون
پربازدیدترینها