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

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

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

活頁簿.rar (10.61 KB)

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

6^#

發表於 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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

blue2263

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

5^#

發表於 2023-3-29 08:26 | 只看該作者

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

TOP

blue2263

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

4^#

發表於 2023-3-29 08:25 | 只看該作者

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

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

3^#

發表於 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

TOP

Andy2483