QMenuBar *mBar = menuBar()
2、添加菜单
QMenu * menu = mBar->addMenu("文件")
3、添加菜单项
QAction * action = menu->addAction("新建")
4、给QAction创建点击事件
connect(action ,&QAction::triggered ,this ,[=](){
//里面写点击后执行的函数就行
})
5、设置QAction不可用
在一个窗体中顶部有一个下拉式菜单,其中有两个选项,添加和删除。怎样让用户在点击添加按钮后,询问用户新菜单的名字后自动为当前菜单添加这个选项(添加什么选项?可以动态添加菜单)并为这个按钮添加指定的事件代码(可以预设,但没法添加!)
按删除后,询问用户删除的名称,然后删除按钮(可以!)包括其对应的代码(不可以!)
动态生成的控件:Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim myPicture = New System.Windows.Forms.PictureBox()
Me.Panel3.Controls.Add(myPicture)
myPicture.Size = New System.Drawing.Size(115, 160)
myPicture.TabStop = False
myPicture.Name = "p"
myPicture.Cursor = Cursors.Hand
AddHandler myPicture.Click, AddressOf mypic_Click '添加事件
End Sub
处理事件的过程:
Private Sub mypic_Click() 'ByVal id As String
Dim bookInfo As New BookInfo
bookInfo.Show()
Me.Parent.Enabled = False
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)