题目 在名称为Form1的窗体中建立一个弹出式菜单(程序运行时不显示),名称为file,含两个菜单项,其名称别为open 和save,标题别为 打开 和 存盘. 编写适当事件过程,程序运行后,如果用鼠标右键单击窗体,则弹出此菜单. ------------------------------------------------------------------------------------------------------------------------- 1.按Ctrl+E键,弹出菜单编辑器。在那里面可以编辑菜单 标题:等同于Command的Caption属性,就是用来显示菜单上的文字 名称:等同于Command的Nane属性,指定菜单的名称 索引:菜单数组的下标 复选:以复选框的样式显示菜单 有效:Enabled 可见:Visible →按钮:选定的菜单项退一级 ←按钮:选定的菜单项向上一级 ↑按钮:选定的菜单项向上移动 ↓按钮:选定的菜单项向下移动 先输入菜单优先项的标题"文件"和名称"file",按你的要程序运行时不显示,那么就把它的"可见"勾上 再输入菜单第二项的标题"打开"和名称"open",因为它是在"文件"菜单的下一级,所以按一下"→按钮" 最后输入菜单第三项的标题"保存"和名称"save",不用按按"→按钮".确定完成菜单的编辑. 调出菜单. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu file '1为左键,2为右键 'popupnebu <菜单> ..弹出菜单 End Sub 点击代码窗口中控件下拉列表,选择save 或 open 可以对它们进行事件的编程. |
|