فکوس و Select شدن تکست یا کلیک در آن [بایگانی]

sg.programmer

سه شنبه 19 اردیبهشت 1391, 21:14 عصر

چطوری با کلیک کردن در تکست باکس آن تکس انتخاب گردد

ho3ein.3ven

سه شنبه 19 اردیبهشت 1391, 21:26 عصر

Private Sub Text1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
بفرمایید

just4froum

چهارشنبه 20 اردیبهشت 1391, 00:06 صبح

با این روش هم می تونی.
Private Sub Text1_Click()
SendKeys "{home}"
SendKeys "+{end}"
End Sub