第9章菜单和工具栏

第9章菜单和工具栏内容摘要：

送入剪切板 = True 39。 使粘贴菜单生效 End Sub 39。 粘贴菜单被按下 Private Sub mnuEditPaste_Click() = 39。 剪切板拷贝到文本框当前插入点 End Sub 提示： VB内部有一个剪切板对象 Clipboard， 该对象不需要创建就可以使用。 该对象没有属性 ， 只提供几个方法。 比如 SetText用于设置剪切板中的文本 ， 而 GetText方法取出剪切板的。 弹出式菜单 要求： • 掌握弹出式菜单的设计方法 弹出式菜单 • 弹出式菜单是显示在窗体上的浮动菜单 • 不同的子窗口或同一窗口的不同区域可以定义不同的弹出菜单 ， 因此弹出式菜单也被称为上下文菜单。 • 在 Windows中 ， 可以单击鼠标右键来打开弹出菜单 1)创建弹出式菜单的第一步与创建普通菜单一样，在“菜单编辑器”中增加一个菜单标题，以及该菜单标题的所有下级菜单项 2)如果该菜单标题不希望显示在菜单栏里，可在设计时使该标题的菜单控件为不可见（使“菜单编辑器”里的“可见”复选框没有被选上） 3)在程序中使用 PopupMenu方法打开指定的菜单 显示弹出式菜单 • PopupMenu方法 格式： [对象名 .]PopupMenu 主菜单项名 “对象名”是弹出式菜单的窗体名。 “对象名”省略时代表当前窗体。 其功能是在窗体的鼠标所在位置显示弹出式菜单。 弹出式菜单示例 【 例 】 为上例增加弹出式菜单 ， 当用户用鼠标右键单击窗体时 ， 显示字体效果菜单。 编程思路：可在 MouseUp或者 MouseDown事件中来检测何时单击了鼠标右键 ， 然后使用 PopupMenu弹出菜单 ， 代码如下： Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then 39。 检查是否单击了鼠标右键 PopupMenu mnufile ‘ 把文件菜单显示为一个弹出式菜单 End If End Sub 注： Button的值： 1表示左键， 2表示右键 例 :利用弹出式菜单改变窗体上的图像大小。 • Dim w As Single • Dim h As Single • Private Sub Form_Load() • w = • h = • End Sub • Private Sub image1_MouseDown(Button As Integer,。