|
ラベルでやると、問題なくできます。下記コードです。
前述のテキストボックスでできる方法を、どなたか教えて下さい。
'Userform1のモジュールに
Private FrmLabel(1 To 2) As New Class2
Private Sub UserForm_Initialize()
Dim i As Long
For i = 1 To 2
With FrmLabel(i)
.Item = Me.Controls("Label" & i)
End With
Next i
End Sub
'======================================
'Class2のモジュールに
Private WithEvents MyCtrl As MSForms.Label
Public Property Let Item(NewCtrl As MSForms.Label)
Set MyCtrl = NewCtrl
End Property
Private Sub MyCtrl_Click()
data = "222"
MyCtrl.Caption = data
End Sub
|
|