# 请问有关游标驻点问题

Posted by 阿东 on February 08, 1998 at 19:31:57:

劣者的物件是text1 text2 command1 劣者想当程式执行
时1.游标在text1上2.当在text1 key in *时 游标
在text2 3.在key in 0游标出现在command上请问劣者的
程式错误在哪里 如何修正才达到上面的要求 谢谢

Private Sub Form_Load()
Text1.SetFocus**********为何错误
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
'当key in 第一个字母时就开始判断
If Len(Text1) = 0 Then
'当TEXT1.TEXT=* 时就游标出现在TEXT2但确没有
If Left(Text1, 1) = "*" Then
Text2.SetFocus
End If
'当TEXT1.TEXT=0 游标出现在COMMAND1上但确没有
If Left(Text1, 1) = "0" Then
Command1.SetFocus
End If
End If
End Sub

Follow Ups:

- Re: 请问有关游标驻点问题 小刘 22:13:39 2/08/98 (0)