Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long این خط و یکی توضیح بده
Printable View
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long این خط و یکی توضیح بده
سلام
ين تابع ماوس و صفحه کليد را قفل مي کند.
براي آزادسازي صفحه کليد شما بايد در برنامه خود تمهيداتي بينديشيد چون کاربر توانايي برگرداندن تغييرات را ندارد. براي مثال مي توانيد يک تايمر داشته باشيد تا بعد از مدتي معلوم ماوس و صفحه کليد دوباره آزاد شود.
اگر تابع کار خود را با موفقيت به پايان برساند مقدار بازگشتي يک عدد غير صفر و اگر تابع با خطايي مواجه شود مقدار بر گشتي صفر خواهد بود
fBlock : اگر مقدار اين آرگومان True باشد ماوس و صفحه کليد قفل مي شود ، و اگر مقدار آن False باشد ماوس و صفحه کليد آزاد مي شود
تشکر یادت نره
ممنون دوست عزیز این گقتید منظورم تو اون خط کلماتی همچون lib و..... بود
Lib "user32 اين قسمت هم نشون ميده كه بايد از كدوم كتابخانه سيستم عامل فانكشن مورد نظرتون صدا زده بشه
ممنون دوست عزیز
اینم کدش با توضیح
موفق باشی :11:کد:Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
DoEvents
BlockInput True 'True=1
Sleep 10000
BlockInput False 'False=0
End Sub