# Re: 请问有关游标驻点问题

Posted by 小刘 on February 08, 1998 at 22:13:39:

In Reply to: 请问有关游标驻点问题 posted by 阿东 on February 08, 1998 at 19:31:57:

: Private Sub Form_Load()
: Text1.SetFocus**********为何错误
: End Sub
其实这个不用设，只要 Text1 的属性 TabIndex 把它设成 0 自然就会
启动了，如果一定要设的话，就要设在 Form_Activate()

: 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
这个问题，参考下面的内容
Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 42 Then Command1.SetFocus '*
If KeyAscii = 48 Then Text2.SetFocus '0

End Sub

Follow Ups: