براي اين كار ابتدا تابع زير را در هدر قسمت كد برنامه قرار دهيد
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
حال يك command ايجاد كرده و در قسمت رويداد كليك آن كد زير را وارد كنيد:
DoEvents
BlockInput True 'True=1
Sleep 10000
BlockInput False 'False=0
عدد جلوي sleep مدت زمان قفل بودن صفحه كليد و ماوس را نشان مي دهد.كه در اينجا به طور پيش فرض 10 ثانيه است.
جمعه سی و یکم تیر ۱۳۹۰ | 19:33
من مهدی غلامی میاندهی کارشناس نرم افزار کامپیوتر و دانشجوی کارشناسی ارشد هستم . امیدوارم لحظات خوبی را در این وبلاگ داشته باشید.