ورود

نسخه کامل مشاهده نسخه کامل : كپي متن داخل textbox


mehdi_yg
12-03-2006, 09:22
سلام دوستان
چيكار كنم كه كاربر نتونه متن textbox رو کپی کنه یعنی نه با کلیک راست و انتخاب copy و نه با ctrl+c
shamsoft
12-03-2006, 10:30
شما مي تونيد متنتون رو بنويسيد و بعد خاصيت Enabled رو False کنید.
Payman_62
12-03-2006, 12:35
اگه enable رو false كني كليدت كمرنگ ميشه. اگه ميخواي اين طور نشه ميتوني از اين روش استفاده كني.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
mehdi_yg
12-03-2006, 16:20
خيلي ممنون دوستان از توجه شما ولي textbox برنامه من بايد فعال باشه و يكي از دلايلش قابليت جستجو در اونه . بنظر خودم بهترين حالت براي اين كار دستور پاك كردن حافظه كليپ برده كه كاربر متن كپي شده رو نتونه جايي past کنه ولی کد مربوط به این کار رو بلد نیستم اگر بلدید کمکم کنید . ممنون میشم
Soda
12-03-2006, 16:41
سلام
يه تايمر
و داخلش اينو بنويس
if clipboard.gettext="soda" then clipboard.clear
Payman_62
12-03-2006, 17:49
به جاي تايمر ميتوني رو خود تكس باكس هم كار كني.
ولي اگه كاربر نتونه كپي كنه خوب خودش متن رو تايپ ميكنه. اگه طولاني باشه 1 عكس ازش ميگيره و سر فرصت تايپ ميكنه. به هر حال از كار انداختن كليبرد زياد منطقي نيست.
mehdi_yg
13-03-2006, 09:29
چرا اين كد كار نميكنه ؟ مگه نبايد گذينه Past رو غير فعال كنه؟
Payman_62
13-03-2006, 12:26
شما اينجوري از كد استفاده كن
if clipboard.gettext=Text1.text then clipboard.clear
ولي بازم ميگم بهتره به جاي تايمر رو خود تكس باكس كار كني.
Romina2006
27-12-2006, 08:13
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