如何将光标返回textbox1中

mingtian9039 · 发表于 2007-6-21 15:06

如何将光标返回textbox1中

Jg7lyqMt.rar (11.87 KB, 下载次数: 130)

yuanzhuping · 发表于 2007-6-21 15:15

你不是已经做到了？

mingtian9039 · 发表于 2007-6-21 15:23

当textbox1输入有时，不能返出现对话框后，光标自动跳入textbox2,不能返回textbox1，请yuanzhuping老师帮忙解决

yuanzhuping · 发表于 2007-6-21 15:29

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Sheets("sheet3").Cells(1, 1).Value = TextBox1.Value
    If Sheets("sheet3").Cells(1, 3).Value = Sheets("sheet3").Cells(1, 1).Value Then
        MsgBox "卡号已存在，请核实！" & "卡号：" & Sheets("sheet3").Cells(1, 1).Value & "姓名：" & Sheets("sheet3").Cells(1, 2).Value
        TextBox1.Value = ""
        Cancel = True
        TextBox1.SetFocus
    Else
        TextBox2.SetFocus
    End If
End Sub

试试。

mingtian9039 · 发表于 2007-6-21 18:16

可以了，非常感谢

gdzsk · 发表于 2007-6-24 16:47

在Exit事件中是不能使用SetFocus方法的，yuanzhuping的方法是正确的。

liechun1983 · 发表于 2010-2-23 10:39

学习了，谢谢！

		自动登录	找回密码
密码			免费注册