MainForm相當於一個class,MainForm.show只有本身顯示 Dim MainF As New MainForm 產生一個MainF對象 Call MainF.Show 相當一個副本一樣顯示出來 再定義一個 Dim MainR As New MainForm Call MainR.Show 又一個同樣得窗顯示出來 跟MainF非同一個
TO:haipingma(今天你过得快乐吗?) 我还有个问题 Dim MainF As New MainForm 產生一個MainF對象 Call MainF.Show 相當一個副本一樣顯示出來 我给Mainf定义了几个属性.比如ID,Info Private ID As Integer Private Info As String Public Property Let LetID(ByVal vdata As Integer) ID = vdata End Property Public Property Get GetID() As Integer GetID = ID End Property 然后在使用了show 方法以后, Mainf.LetID =100 Mainf.LetInfo = "窗口信息" 可是我在Mainf窗口中再次调用的时候.GetID始终为0(因为是integer)Getinfo始终为""(string) 是不是我有那里不对?
Dim MainF As New MainForm 產生一個MainF對象
Call MainF.Show 相當一個副本一樣顯示出來
再定義一個
Dim MainR As New MainForm
Call MainR.Show 又一個同樣得窗顯示出來 跟MainF非同一個
退出程序需要释放所有的内存(特别是那些需要程序员手工释放的内存),避免内存泄漏
最后unload 掉所有的窗体
我还有个问题
Dim MainF As New MainForm 產生一個MainF對象
Call MainF.Show 相當一個副本一樣顯示出來
我给Mainf定义了几个属性.比如ID,Info
Private ID As Integer
Private Info As String
Public Property Let LetID(ByVal vdata As Integer)
ID = vdata
End Property
Public Property Get GetID() As Integer
GetID = ID
End Property
然后在使用了show 方法以后,
Mainf.LetID =100
Mainf.LetInfo = "窗口信息"
可是我在Mainf窗口中再次调用的时候.GetID始终为0(因为是integer)Getinfo始终为""(string)
是不是我有那里不对?