双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

运行时怎么建立菜单？

2009-10-28 03:30:05 116 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

wang3358 墨衍会员 · AI 创作全网分发关注 + 加入社区

建立QTreeWidget下QTreeWidgetItem的右键菜单基本思路：　　这里要考虑的问题有两个，一个是QTreeWidgetItem的右键功能，一个是确认点击右键之后实现菜单功能。关于QTreeWidgetItem下右键的功能的实现，使用QTreeWidgetItem信号，然后判断是否按下的为鼠标右键。关于菜单功能的实现，则是创建一个QMenu对象，然后将要实现的菜单功能包装到QAction对应的槽函数中。下面以一个简单的Qt Widgets A 阅读详情

如题

...全文

C++BUILDER动态建立菜单及菜单事件 C++BUILDER动态建立菜单及菜单事件6/5/2001 8:34:13· ·佘小勇··yesky　　首先新建一个工程文件(File->New Application)。然后在Form1上面建立一个PopupMenu1,一个Button1,一个RichEdit1。　　在头文Unit1.H的内容，其中黑体是自已加的。#ifndef Unit1H# 阅读详情

wang3358

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

坎离枫 2009-10-28

打赏
举报

不记得了。不过在一本写Borland的C++Bulider使用技巧的书看到过。大意是把菜单保存为文件，修改时修改文件再加载就行了。我没试过VS里的菜单动态修改。但是有一种方法也许可以：每次添加一个控件又用不来时，就看控件的属性，属性名是什么，在写代码时一般也能用相同的属性名来操作控件。

Flyingdragon168 2009-10-28

打赏
举报

哦，下列方法可以。但不是很好：
首先建一們菜單：比如mnu_File，設置索引為0.
然後在運行時，可以使用Load mnu_file(1) Load mnu_file(2)..等，來建立一系列菜單，但這些建立的菜單，都是同一層次的。如果想不同層次，那就必須分層次的建些類似mnu_file，索引0的菜單。
這種方法以前用過，絕對可行。

king06 2009-10-28

打赏
举报

[Quote=引用 9 楼 chenjl1031 的回复:]
这个简单:
VB codeOptionExplicit'新建一个子菜单项,命名为subM,在其属性框中将"index"属性修改为0,此时一个菜单数组就创建了!
'之后,就用load和unload方法对菜单数组进行添加或删除操作,subM.Count是获取菜单数组的个数.PrivateSub Command1_Click()
Command2.Enabled=True
Load subM(subM.Count)'用load方法加载菜单 subM(subM.Count-1).Caption= Text1.Text'设置菜单的属性 subM(subM.Count-1).Visible=TrueEnd SubPrivateSub Command2_Click()
Unload subM(subM.Count-1)'删除加载的菜单If subM.Count-1=0Then Command2.Enabled=FalseEnd SubPrivateSub subM_Click(IndexAsInteger)
MsgBox"你单击了"& subM(Index).Caption&"按钮", ,"蓝光BlueShibe"End Sub

http://topic.csdn.net/t/20050714/16/4144690.html
[/Quote]
最开始我想了下用load方法,不过却怀疑load对菜单无效.

东方之珠 2009-10-28

打赏
举报

这个简单:

Option Explicit



'新建一个子菜单项,命名为subM,在其属性框中将"index"属性修改为0,此时一个菜单数组就创建了!

'之后,就用load和unload方法对菜单数组进行添加或删除操作,subM.Count是获取菜单数组的个数.



Private Sub Command1_Click()

        Command2.Enabled = True

        Load subM(subM.Count) '用load方法加载菜单

        subM(subM.Count - 1).Caption = Text1.Text '设置菜单的属性

        subM(subM.Count - 1).Visible = True

End Sub



Private Sub Command2_Click()

        Unload subM(subM.Count - 1) '删除加载的菜单

        If subM.Count - 1 = 0 Then Command2.Enabled = False

End Sub



Private Sub subM_Click(Index As Integer)

        MsgBox "你单击了" & subM(Index).Caption & "按钮", , "蓝光BlueShibe"

End Sub

http://topic.csdn.net/t/20050714/16/4144690.html

