首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹出菜单
在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹出菜单
admin
2016-06-23
20
问题
在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹出菜单,选中一个菜单项后,则按所选菜单标题设置文本框中文本的格式,如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt3.vbp,窗体文件名保存为sjt3.frm。
选项
答案
[操作步骤] 步骤1:新建一个窗体,按照题目要求建立名称为“Text1”的文本框控件及一个弹出式菜单并设置菜单属性,程序中用到菜单属性见表3.32。 [*] 步骤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:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/RSLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
目录列表框Path属性的作用是
在窗体上画1个文本框,名称为Text1,然后编写如下程序:PrivateSubForm_Load() Open"d:\temp\dat.txt"ForOutputAs#1 Text1.Text=""EndSu
随机文件用于读数据的语句是
要将窗体Form1标题设为“学习VB”,以下能正确实现该功能的语句为
下面有一段程序代码,如果从键盘上输入“Computer”,则在文本框内显示的内容是PrivateSubText1_KeyPress(KeyAsciiAsInteger) IfKeyAscii>=65AndKeyAscii<=
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click() BT4EndSubPrivateSubBT(xAsInteger) x=x*2+1 Ifx<6
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dima(5,5) Fori=1To3 Forj=1To4
下列语句的输出结果是______。PrintFormat$(1258.6,"000,000.00")
在VisualBasic中,组合框是文本框和下列哪一项的特性的组合
设在工程中有一个标准模块,其中定义了如下类型:TypestutypeinoAsIntegerstrnameAsString*20strsexAsString*1smarkAsSingleEn
随机试题
提高自己的学历水平不属于培养职业道德修养主要途径。
区域性批发企业和专门从事第二类精神药品批发业务的企业的批准部门是
下列高层建筑防火分区防火墙设计中错误的是:
电磁波测距仪包括()。
施工项目的安全检查应由( )组织定期进行。
证券公司应当以提供()等方式,保证客户在证券公司营业时间内能够随时查询证券公司经纪业务经办人员和证券经纪人的姓名、执业证书、证券经纪人证书编号等信息。I.电话Ⅱ.网上查询Ⅲ.书面查询Ⅳ.在营业场所公示
地陪一般与旅游者同桌就餐,便于招呼大家。()
求助者:男,18岁,高二学生。案例介绍:求助者上高二的时候,和临班的一个女生好上了,后来总是好好分分,求助者觉得她很自我,太任性,老是和她对着干,摸不透她的脾气,感觉谈恋爱像在乞讨,但又忍不住和她在一起。半年前成绩下降得很厉害,怕影响高考,和她彻
学生林某放在课桌里的钱包不见了,于是班主任就对全班同学进行搜身。班主任的做法侵犯了学生的()
计算机的系统总线是计算机各部件间传递信息的公共通道,它分为()。
最新回复
(
0
)