حرکت اشاره گر TextBox

[Mohamad ghorbani]

سلام خدمت اساتید

سوالم اینه که چجوری میشه اشاره گر تکس باکس رو حرکت داد؟

مثلا اگه خواستم اشاره گر بیاد آخر خط یا بیاد وسط خط؟

با تشکر ...

[javadt]

براي رفتن به اول يا آخر خط مي توني از روش زير استفاده كنيد

Text1.SetFocus
SendKeys "{End}"

Text1.SetFocus
SendKeys "{Home}"

[محسن واژدی]

سلام
کد زیر را در یک ماژول کپی کنید:

Public Sub MoveTextBoxPointer(TextBox As TextBox, TextPointerPos As TextPointerPosAtgs)
On Error Resume Next
TextBox.SetFocus
Select Case TextPointerPos
Case tpFirst: SendKeys "{home}"
Case tpMiddle: TextBox.SelStart = Int(Len(TextBox) / 2): TextBox.SelLength = 0
Case tpLast: SendKeys "{end}"
End Select
End Sub


نمونه:

Private Sub Command1_Click()
MoveTextBoxPointer Text1, tpMiddle
End Sub


موفق باشید

[sh4mid]

اشاره گر تکس باکس
بهش میگن Caret (http://msdn.microsoft.com/en-us/library/windows/desktop/ms646968(v=vs.85).aspx)




A caret is a blinking line, block, or bitmap in the client area of a window. The caret typically indicates the place at which text or graphics will be inserted.


برای حرکت دادنش باید از SetCaretPos (http://msdn.microsoft.com/en-us/library/windows/desktop/ms648405(v=VS.85).aspx) استفاده کنی

نمونه vb
(http://vbcity.com/forums/t/6706.aspx)

تو گوگل بزن SetCaretPos+vb