首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

关于LostFocus事件,该如何处理

2012-03-15 
关于LostFocus事件当双击一个textbox控件,弹出一个窗口,以供选择值,但不要让它触发LostFocus事件lostfocus

关于LostFocus事件
当双击一个textbox控件,弹出一个窗口,以供选择值,但不要让它触发LostFocus事件
lostfocus事件是我处理textbox值的,请问该如何做?

[解决办法]
'不知道有没有好办法
Option Explicit

Private m_blnDBL As Boolean

Private Sub Text1_DblClick()
m_blnDBL = True
Form2.Show vbModal
End Sub

Private Sub Text1_LostFocus()
If m_blnDBL = False Then
MsgBox "Text1_LostFocus "
End If
m_blnDBL = False
End Sub
[解决办法]
lostfocus事件是我处理textbox值的
=================================
这种事情最好在Validate事件中做
使用Validate事件,完全可以避免你现在的问题
[解决办法]
Private Sub DB()
MsgBox "DblClick "
End Sub

Private Sub Text1_DblClick()
DB
End Sub

Private Sub Text1_LostFocus()
LF
End Sub
Private Sub LF()
MsgBox "LostFocus "
End Sub

热点排行