2. 计算机
  3. 在名称为Forml的窗体上添加一个名称为Textl的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为Ml、M2、M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单

在名称为Forml的窗体上添加一个名称为Textl的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为Ml、M2、M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单

admin2020-04-08  34
问题 在名称为Forml的窗体上添加一个名称为Textl的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为Ml、M2、M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图所示。
  注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt3．vbp，窗体文件名保存为sjt3．frm。
选项
答案【操作步骤】 步骤l：新建一个窗体，按照题目要求建立名称为“Textl”的文本框控件及一个弹出式菜单并设置菜单属性，程序中用到菜单属性见表4．32。 [*] 步骤2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub M1 Click() Textl．FontBold=True′设置字体为加粗 End Sub Private Sub M2 Click() Textl．FontItaliC=True′设置字体为斜体 End Sub Private Sub M3 Click() Textl．FontUnderline=True′为文字加下划线 End Sub Private Sub Textl MouseDown(ButtonAs Integer，Shift As Integer，X As Sin-gle，Y As Single) If Button=2 Then′判断是否执行该事件 Me．PopupMenu Format′显示菜单 End If End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】注意不要混淆鼠标左右键的键值。
解析 PopupMenu方法用来显示弹出菜单，语法格式为：
转载请注明原文地址:https://kaotiyun.com/show/z8Tp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)