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

admin2013-10-18  37

问题 在名称为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
0

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