首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹出菜单
在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹出菜单
admin
2016-06-23
43
问题
在名称为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全国计算机二级
相关试题推荐
向顺序文件Temp.txt中写入1,2,3这3个数。在程序中加入以下语句的哪一项可以使程序功能完整。PrivateSubCommand1_Click() Open"c:\Temp.txt",OutputAs#1 For
建立控件时系统自动给控件一个名称,第一个建立的命令按钮名称是______。
执行以下Commaand1的Click事件过程在窗体上显示()。OptionBase0PrinvateSubCommand1_Clcik()Dimaa=Array("a","b","C","d","e","
下列程序段的执行结果为()。A=0:B=1A=A+B:B=A+B:PrintA:BA=A+B:B=A+B:PrintA:BA=A+B:B=A+B:PrintA:B
设用复制、粘贴的力怯建立了一个命令安钮数组Command1,以下列该数组说法错误的是
测试的目的是暴露错误,评价程序的可靠性,而______的目的是发现错误的位置并改正错误。
下列说法错误的是
设在工程中有一个标准模块,其中定义了如下类型:TypestutypeinoAsIntegerstrnameAsString*20strsexAsString*1smarkAsSingleEn
随机试题
黄茶按鲜叶老嫩不同,分为()三大类。
患者,男,18岁。因癫痫发作突然跌倒。此时急救的首要步骤是
根据《煤矿安全监察条例》,发现煤矿作业场如下哪些情形,应当责令立即停止作业,限期改正?()
下列关于会计科目代码的描述,正确的有()。
重点调查的主要特点有()。
下列关于货币市场及货币市场工具的说法不正确的是()。
某企业为孤儿捐赠免费保险,你区分得1000名额,你是区负责人,该怎么组织?
张明说:“博士毕业三年后才可评副教授。”刘涛说:“不对吧!孙科老师博士毕业已经五年了,但他并没有评上副教授。”刘涛的回答是把张明的话错误地理解为以下哪一选项?
一个字长为6位的无符号二进制数能表示的十进制数值范围是_______。
Aroundtheworldyoungpeoplearespendingunbelievablesumofmoneytolistentorockmusic.Forbesmagazineclaimsthat【C1】___
最新回复
(
0
)