'物件類別模組/Class1
Public strMsg As Long
'↑宣告 strMsg是長整數(全域共用變數)
Sub Init()
strMsg = 33
'↑令strMsg這長整數是 33
End Sub
===============================
'模組/Module1
Dim FAPI As New Class1
'↑宣告FAPI是 Class1物件類別模組裡的新變數
Sub TEST()
FAPI.Init
'↑執行FAPI變數裡的 Init程序
MsgBox FAPI.strMsg
'↑跳出提示窗,顯示執行FAPI變數裡的Init程序後的strMsg全域共用變數長整數值
Set FAPI = Nothing
'↑釋放物件變數
End Sub
發表於 2023-3-28 13:50
| 