才学VB6,为什么用Enter回车键光标不能从Text1到Text2
要怎么写代码?
我用

If KeyAscii = 13 Then Text2.SetFocus


行吗

[[it] 本帖最后由 看学 于 2008-3-13 17:04 编辑 [/it]]

把每个TabIndex顺序设置好

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub

谢谢!!!
再请教KeyPress事件会不会引起控件的.Caption 的文本
因为帮助里说，改变 keyascii 参数的值会改变所显示的字符

[[it] 本帖最后由 看学 于 2008-3-13 21:44 编辑 [/it]]

KeyPress事件会不会引起控件的.Caption 的文本-------风马牛不相及！

完全可以做到的，看一下课本,这个不难解决,
自己需要动下脑哦

本人才学VB6,不懂,请教代码

顶上去

Private Sub txtFields_GotFocus(Index As Integer)
txtFields(Index).SelStart = 0
txtFields(Index).SelLength = Len(txtFields(Index))
End Sub

Private Sub txtFields_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
        If Index = txtFields.Count - 1 Then
            txtFields(0).SetFocus
        Else
            txtFields(Index + 1).SetFocus
        End If
    ElseIf KeyCode = vbKeyUp Then
        If Index = 0 Then
            txtFields(txtFields.Count - 1).SetFocus
        Else
            txtFields(Index - 1).SetFocus
        End If
    End If
End Sub