投稿日 | : 2006/07/04(Tue) 11:27 |
投稿者 | : ダンボ |
Eメール | : |
URL | : |
タイトル | : 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