Keydown and SelStart problem

[jase]

If you create a Textbox TextBox1 and give it text of "abcdefg" in the
properties window then why doesn't the second event procedure below
select "de" when you press the right arrow on the keyboard when the
textbos has got the focus ??!

Any help greatly appreciated
Jason.


Private Sub TextBox1_GotFocus()
TextBox1.SelStart = 0
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
Select Case KeyCode
Case vbKeyRight
With TextBox1
.SelStart = 3
.SelLength = 2
End With
Case Else
End Select
End Sub

 

[Jim Rech]

You're letting the right arrow through. You have to kill it:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
Select Case KeyCode
Case vbKeyRight
With TextBox1
.SelStart = 3
.SelLength = 2
End With
KeyCode = 0 ''<<<<<
End Select
End Sub


--
Jim
| If you create a Textbox TextBox1 and give it text of "abcdefg" in the
| properties window then why doesn't the second event procedure below
| select "de" when you press the right arrow on the keyboard when the
| textbos has got the focus ??!
|
| Any help greatly appreciated
| Jason.
|
|
| Private Sub TextBox1_GotFocus()
| TextBox1.SelStart = 0
| End Sub
|
| Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
| ByVal Shift As Integer)
| Select Case KeyCode
| Case vbKeyRight
| With TextBox1
| .SelStart = 3
| .SelLength = 2
| End With
| Case Else
| End Select
| End Sub
|

 

[jase]

Cheers Jim
Works beautifully.
Have you got any examploes to help me understand how this has worked?

Jason