|
▼りった さん:
こんばんは。
>Privateで宣言してもオブジェクト毎に変数が作られました。
>クラスで共通の変数は作れますか?
>
>' クラスモジュール
>Private pri As Integer
>Public Sub setpri(ByVal a As Integer)
> pri = a
>End Sub
>Public Function getpri() As Integer
> getpri = pri
>End Function
>
>' 標準モジュール
>Sub main()
> Dim c1 As New Class1
> Dim c2 As New Class1
> Dim i As Integer
>
> c1.setpri (1)
> c2.setpri (2)
> i = c1.getpri ' iは1でした
>End Sub
>
>ちなみに下記はエラーでした
>Static pri As Integer
はっきり意味(何をしたいのか)わかりませんが、
Implementsステートメントのことでしょうか?
上記のステートメントを一度Helpで調べてみてください。
|
|