クラスモジュールでどのようにパブリック変数を使用しますか？

Question

クラスモジュールを使用して、保存ボタンのコレクションをすべて同じようにしています。しかし、変数を必要とするサブを実行させようとすると、変数を渡すことができません。

@ Teaselのプロパティに関するアドバイスを使用して編集されました。この問題は、Let PropertyがModule1から変数を設定することを許可していないようです。

Class1の

Public WithEvents SaveBtn As MSForms.CommandButton 

Dim currentrow As Long 

Private Sub SaveBtn_Click() 
    SendMessage 
    `Even if I just have it Msgbox currentrow it returns 0 
End Sub 

Property Let GetRow(myrow As Long) 
    currentrow = myrow 
End Property 

Property Get GetRow() As Long 
    GetRow = currentrow 
End Property 

Module1の

`Trying to send the value into the Class using Let 
Private Sub SendRow_Click() 
Module1.GetRow = 22 
End Sub 

`Trying to Get the value back from the Class 
Public Sub SendMessage() 
    Dim therow As Long 
    therow = Module1.GetRow 
    `I get the "Method or Data Member not found" error in the line above 
    MsgBox therow 
End Sub 

UserForm1で

`This part works fine 
Dim colSaveButtons As New Collection 

Private Sub UserForm_Initialize() 

Dim i As Long 
Dim ctl As MSForms.Control 
Dim obEvents As Class1 

For Each ctl In Me.Controls 
    If TypeOf ctl Is MSForms.CommandButton Then 
     For i = 0 To 5 
      If ctl.Name = "btnSavePage" & i Then 
       Set obEvents = New Class1 
       Set obEvents.SaveBtn = ctl 
       colSaveButtons.Add obEvents 
      End If 
     Next 
    End If 
Next ctl 
End Sub 

Answer 1

は、あなたのクラスモジュールに "currentRowの" フィールドを追加します。で

Public WithEvents SaveBtn As MSForms.CommandButton 
Public CurrentRow As Long '<< add this 

Private Sub SaveBtn_Click() 
    SendMessage CurrentRow 
End Sub 

をあなたのループ：

... 
If ctl.Name = "btnSavePage" & i Then 
    Set obEvents = New Class1 
    obEvents.CurrentRow = 10 'or whatever... 
    Set obEvents.SaveBtn = ctl 
    colSaveButtons.Add obEvents 
End If 
... 

そして、あなたのSendMessage方法：

Public Sub SendMessage(CurrentRow As Long) 
    MsgBox "This works" 
End Sub 

Answer 2

あなたはそれを達成するには、2つの貴様の方法を使用することができます。

---

1.公開プロパティ

簡単にアクセスするには、あなたの変数の値は、プロパティを取得し、あなたはレッツプロパティを必要とし、その値を設定する必要があります。お使いのモジュールで

：

'Your module private variable 
Dim nameOfYourModuleVariable As String 

... 

'Set property to assign a value to your variable 
Public Property Let nameOfYourProperty(value As String) 
    nameOfYourModuleVariable = value 
End Property 

'Get property to return the value of your variable 
Public Property Get nameOfYourProperty() As String 
    nameOfYourProperty = nameOfYourModuleVariable 
End Property 

あなたは、このようにそれを使用することができます：

'Set the value 
MyModule.nameOfYourProperty = "foo" 

'Get the value 
MyModule.nameOfYourProperty 

は、私は非常にあなたが単にpublicとして、あなたの変数を設定することができますが、そのようなことを行うためにプロパティを使用することをお勧めしますポイント2に示されるように。

---

2.公共変数

公共に変数を定義すると、どこからでもアクセスできます。お使いのモジュールで

：

Public nameOfYourVariable As String 

別のモジュールから値を取得または設定します。

'Set the value 
MyModule.nameOfYourVariable = "foo" 

'Get the value 
MyModule.nameOfYourVariable