VB6 - 以編程方式創建子菜單項

我正在使用VB6項目，並且有一個現有菜單，使用菜單創建者創建。我無法以編程方式在MenuItem中插入subMenu。VB6 - 以編程方式創建子菜單項

第一個菜單是文件。它包含兩個菜單項：選擇和退出。

我想在Choice中的運行時插入查詢的每一行（只有第一列）。

我的記錄工作得很好，但我需要在下面的代碼一些幫助：

Do While rs_choice.EOF = False 
    'add column1 in Choice 
    '~Something~ = rs_choice.Fields("column1").Value 
    rs_choice.MoveNext 
Loop

PS：沒有人的MenuItems定義指標。

有人可以幫助我嗎？

來源

2016-03-15 nbadaud

使用設計師給Choice一個名爲mnuDynamic的子項目，給它一個索引0。

循環記錄加載新項目：

Dim i as long 

Do While rs_choice.EOF = False 
    If (i > 0) Then Load mnuDynamic(i) 

    mnuDynamic(i).Caption = rs_choice.Fields("column1").Value 

    rs_choice.MoveNext 
    i = (i + 1) 
Loop

來源

2016-03-15 16:02:24

看來工作，但我有一個錯誤，當我嘗試使用Visible屬性：'「看得見的」屬性不能爲這個control'定義。是因爲它是一個動態菜單嗎？ – nbadaud

你想顯示/隱藏 –

我試過這個：'如果rs_choice.Fields（「column2」），Value = 0那麼mnuDynamic（i）.Visible = True'。這給了我以前的錯誤 – nbadaud

VB6 - 以編程方式創建子菜單項

回答

相關問題