东方之珠 2009-10-28

打赏
举报

动态菜单用Load装入,用完后用Unload卸载菜单.

舉杯邀明月 2009-10-28

打赏
举报

Ding..............

getemail 2009-10-28

打赏
举报

Const MF_CHECKED = &H8&

Const MF_APPEND = &H100&

Const TPM_LEFTALIGN = &H0&

Const MF_DISABLED = &H2&

Const MF_GRAYED = &H1&

Const MF_SEPARATOR = &H800&

Const MF_STRING = &H0&

Private Type POINTAPI

    x As Long

    y As Long

End Type

Private Declare Function CreatePopupMenu Lib "user32" () As Long

Private Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, ByVal lprc As Any) As Long

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long

Private Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim hMenu As Long

Private Sub Form_Load()

    'KPD-Team 1998

    'URL: http://www.allapi.net/

    'E-Mail: KPDTeam@Allapi.net

    'Create an empty popupmenu

    hMenu = CreatePopupMenu()

    'Append a few menu items

    AppendMenu hMenu, MF_STRING, ByVal 0&, "Hello !"

    AppendMenu hMenu, MF_GRAYED Or MF_DISABLED, ByVal 0&, "Testing ..."

    AppendMenu hMenu, MF_SEPARATOR, ByVal 0&, ByVal 0&

    AppendMenu hMenu, MF_CHECKED, ByVal 0&, "TrackPopupMenu"

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

    Dim Pt As POINTAPI

    'Get the position of the mouse cursor

    GetCursorPos Pt

    If Button = 2 Then

        'Show our popupmenu

        TrackPopupMenu hMenu, TPM_LEFTALIGN, Pt.x, Pt.y, 0, Me.hwnd, ByVal 0&

'''    Else

'''        'Show our form's default popup menu

'''        TrackPopupMenu GetSystemMenu(Me.hwnd, False), TPM_LEFTALIGN, Pt.x, Pt.y, 0, Me.hwnd, ByVal 0&

    End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

    'Destroy our menu

    DestroyMenu hMenu

End Sub

getemail 2009-10-28

打赏
举报

Const MF_CHECKED = &H8&
Const MF_APPEND = &H100&
Const TPM_LEFTALIGN = &H0&
Const MF_DISABLED = &H2&
Const MF_GRAYED = &H1&
Const MF_SEPARATOR = &H800&
Const MF_STRING = &H0&
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, ByVal lprc As Any) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim hMenu As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Create an empty popupmenu
hMenu = CreatePopupMenu()
'Append a few menu items
AppendMenu hMenu, MF_STRING, ByVal 0&, "Hello !"
AppendMenu hMenu, MF_GRAYED Or MF_DISABLED, ByVal 0&, "Testing ..."
AppendMenu hMenu, MF_SEPARATOR, ByVal 0&, ByVal 0&
AppendMenu hMenu, MF_CHECKED, ByVal 0&, "TrackPopupMenu"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Pt As POINTAPI
'Get the position of the mouse cursor
GetCursorPos Pt
If Button = 2 Then
'Show our popupmenu
TrackPopupMenu hMenu, TPM_LEFTALIGN, Pt.x, Pt.y, 0, Me.hwnd, ByVal 0&
''' Else
''' 'Show our form's default popup menu
''' TrackPopupMenu GetSystemMenu(Me.hwnd, False), TPM_LEFTALIGN, Pt.x, Pt.y, 0, Me.hwnd, ByVal 0&
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Destroy our menu
DestroyMenu hMenu
End Sub

jhone99 2009-10-28

打赏
举报

参考

动态创建菜单，添加菜单，执行自己的菜单事件

wang3358 2009-10-28

打赏
举报

我想通过代码建立个菜单
[Quote=引用 2 楼 king06 的回复:]
事先就建立好菜单,设置不可见,运行时控制其可见与否
[/Quote]

king06 2009-10-28

打赏
举报

事先就建立好菜单,设置不可见,运行时控制其可见与否

getemail 2009-10-28

打赏
举报

结帖率：0.00%

✦双11狂欢大促✦

运行时怎么建立菜单？

相关推荐

双11狂欢大促