同志们好！
如何使光标回车移动到下一个文本框内时，使光标全部选中文本框内原有的内容，而不是一小竖道？以便于修改数据！
请帮忙修改一下如下：谢谢！
Sub Text1_KeyPress(KeyAscii As Integer) '将光标移动到下一个文本框
If KeyAscii = 13 Then
SendKeys "{Tab}"
KeyAscii = 0
End If
End Sub

text1.selstart=0
text1.sellength=len(text1)
我忘记属性了,大该是这样的

焦点转入下一控件的代码
SendMessage(Handle,WM_NEXTDLGCTL,0,0)

版主大人：你好！您的控件代码如何写入呀？还要定义Handle吧。请具体指教，谢谢！

“焦点转入下一控件的代码
SendMessage(Handle,WM_NEXTDLGCTL,0,0)”

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

谢谢不惑的回复！你的方法好像不支持回车进入下一个文本……。

回车进入下一文本你不是有了吗？
只要加上它就可以了啊。

把下一文本框也加上就是了啊
Private Sub Text2_GotFocus()
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub
Private Sub Text3_GotFocus()
Text3.SelStart = 0
Text3.SelLength = Len(Text3.Text)
End Sub

[此贴子已经被作者于2007-9-13 9:23:21编辑过]

这么多的回答 LZ你的问题已经解决了， 剩下的是要你自己动脑子将他们的回答整合，就得到你要得功能!!!

是的我是按如下更改的，谢谢！可是按如下又有别的问题了，如我只想修改文本框内的其中一个字或一个字符，如下的方法却将文本框内的所有内容全删了。哈哈！请教此问题如何解决？


Sub Text1_KeyPress(KeyAscii As Integer) '将光标移动到下一个文本框
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
If KeyAscii = 13 Then
SendKeys "{Tab}"
KeyAscii = 0
End If
End Sub

晕，应该是单独地写
是单独的一个SUB
不要写在一起啊。
一定要写请写成这样：
Sub Text1_KeyPress(KeyAscii As Integer) '将光标移动到下一个文本框
If KeyAscii = 13 Then
SendKeys "{Tab}"
KeyAscii = 0
End If
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

是KeyAscii = 0这一句把它给清空了

[此贴子已经被作者于2007-9-13 9:29:33编辑过]