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

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

admin2013-10-18  54
问题 在名称为Forml的窗体上画一个名称为Textl的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为”加粗”、”斜体”、”下划线”，名称分别为M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击窗体时，弹出此菜单，选中一个菜单项后，则按所选菜单标题设置文本框中文本的格式，如图2-88所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3．vbp，窗体文件名为sjt3．fim。
选项
答案步骤1：新建一个”标准EXE”工程，选择[工具]→[菜单编辑器]命令，打开菜单设计器，如表3．46中的设置建立菜单项。 [*] 步骤2：在窗体中画一个文本框，取名为Textl。 步骤3：打开代码编辑窗口，分别编写”加粗”、”斜体”和”下划线”菜单项的事件过程。 参考代码： PrivateSubForm_MouseDown(ButtonAs Integer， Shift AsInteger，X As Single，Y As Single) If Button=2 Then PopupMenu format End I f End Sub Private Sub m1_Click( ) Textl．Font．Bo±d=True End Sub Private Sub m3_Click( ) Text1．Font．Underline=True End Sub Private Sub m2_Click( ) Textl．Font．Italic=True End Sub 步骤4：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/ATQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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