pcb20parse
شنبه 02 شهریور 1392, 14: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
برای انتقال به آخر خط چی کار باید کنم؟؟
اینم کد برنامه ام:
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