如何在vb.net中获取窗体活动状态的值

我到处找了，找不到答案。如何获取窗体处于活动状态或非活动状态的布尔值

伪：

'If the form is active
 'Do this
'else If the form is not active
 'Do this

---

谢谢

这个怎么样？它使用的是类的形式：

    If Form.ActiveForm.Name = "yourForm" Then
        'Do Events 1 
    Else
        'Do Events 2
    End If

---

这个怎么样？它使用的是类的形式：

    If Form.ActiveForm.Name = "yourForm" Then
        'Do Events 1 
    Else
        'Do Events 2
    End If

---

这个怎么样？它使用的是类的形式：

    If Form.ActiveForm.Name = "yourForm" Then
        'Do Events 1 
    Else
        'Do Events 2
    End If

---

这个怎么样？它使用的是类的形式：

    If Form.ActiveForm.Name = "yourForm" Then
        'Do Events 1 
    Else
        'Do Events 2
    End If

---

使用此选项，它将获取活动窗口的hWnd，然后将其与窗体的hWnd进行比较

Public Declare Function GetActiveWindow Lib "user32" () As System.IntPtr
If GetActiveWindow() = Me.Handle Then
    lblIsActive.Text = "active"
Else
    lblIsActive.Text = "not active"
End If

---

使用此选项，它将获取活动窗口的hWnd，然后将其与窗体的hWnd进行比较

Public Declare Function GetActiveWindow Lib "user32" () As System.IntPtr
If GetActiveWindow() = Me.Handle Then
    lblIsActive.Text = "active"
Else
    lblIsActive.Text = "not active"
End If

---

使用此选项，它将获取活动窗口的hWnd，然后将其与窗体的hWnd进行比较

Public Declare Function GetActiveWindow Lib "user32" () As System.IntPtr
If GetActiveWindow() = Me.Handle Then
    lblIsActive.Text = "active"
Else
    lblIsActive.Text = "not active"
End If

---

使用此选项，它将获取活动窗口的hWnd，然后将其与窗体的hWnd进行比较

Public Declare Function GetActiveWindow Lib "user32" () As System.IntPtr
If GetActiveWindow() = Me.Handle Then
    lblIsActive.Text = "active"
Else
    lblIsActive.Text = "not active"
End If

---

这就是我最后使用的：

Private formActive As Boolean

Private Sub form1_Activated(sender As Object, e As EventArgs) Handles MyBase.Activated
 formActive = True
End Sub

Private Sub mainForm_Deactivate(sender As Object, e As EventArgs) Handles MyBase.Deactivate
 formActive = False
End Sub

然后：

---

这就是我最后使用的：

Private formActive As Boolean

Private Sub form1_Activated(sender As Object, e As EventArgs) Handles MyBase.Activated
 formActive = True
End Sub

Private Sub mainForm_Deactivate(sender As Object, e As EventArgs) Handles MyBase.Deactivate
 formActive = False
End Sub

然后：

---

这就是我最后使用的：

Private formActive As Boolean

Private Sub form1_Activated(sender As Object, e As EventArgs) Handles MyBase.Activated
 formActive = True
End Sub

Private Sub mainForm_Deactivate(sender As Object, e As EventArgs) Handles MyBase.Deactivate
 formActive = False
End Sub

然后：

---

这就是我最后使用的：

Private formActive As Boolean

Private Sub form1_Activated(sender As Object, e As EventArgs) Handles MyBase.Activated
 formActive = True
End Sub

Private Sub mainForm_Deactivate(sender As Object, e As EventArgs) Handles MyBase.Deactivate
 formActive = False
End Sub

然后：

---

我尝试此操作并得到以下错误：“对象引用未设置为对象的实例”。我尝试此操作并得到以下错误：“对象引用未设置为对象的实例”。我尝试此操作并得到以下错误：“对象引用未设置为对象的实例”。我尝试此操作并得到以下错误：“对象引用未设置为对象的实例。“没有，你必须自己做。使用激活和停用事件。这很有意义！没想过，谢谢。没有，你必须自己做。使用激活和停用事件。这很有意义！没想过，谢谢。没有，你必须自己做。使用激活和停用事件。这很有意义！没想过，谢谢。没有，你必须自己做。使用激活和停用事件。这很有意义！我从没想过，谢谢。