16,549
社区成员
发帖
与我相关
我的任务
分享
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If a = True Then
MsgBox("safalj")
a = False
End If
End Sub
Module Module1
Public a As Boolean = False
End Module
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim f2 As New Form2
f2.Show()
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
a = True
End Sub
End Class
Public Class Form2
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If a = True Then
MsgBox("safalj")
a = False
End If
End Sub
End Class
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
a = True
End Sub