一个文本框用来输入日期,相邻的一个button用来调用时钟控件来向文本框中输入日期,(文本框tagindex = 1,button的tagindex = 2)。
现在有一个对日期的判断处理,一定要在文本框的lost_focus事件里作,但要求点击上面提到的button时不作对日期的判断处理,不知道该怎么处理了,请教高手
(在文本框上用tab键移动到button上时,要进行对日期的判断处理)
现在有一个对日期的判断处理,一定要在文本框的lost_focus事件里作,但要求点击上面提到的button时不作对日期的判断处理,不知道该怎么处理了,请教高手
(在文本框上用tab键移动到button上时,要进行对日期的判断处理)
解决方案 »
- 从csv格式导入到数据库代码
- 遍历工程的所有窗体,怎么写啊
- MSFlexGrid另用:可不可以把MSFlexGrid一个格子里的东西很快的移到另一个格子?
- ★★★API中画线如何设定其粗细和反转笔方式来画??
- 请帮忙啊!
- 请问,哪一本VB6参考书是专门按分类讲解函数、事件等的(而不是按字母顺序讲解函数、事件等),比如字符串函数、网络函数、标准函数、...
- 高分请教,怎样用API删除指定的子项。好像在Win2K中用RegDeleteKey,如果想删除的子项中还有子项,不能删除。我贴了代码,那位帮我完善我
- 删除重复行的问题???
- 江西的老乡,帮帮忙吧
- 窗体自动改变时,SSTAB控件可以自动改变大小,但是为何SSTAB每个TAB下的控件却不见了。
- 如何获得qq的信息,并回复??
- 如何调用oledb连接对话框
flag = true
end subprivate sub command1_setfocus()
if flag then
flag = false
exit sub
else
'判断日期,处理
endif
end sub
这样如何?
If KeyAscii = 9 Then
MsgBox "处理失去焦点"
End If
End Sub
to rainivy(Rain):
如果 判断日期处理 一定要在text1_lostfocus()中呢?(式样书变态:))to dongge2000
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
End SubPrivate Sub Text1_LostFocus()
End Sub
都设置了断点,可是直接就走了Text1_LostFocus()
继续请教
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
End Sub
这些事件只有在按下除Tab外的其它健才会首先执行
你要明白VB控件焦点转移时事件的发生顺序,
焦点转移时,当前焦点控件先发生lostfocus事件,然后获得焦点的控件发生GotFocus事件。可见在text1_lostfocus时,还不知道下一个获得焦点的控件是谁!
怎么能让程序确定将来发生的事呢?这本不是什么难事,但你若非要这么“变态”的要求答案的话,此题“无解”!
Command2.TabIndex = 0
Text1.TabIndex = 1
Command1.TabIndex = 2
Command1.CausesValidation = False
End SubPrivate Sub Text1_Validate(Cancel As Boolean)
If Not IsDate(Text) Then MsgBox "err"
Cancel = True
End Sub
Text1 = Format(Now, "yyyy-mm-dd")
End Sub
Text1 = Format(Now, "yyyy-mm-dd")
End SubPrivate Sub Form_Load() '
Command2.TabIndex = 0
Text1.TabIndex = 1
Command1.TabIndex = 2
Command1.CausesValidation = False
End SubPrivate Sub Text1_Validate(Cancel As Boolean)
If Not IsDate(Text1) Then
MsgBox "err"
Cancel = True
End If
End Sub