Private Shared mInstanceCount As Byte '实例个数
#Region "窗体初始化"
Public Shared ReadOnly Property InstanceCount As Byte
Get
Return mInstanceCount
End Get '
End Property
Private Sub frmFormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
mInstanceCount -= 1
End Sub
Private Sub frmLoad(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
mInstanceCount += 1
End Sub
#End Region
#Region "窗体初始化"
Public Shared ReadOnly Property InstanceCount As Byte
Get
Return mInstanceCount
End Get '
End Property
Private Sub frmFormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
mInstanceCount -= 1
End Sub
Private Sub frmLoad(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
mInstanceCount += 1
End Sub
#End Region
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货