[發問] 要怎麼傳遞Class變數值到 模組使用

blue2263

請教如何在Module1讀取到Class1的變數值

下載 (23.28 KB)

2023-3-28 11:58

活頁簿.rar (10.61 KB)

下載次數: 4

2023-3-28 11:58

Andy2483

回復 1# blue2263


    謝謝前輩發表此主題與範例
請前輩先參考範例檔:
http://forum.twbts.com/thread-22560-1-5.html

singo1232001

回復 1# blue2263


Dim FAPI As New Class1

Sub 動作1()  '執行物件類別模組 class1內的init程序
FAPI.Init
End Sub
'執行完畢後 class1 內的共用變數strMsg 就會有33 並不會消滅

Sub 動作2()  '將class1(FAPI)內 的變數strMsg 提取出來
MsgBox FAPI.strMsg
End Sub

blue2263

回復 3# singo1232001
感謝回覆,了解了

blue2263

回復 2# Andy2483
感謝資料提供,收下研究,謝謝

Andy2483

回復 3# singo1232001


    謝謝前輩指導
物件類別模組很少範例,不知道用途是什麼,初步知道如何傳遞變數
以下心得註解,請前輩再指導

'物件類別模組/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