关于ImText的Leave事件和Button的MouseDown事件触发顺序的问题

在VB6的Source里，如果鼠标左键单击“取消”按钮，会取消ImText的Leave事件。
比如：
Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        bolCancelf = True
    End If
End Sub
Private Sub imt_Test_LostFocus()
    If bolCancelf = True Then
    Else
        ...
    End IF
Exit Sub

但是移行到VB.net的时候，会先触发LostFocus事件，然后才触发MouseDown事件。这样的话会多走一些逻辑，造成VB6跟VB.net的效果不一致了。

这个问题如何解决？

事件的顺序遵循.net标准，所以你应当对的你代码做出修改，在button的click或MouseDown事件里处理你的逻辑。

回复 2楼linnerchen的帖子

但是那样的话我的光标从InputMan里面离开的处理就没了。

那个啥，我猜测按照你的代码的写法，在 InputMan 控件的 LostFocus 事件里面，你是期望做这样的逻辑判断：如果用户按下了 Cancel 按钮，我就什么都不处理，否则处理一些诸如值校验的逻辑，对么？

回复 4楼Leo的帖子

对，就是这个想法。。。

.NET 提供了另一套解决方案叫做 Validation。
你看看这个模型适合不？

1. Public Class Form1
   
2. 
   
3.     Dim _cancelButtonClick = False
   
4. 
   
5.     Protected Overrides Sub OnLoad(e As EventArgs)
   
6.         MyBase.OnLoad(e)
   
7.         ' Cancel Button.
   
8.         Me.Button1.CausesValidation = False
   
9.     End Sub
   
10. 
    
11.     Private Sub TextBox1_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
    
12.         Debug.WriteLine(e.Cancel)
    
13.     End Sub
    
14. 
    
15.     Private Sub TextBox1_Validated(sender As Object, e As EventArgs) Handles TextBox1.Validated
    
16.         If (_cancelButtonClick) Then
    
17.             Return
    
18.         Else
    
19.             ' Do your validation logic here.
    
20.         End If
    
21.     End Sub
    
22. 
    
23.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
24.         _cancelButtonClick = True
    
25.         Me.Close()
    
26.         _cancelButtonClick = False
    
27.     End Sub
    
28. End Class

复制代码