| 投稿日 | ： 2006/07/04(Tue) 11:27 |
| 投稿者 | ： ダンボ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: POPUPMENUに動的にメニューを追加する方法 |
こんなんでどうかなと思ったのですがダメダメですわ。
（掲載する価値も無いか）
Dim M_TOP As Menu, M_LIST() As Menu, oM_TOP As Object
Dim i As Integer
Set oM_TOP = Form1.Controls.Add("VB.Menu", "M_TOP")
M_TOP.Visible = True
M_TOP.Caption = "Test(&T)"
M_TOP.Enabled = True
ReDim M_LIST(5)
For i = 0 To 5
Set M_LIST(i).Parent = M_TOP
M_LIST(i).Caption = "TestMenu" & i & "(&" & i & ")"
M_LIST(i).Enabled = True
M_LIST(i).Visible = True
Next i