VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/01/17(Sat) 16:01 |
| 投稿者 | ： おじん |
| ＵＲＬ | ： |
| タイトル | ： クラスモジュールの変数について |
一つのクラスモジュールを２度定義して使おうとしています。この場合、
クラスで定義されている変数が共有されてしまします。別々に使用する
方法はありませんか。
下記のようなテストをしたところ、クラスのaという変数がaSub,bSub
両方で加算されてしまいます。aSubのaとbSubのaを別物として処理した
いのです。
フォームで、
Option Explicit
Dim aSub As New addClass
Dim bSub As New addClass
Private Sub Command1_Click()
Dim b1 As Long
aSub.add 1&
b1 = aSub.aValue
Text1 = b1
End Sub
Private Sub Command2_Click()
Dim b2 As Long
aSub.add 2&
b2 = aSub.aValue
Text2 = b2
End Sub
クラスで、
Option Explicit
Dim a As Long
Public Property Get aValue() As Long
aValue = a
End Property
Public Sub add(aV As Long)
a = a + aV
End Sub
またまた、説明がうまくできたかどうか不安です。ご理解できましたら
よろしくお願いいたします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）