منتدى أحلـــى كـــلام
عزيزى الزائر

كونك زائر غير مسجل

* سيتم عرض اعلانات لك، هذه الاعلانات لا تظهر للاعظاء.
* لن تتمكن من مشاهدة بعض محتويات مواضيعنا.

ندعوك للتسجيل بأقل من دقيقة
* لتتمكن من مشاهدة كافة محتويات المواضيع التى ترغب فى قرآئتها .
* وقف عرض الاعلانات.

SiteAdmin

لمنع النسخ من مربع النص

اذهب الى الأسفل

لمنع النسخ من مربع النص

مُساهمة من طرف 123 في الثلاثاء يوليو 06, 2010 1:32 pm

اذا كنت ترغب فى منع نسخ من مربع نص فاليك كود ابطال عمل Ctrl + C

الكود:

فى الموديول
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 Lo

فى النموذج
Private Sub Form_Load()
  hPrevWndProc = SetWindowLong(RichTextBox1.hwnd, _
  GWL_WNDPROC, AddressOf WindowProc)
End Sub

123
عضو نشط
عضو نشط

عدد المساهمات : 34
نقاط : 164
تقييم العضو : 0
تاريخ التسجيل : 15/06/2010

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى