PDA

View Full Version : سوال: چه طوری مکان نما رو به آخر خط تکس باکس منتقل کنم؟؟؟



pcb20parse
شنبه 02 شهریور 1392, 13:08 عصر
داریم یه برنامه می نویسیم که وقتی از صفحه کلید روی a کلیک می کنه حرف مثلا æ درج بشه.اما بعد اینکار مکانما به اول خط منتقل میشه...
برای انتقال به آخر خط چی کار باید کنم؟؟
اینم کد برنامه ام:







PrivateSub textBox2_KeyDown(sender AsObject, e As System.Windows.Forms.KeyEventArgs) _





Handles TextBox2.KeyDown

phono =



False





If e.KeyCode = Keys.A Then

strb =



"ɒ" + Chr(13)

 

phono =



True

 





EndIf





If e.KeyCode = Keys.Q Then

strb =



"ð"

phono =



True





EndIf





EndSub'textBox2_KeyDown

 





PrivateSub textBox2_KeyPress(sender AsObject, e As System.Windows.Forms.KeyPressEventArgs) _





Handles TextBox2.KeyPress

 





If phono = TrueThen

TextBox2.Text += strb

e.Handled =



True

 





EndIf





EndSub'textBox2_KeyPress




PrivateSub textBox2_KeyDown(sender AsObject, e As System.Windows.Forms.KeyEventArgs) _





Handles TextBox2.KeyDown

phono =



False





If e.KeyCode = Keys.A Then

strb =



"ɒ" + Chr(13)

 

phono =



True

 





EndIf





If e.KeyCode = Keys.Q Then

strb =



"ð"

phono =



True





EndIf





EndSub'textBox2_KeyDown

 





PrivateSub textBox2_KeyPress(sender AsObject, e As System.Windows.Forms.KeyPressEventArgs) _





Handles TextBox2.KeyPress

 





If phono = TrueThen

TextBox2.Text += strb

e.Handled =



True

 





EndIf





EndSub'textBox2_KeyPress

Fery666
شنبه 02 شهریور 1392, 15:33 عصر
از دستور :



SendKeys.Send("{End}")
TextBox1.Focus()


' برای رفتن به آخر متن




SendKeys.Send("{Home}")
TextBox1.Focus()


' برای رفتن به اول متن

pcb20parse
شنبه 02 شهریور 1392, 18:35 عصر
ممنون
به زبان وی بی دانت؟؟؟
جواب نمیده؟؟

pcb20parse
شنبه 02 شهریور 1392, 18:43 عصر
از دستور :



SendKeys.Send("{End}")
TextBox1.Focus()


' برای رفتن به آخر متن




SendKeys.Send("{Home}")
TextBox1.Focus()


' برای رفتن به اول متن


are mamnonam javab dad.
kheyli giresh bodam

shahryari
یک شنبه 03 شهریور 1392, 15:57 عصر
از این کد استفاده بکن
TextBox1.Focus()
TextBox1.Select(TextBox1.TextLength, 0)

maxvel
یک شنبه 03 شهریور 1392, 19:09 عصر
TextBox1.SelectionStart = TextBox1.TextLength
TextBox1.ScrollToCaret()