غیرفعال کردن منوی راست کلیک در تکست باکس

[vb2005]

سلام دوستان،لطفاًیه روش برای غیرفعال کردن (عدم نمایش) منوی راست کلیک در تکست باکس معرفی کنید.
البته این روش هم میشه ولی نمیخوام پیغامی ظاهربشه.


Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
MsgBox "Locked"
End If
End Sub

[vbhamed]

سلام
اینم راهش :

[vb2005]

سلام،عالی بود،موفق باشید.

[UpgradeVB6Code]

آقا حامد سورسی نداری که که مثلا وقتی روی تکست باکس راست کلیک میکنیم مثلا گزینه Copy غیر فعال باشه یا Past غیر فعال باشه ؟
مثل حالتی که پسورد کارکتر تکست باکس رو روی * میزاریم
اما میخوام بدون اینکه تکست باکس رو به تکست باکس پسورد تغییر بدیم نشه از متن کپی گرفت !؟

[vbhamed]

سلام

چرا راه داره

1 - با استفاده از سورس بالا منوي TextBox رو غير فعال كن
2 - يك منوي معمولي (Ctrl + E) براي فرم خودت درست كن و گزينه هاي دلخواه رو توش بزار و هركدوم رو خواستي فعال و غير فعال كن
3 - خاصيت Visible منو رو False كن تا توي منوها ديده نشه (البته اگر دوست داري)
4 - با دستور PopupMenu وقتي روي Textbox راست كليك شد منوي خودت رو نشون بده

فرض كنيد اسم منو mnuTextbox هست


PopupMenu mnuTextBox