Me.ActiveControl

Question

vb6中，点击主画面的A按钮，显示B画面，在B画面中直接将B画面关闭，之后会设置C控件获得Focus，并且设置A按钮的Enabled = False，最后会触发主画面的Activated事件，在该事件中，可以使用Me.ActiveControl获取活性控件，获得的控件是设置Focus的C控件，但是该流程在VB.net中，通过Me.ActiveControl获取的控件是点击的A按钮，vb.net如何能做到和vb6一致的效果，能准确地获取到当前设置Focus的控件

Answer 1

以下内容由CHATGPT及笑面虎共同生成、有用望采纳：

---

【您想要解决的问题】： 您想要解决的问题是在VB.NET中实现与VB6相似的行为，即在关闭一个子窗体后，能够通过Me.ActiveControl获取到当前设置焦点的控件，而不是获取到触发Activated事件的控件（在您的例子中是A按钮）。

【问题出现原因】： VB.NET和VB6在处理控件焦点和事件触发方面的行为可能存在差异。在VB6中，Me.ActiveControl可能更倾向于返回最近设置焦点的控件，而在VB.NET中，Me.ActiveControl可能返回的是触发Activated事件的控件。这种差异可能是由于两个框架在控件生命周期和事件处理上的不同实现导致的。

【问题解决方案】： 为了在VB.NET中实现类似的功能，您可能需要手动管理控件的焦点，而不是依赖Me.ActiveControl。以下是一种可能的解决方案：

1. 在B画面关闭前，记录下您希望设置焦点的控件（C控件）。
2. 在主画面的Activated事件中，检查这个记录的控件是否有效，并且如果有效，则将其设置为活动控件。

【提供代码】： 以下是一个简化的示例代码，展示了如何在VB.NET中实现这一逻辑：

' 假设您有一个变量用于记录需要设置焦点的控件
Private lastFocusedControl As Control

' 在B画面关闭前，设置这个变量
Private Sub CloseBForm()
    lastFocusedControl = CControl ' 假设CControl是您想要设置焦点的控件
    Me.Close() ' 关闭B画面
End Sub

' 在主画面的Activated事件中
Private Sub MainForm_Activated(sender As Object, e As EventArgs) Handles MyBase.Activated
    ' 检查lastFocusedControl是否已经被设置，并且是有效的
    If lastFocusedControl IsNot Nothing AndAlso lastFocusedControl.Visible AndAlso lastFocusedControl.Enabled Then
        lastFocusedControl.Focus()
        AButton.Enabled = False ' 设置A按钮的Enabled属性
    End If
End Sub

【代码运行方式】： 这段代码应该放在VB.NET的Windows窗体应用程序中。您需要将CControl替换为您希望设置焦点的实际控件变量，将AButton替换为实际的按钮变量。运行环境应该是支持VB.NET的.NET Framework或.NET Core/5+。

【代码预期运行结果】： 当您关闭B画面时，主画面的Activated事件会被触发，并且C控件会获得焦点，同时A按钮的Enabled属性会被设置为False。

【推荐相关链接】：

• Microsoft Documentation on VB.NET
• VB.NET Migration from VB6
• VB.NET Focus and Selection
• VB.NET Control Events