از کپی و چسباندن از صفحه کلید جلوگیری کنید - عملکرد دکمه‌ها را لغو کنید

بسم الله الرحمن الرحیم
سلام و خدا قوت

بعد یک مدت تقریبا طولانی دوباره با یک آموزش نسبتا کاربردی با شما هستم.

قطعا برای شما هم این موقعیت رخ داده که قصد داشتید تا کنترلی بر روی کلیدهای ترکیبی صفحه کلید در زمان اجرای برنامه اکسسی خودتان داشته باشید.

در این آموزش شما یاد می‌گیرید تا چگونه کلیدهای ترکیبی رونوشت [Copy]، چسباندن [Paste] و برش [Cute] را در برنامه اکسس خود مدیریت کنید.

نگاهی به کد زیر بندازیم؛

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 'Published by Access-Training.blog.ir' 
 If (Shift And 2) And (KeyCode = Asc("C")) Then
        KeyCode = 0
        MsgBox "No Coping Allowed!"
    ElseIf (Shift And 2) And (KeyCode = Asc("V")) Then
        KeyCode = 0
        MsgBox "No Pasting Allowed!"
    ElseIf (Shift And 2) And (KeyCode = Asc("X")) Then
        KeyCode = 0
        MsgBox "No Cuting Allowed!"
    End If
End Sub

 

نظر شما چیه؟