PDA

View Full Version : سوال: selectall کردن تکست باکس


علیرضا.ا
دوشنبه 06 خرداد 1392, 10:35 صبح
اگه بخواهیم با کلیک روی یه تکست باکس تمام محتویاتش انتخاب باشه باید چیکار کرد؟!
setroyd
دوشنبه 06 خرداد 1392, 11:22 صبح
Private Sub Text1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)

End Sub
nimar9
دوشنبه 06 خرداد 1392, 21:50 عصر
یه سوال دارم چی کار میشه کرد که با کلیک کردن رو تکست باکس متن داخل آن سلکت آل و کپی شود ؟
محسن واژدی
دوشنبه 06 خرداد 1392, 21:59 عصر
یه سوال دارم چی کار میشه کرد که با کلیک کردن رو تکست باکس متن داخل آن سلکت آل و کپی شود ؟
از Clipboard استفاده کنید:
Private Sub Text1_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub

موفق باشید