|
クラスモジュールの勉強をしています。
Userform1の中のテキストボックスをクリックしたら、data="222"の222を
テキストボックスに入れたいのですがうまくできません。
(テキストボックス2個あります)
何方か対策を教えて下さい。
'Userform1のモジュールに
Private FrmTextBox(1 To 2) As New Class2
Private Sub UserForm_Initialize()
Dim i As Long
For i = 1 To 2
With FrmTextBox(i)
.Item2 = Me.Controls("TextBox" & i)
End With
Next i
End Sub
'======================================
'Class2のモジュールに
Private WithEvents MyCtrl2 As MSForms.TextBox
Public Property Let Item2(NewCtrl As MSForms.TextBox)
Set MyCtrl2 = NewCtrl
End Property
Private Sub MyCtrl2_Click()
data = "222"
MyCtrl2.Text = data
End Sub
|
|