إبطال عمل Ctrl+c

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = Asc("C") Or KeyCode = Asc("X") And Shift = 2 Then
    KeyCode = 0
    Clipboard.Clear
End If
End Sub

(f) (f)

ما ذكره الأخ/programmer2001 صحيح، ايضا يجب اغلاق زري ctrl وInsert والتي تعد الطريقة الصحيحة للنسخ.. بنفس الطريقة التي ذكرها الاخ في رده

If KeyCode = 45 And Shift = 2 Then
 KeyCode = 0
 Clipboard.Clear
End If

والطريقة السابقة تعتمد على فكرتها على تتبع الاحداث بعد حدوثها اي ان المستخدم نقر زري Ctrl+C وقام النظام بعملية النسخ إلى الحافظة وقد قمنا بعد ذلك بمسح القيمة الموجودة في الحافظة.. ويوفر فيجوال بيسك منذ اصداره الخامس امكانية تطبيق مبدأ التصنيف الفرعي المعتمد عبلى اصطياد الاحداث قبل وقوعها.. لاحظ المثال التالي حيث يتم اصطياد الحدث Key_Down (الرسالة WM_KEYDOWN) قبل وقوعه وبالتالي السيطرة على عملية النسخ،ايضا يمكننا بمنع بقية الازرار من خلال الرسالة WM_CHAR.

في Module (ضروري)

Public Const WM_KEYDOWN = &H100
Public Const WM_CHAR = &H102
Public Const GWL_WNDPROC = (-4)
Public Declare Function SetWindowLong Lib "user32" Alias _
 "SetWindowLongA" (ByVal hwnd As Long, ByVal _
 nIndex As Long, ByVal dwNewLong As Long) _
 As Long
Public Declare Function CallWindowProc Lib "user32" _
 Alias "CallWindowProcA" (ByVal lpPrevWndFunc _
 As Long, ByVal hwnd As Long, ByVal Msg As _
 Long, ByVal wParam As Long, ByVal lParam _
 As Long) As Long
Public hPrevWndProc&

Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As _
 Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case uMsg
 Case WM_KEYDOWN
  '
 Case WM_CHAR
  '
 Case Else
  WindowProc = CallWindowProc(hPrevWndProc, hwnd, _
   uMsg, wParam, lParam)
End Select
End Function

في النموذج

Private Sub Form_Load()
  hPrevWndProc = SetWindowLong(RichTextBox1.hwnd, _
   GWL_WNDPROC, AddressOf WindowProc)
End Sub