PDA

View Full Version : دستور setfucus برای تکس باکس


mohsen_iceman2000
یک شنبه 04 تیر 1391, 00:25 صبح
سلام می خوام وقتی که text2.setfocus بشه کل متن test2 انتخاب بشه کسی بلده ؟؟؟؟؟؟؟؟؟؟
just4froum
یک شنبه 04 تیر 1391, 01:10 صبح
بفرمایید :

Private Sub Text1_Click()
SendKeys "{home}"
SendKeys "+{end}"
End Sub

Private Sub Text1_GotFocus()
SendKeys "{home}"
SendKeys "+{end}"
End Sub
star_star
یک شنبه 04 تیر 1391, 07:04 صبح
بفرمایید :

Private Sub Text1_Click()
SendKeys "{home}"
SendKeys "+{end}"
End Sub

Private Sub Text1_GotFocus()
SendKeys "{home}"
SendKeys "+{end}"
End Sub

آقا Erorr میده !!!!!!
سید حمید حق پرست
یک شنبه 04 تیر 1391, 07:56 صبح
سلام علیکم
با اجازه اقای just4froum (http://barnamenevis.org/member.php?211054-just4froum)

کد اقای just4froum (http://barnamenevis.org/member.php?211054-just4froum) هیچ مشکلی ندارد و به درستی کار میکند
سورس ضمیمه شد

موفق باشید

یا علی (ع)
Veteran
یک شنبه 04 تیر 1391, 11:18 صبح
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub