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
uj5u.com熱心網友回復：
我需要裝個vs.net環境，看看代碼的意思。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/84130.html
標籤：VB基礎類
上一篇：表單初始化