如何让指定的文本框有内容方可让光标离开

lzgbc · 发表于 2011-10-20 14:34

本帖最后由 lzgbc 于 2011-10-21 10:18 编辑

请教前辈,我想实现这样的功能不知可否.就是如何让光标在指定的文本框(即红色标记)内输入信息后,光标方可离开.

lzgbc · 发表于 2011-10-21 10:20

有老师在吗

roych · 发表于 2011-10-21 20:52

其实，你可以换个角度来思考的。

例如，这里只有两个文本框和关闭按钮。因此只要当前窗体还是活动窗体（也就是没切换到其它应用程序或者最小化窗体）时，那么鼠标的事件只有两个：要么关闭窗体，要么文本框1获取焦点。

因此，当执行这两个事件时，开始判断另一个文本框是否为空，为空则该文本框获取焦点即可。由此，可以编写代码如下：

'这个事件比较严重。当没有输入时将无法退出，同时也无法进入设计模式，请慎用。
Private Sub Form_Unload(Cancel As Integer)
If IsNull(Me.Text2) Then
Cancel = True
Me.Text2.SetFocus
End If
End Sub
'这个是获取焦点事件。Text2无输入时，则获取焦点。这样就使得焦点永远处于Text2位置，除非有输入。
Private Sub Text0_GotFocus()
If IsNull(Me.Text2) Then Me.Text2.SetFocus
End Sub

复制代码

lzgbc · 发表于 2011-10-24 14:17

恩,我的问题解决了,谢谢.在实际应用中,并不是只有两个文本框的..

lzgbc · 发表于 2011-10-24 21:35

本帖最后由 lzgbc 于 2011-10-24 21:35 编辑

如果有三个文本框以上的时候,那么应该如何控制呢

roych · 发表于 2011-10-25 18:46

其实，对于多个文本框，我们往往是用有效性，再加上VBA代码判断，最后才确定是否保存的。

lzgbc · 发表于 2011-10-26 17:14

我不想用这样的判断.希望可以实现空值,光标不允许离开.这样能做到吗?

roych · 发表于 2011-10-28 02:32

简单问题复杂化。

ly · 发表于 2011-10-28 08:00

Private Sub Text2_LostFocus()
If IsNull(Me.Text2) Then
MsgBox "No Data"
Me.Text0.SetFocus
Me.Text2.SetFocus
End If
End Sub

复制代码

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

[求助] 如何让指定的文本框有内容方可让光标离开