كپي متن داخل textbox

سلام دوستان
چيكار كنم كه كاربر نتونه متن textbox رو کپی کنه یعنی نه با کلیک راست و انتخاب copy و نه با ctrl+c

شما مي تونيد متنتون رو بنويسيد و بعد خاصيت Enabled رو False کنید.

اگه enable رو false كني كليدت كمرنگ ميشه. اگه ميخواي اين طور نشه ميتوني از اين روش استفاده كني.

کد:

---

Private Sub Text1_GotFocus()
    Command1.SetFocus
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Command1.SetFocus
    Text1.SelLength = 0
End Sub

---

خيلي ممنون دوستان از توجه شما ولي textbox برنامه من بايد فعال باشه و يكي از دلايلش قابليت جستجو در اونه . بنظر خودم بهترين حالت براي اين كار دستور پاك كردن حافظه كليپ برده كه كاربر متن كپي شده رو نتونه جايي past کنه ولی کد مربوط به این کار رو بلد نیستم اگر بلدید کمکم کنید . ممنون میشم

سلام
يه تايمر
و داخلش اينو بنويس
if clipboard.gettext="soda" then clipboard.clear

به جاي تايمر ميتوني رو خود تكس باكس هم كار كني.
ولي اگه كاربر نتونه كپي كنه خوب خودش متن رو تايپ ميكنه. اگه طولاني باشه 1 عكس ازش ميگيره و سر فرصت تايپ ميكنه. به هر حال از كار انداختن كليبرد زياد منطقي نيست.

چرا اين كد كار نميكنه ؟ مگه نبايد گذينه Past رو غير فعال كنه؟

شما اينجوري از كد استفاده كن
if clipboard.gettext=Text1.text then clipboard.clear
ولي بازم ميگم بهتره به جاي تايمر رو خود تكس باكس كار كني.

Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim keystate As Integer
Dim keystate1 As Integer
Dim keystate2 As Integer
Dim keystate3 As Integer
keystate = GetKeyState(vbKeyControl)
keystate1 = GetKeyState(vbKeyInsert)
keystate2 = GetKeyState(vbKeyC)
keystate3 = GetKeyState(vbKeyX)
If keystate And keystate1 And &H8000 Then Text1.SelStart = 0
If keystate And keystate2 And &H8000 Then Text1.SelStart = 0
If keystate And keystate3 And &H8000 Then Text1.SelStart = 0
End Sub

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