هل من الممكن كود منع النسخ واللصق في التكست

بسم الله الرحمن الرحيم

ما شاء الله أخ مهنا على تواجدك الدائم وحبك للمعرفة

ياريت عندي واحد بالمئة من نشاطك .

بالنسبة لسؤالك . لماذا لا تستعمل الليبل مش أريح الك .

أولا منع النسخ واللصق عن طريق الكيبورد :

عند التجريب وجدت أن الـ Keyascii للـ Ctrl + c هو 3 و كذلك Ctrl + V هو 22 لذا ضع في حدث KeyPress ضع الكود التالي:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 3 or  KeyAscii = 22 Then KeyAscii = 0
End Sub

وبالتالي فإنه لن يقدر على نسخ البيانات أو لصق النصوص .

ثانيا بالنسبة للماوس :

لم أقدر على منع قائمة الزر الأيمن ، لكن يمكنك عند الضغط على صندوق النص جعل ازالة أي تضليل عن النصوص في صندوق النص

كالتالي :

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Text1.SelLength = 0
End Sub

أرجو أن أكون قد أفدتك

والسلام عليكم ورحمة الله وبركاته

بالاضافة الى ما ذكره الاخ البريشى

اليك الكود التالى لاجهاض اى محاولة لصق او نسخ

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Clipboard.Clear
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Clipboard.Clear
End Sub

اخي مهنا تستاهل كل خير

هذا مثال بسيط حسب معرفتي طبعاً كل واحد له طريقه وانا اعطيك الطريقة التي فكرت بها

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
   Text1.Text = ""
    MsgBox ("لا يمكن استخدام هذه الخاصية")
    
   End If
End Sub

آمل ان نكون قد قدمنا بعض الحلول

السلام عليكم

يا شباب ممكن دلونى على مكان او مرجع كل ما اريد شفرة اسكى فى كود ما ارجع له اذا ممكن

------------------------------

وهذه ايضا

----------------------------

اخي العزيز VB6-Rocket

يعطيك العافيه لقد جربتها وكانت ممتازه وارجو ان تناسب الاخ مهنا