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