標題: [發問] 要怎麼傳遞Class變數值到 模組使用 [打印本頁]

---

作者: blue2263    時間: 2023-3-28 12:00     標題: 要怎麼傳遞Class變數值到 模組使用

本帖最後由 blue2263 於 2023-3-28 12:13 編輯

請教如何在Module1讀取到Class1的變數值
[attach]36048[/attach]
[attach]36049[/attach]

---

作者: Andy2483    時間: 2023-3-28 13:50

本帖最後由 Andy2483 於 2023-3-28 13:52 編輯

回復 1# blue2263


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

---

作者: singo1232001    時間: 2023-3-29 03:00

本帖最後由 singo1232001 於 2023-3-29 03:01 編輯

回復 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    時間: 2023-3-29 08:25

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

---

作者: blue2263    時間: 2023-3-29 08:26

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

---

作者: Andy2483    時間: 2023-3-29 08:57

本帖最後由 Andy2483 於 2023-3-29 08:58 編輯

回復 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)