|
▼Kobasan さん:
こんばんは。
>ラベルでやると、問題なくできます。下記コードです。
>前述のテキストボックスでできる方法を、どなたか教えて下さい。
テキストボックスには、Clickイベントがないですよね?
>Private Sub MyCtrl2_Click()
と記述してもこれは、イベントプロシジャーでは
ありません。
マウスダウンイベントで代用しましょう
Private Sub MyCtrl2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
data = "222"
MyCtrl2.Text = data
End Sub
>
>'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
|
|