|
いつもお世話になっています。
ユーザーフォームの中にフレームを置き、
検索結果を表示させたく、下記のようにテストしていたのですが、
追加したボタンにマクロを割り当てる方法が分かりません。
「OnAction」は使えないのでしょうか?
(下記テストでは20個ですが、実際には不定です)
よろしくお願いします。
Private Sub CommandButton1_Click()
Dim i As Long
Dim txtb As Object
Dim cmdb As Object
For i = 0 To 19
Set txtb = Frame1.Controls.Add("Forms.TextBox.1", "testt" & i, True)
With txtb
.Top = 5 + i * 20
.Left = 5
.Height = 18
.Width = 100
End With
Set cmdb = Frame1.Controls.Add("Forms.CommandButton.1", "testc" & i, True)
With cmdb
.Top = 5 + i * 20
.Left = 110
.Height = 18
.Width = 40
.Caption = "test" & i + 1
' .OnAction = "testprc" '←これは使えない??
End With
Next i
Frame1.ScrollHeight = 5 + i * 20
End Sub
Sub testprc()
MsgBox "ok"
End Sub
|
|