Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31626 / 76738

←次へ　｜　前へ→


	【50359】Re:クラス変数（？）の作り方

neptune - 07/7/20(金) 21:28 -


	引用なし

	パスワード

▼りったさん：
>Privateで宣言してもオブジェクト毎に変数が作られました。
>クラスで共通の変数は作れますか？
共通のClassを用意するしか思い浮かびませんでした。

最悪としては標準モジュールに広域変数を用意して共通の変数にするとか
も浮かびましたけどさすがにそれは出来ませんね。
'////////////標準モジュール//////////////
Sub main()
Dim cls1 As New Class1
Dim cls2 As New Class1
Dim clsData As New Class2

　　Set cls1.SetCommonCls = clsData
　　Set cls2.SetCommonCls = clsData
　　
　　cls1.SetData = 1
　　cls2.SetData = 2
　　
　　Debug.Print cls1.GetData
　　
End Sub

'///////////Class1///////////////
Private mcls As Class2

Public Property Set SetCommonCls(pData As Class2)
　　Set mcls = pData
End Property
Public Property Let SetData(pData As Long)
　　mcls.SetData = pData
End Property
Public Property Get GetData() As Long
　　GetData = mcls.GetData
End Property

'//////////////Class2///////////////
Private mData As Long

Public Property Let SetData(pData As Long)
　　mData = pData
End Property
Public Property Get GetData() As Long
　　GetData = mData
End Property

3 hits

▼

【50357】クラス変数（？）の作り方 りった 07/7/20(金) 20:25