Vb6.0 SP6
POPUPMENUに動的にメニューを追加する方法をご存知でしたら御願いします
右クリックメニューで予めメニューエデイタで登録したメニューではなく
プログラムで求めた不特定な数の名称でPOPUPメニューを作成表示したいのですが
方法を教えていただければと思います。よろしく御願いします。

階層構造が無ければメニュー配列で。
階層構造があるならばAPI関数での直接の生成・表示が必要でしょう。

> 階層構造が無ければメニュー配列で。
> 階層構造があるならばAPI関数での直接の生成・表示が必要でしょう。
お返事ありがとうございます。
「API関数での直接の生成・表示」の方法を知りたいのですが、
検索で見つけることができませんでした
方法がわからないので「メニューに非表示で300件くらいINDEXつきで登録してCAPTIONを変更して非表示
を表示にする方法」で対応しようかと思っています

> 「API関数での直接の生成・表示」の方法を知りたいのですが、
> 検索で見つけることができませんでした
CreatePopupMenu …かな。

> > 「API関数での直接の生成・表示」の方法を知りたいのですが、
> > 検索で見つけることができませんでした
> CreatePopupMenu …かな。
    Dim oMenu As cPopupMenu
    Dim lMenuChosen As Long
    If Button = vbRightButton Then
        Set oMenu = New cPopupMenu
        lMenuChosen = oMenu.Popup("Menu 1", "Menu 2", "Menu 3",
_
                "-", "Menu 4")
    End If
単純には上記でできましたけど、
セパレーターは"-"なんですけど、ネスト（字下げ）する方法がわかりません

> > CreatePopupMenu …かな。
> セパレーターは"-"なんですけど、ネスト（字下げ）する方法がわかりません

こんにちは。
ネスト（字下げ）＝階層構造 として・・・
CreatePopupMenu API、AppendMenu API で階層構造メニューを作るなら

Level1-1
Level1-2
Level2 > Level2-1
         Level2-2
         Levle3 > Level3-1

この場合 Level3-1 から 作らないといけませんが。

> Level1-1
> Level1-2
> Level2 > Level2-1
>          Level2-2
>          Levle3 > Level3-1
>
> この場合 Level3-1 から 作らないといけませんが。
お返事ありがとうございます
そうなんです。その方法を模索しています

> > この場合 Level3-1 から 作らないといけませんが。

とは言ったものの、上のレベルのハンドルがわかれば
AppendMenu で 追加できるので、なんとかなりそうな気もしますが・・・
実際のところどうなんでしょう？

こんなんでどうかなと思ったのですがダメダメですわ。
（掲載する価値も無いか）

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