应用题
1. 在名称为Form1的窗体上添加一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3。请编写适当的事件过程，在程序运行时，当用鼠标右键单击文本框时，弹出菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。
【正确答案】【操作步骤】
步骤1：新建一个窗体，按照题目要求建立名称为“Text1”的文本框控件及一个弹出式菜单并设置菜单属性，程序中用到菜单属性见表。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub M1_Click()
Text1.FontBold=True '设置字体为加粗
End SUb
Private Sub M2_Click()
Text1.FontItalic=True '设置字体为斜体
End Sub
Private Sub M3_Click()
Text1.Fontunderline=True '为文字加下划线 End Sub
Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then '判断是否执行该事件
Me.PopupMenu Format '显示菜单
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】注意不要混淆鼠标左右键的键值。
步骤1：新建一个窗体，按照题目要求建立名称为“Text1”的文本框控件及一个弹出式菜单并设置菜单属性，程序中用到菜单属性见表。
| 标题控件 | (任意) | 加粗 | 斜体 | 下划线 | |||||||||||||||||||||||
| 名称 | Format | M1 | M2 | M3 | |||||||||||||||||||||||
| 内缩符号 | 0 | 1 | 1 | 1 | |||||||||||||||||||||||
参考答案
Private Sub M1_Click()
Text1.FontBold=True '设置字体为加粗
End SUb
Private Sub M2_Click()
Text1.FontItalic=True '设置字体为斜体
End Sub
Private Sub M3_Click()
Text1.Fontunderline=True '为文字加下划线 End Sub
Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then '判断是否执行该事件
Me.PopupMenu Format '显示菜单
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】注意不要混淆鼠标左右键的键值。
【答案解析】[考点] 本题考点有：菜单编辑器的使用(名称、标题、内缩符号、Visible)，PopupMenu方法，文本框的FontBold、FontItalic和FontUnderline属性以及If判断语句。
PopupMenu方法用来显示弹出菜单，语法格式为：
object.PopupMenu menuname,flags,x,y,boldcommand
要创建弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见(Visible)属性值设置为False，然后在对象的MouseDown(或MouseUp)事件过程中判断该事件的Button参数值是否为2，如果是则执行对象的PopupMenu方法来显示菜单。
PopupMenu方法用来显示弹出菜单，语法格式为：
object.PopupMenu menuname,flags,x,y,boldcommand
要创建弹出式菜单需先用菜单编辑器来建立菜单，并将其主菜单项的可见(Visible)属性值设置为False，然后在对象的MouseDown(或MouseUp)事件过程中判断该事件的Button参数值是否为2，如果是则执行对象的PopupMenu方法来显示菜单。