首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上添加一个文本框(名称为Text1)和一个水平滚动条(名称为HScroll1),如图1所示。在属性窗口中对滚动设置如下属性: 编写适当的事件过程。程序运行后,通过改变滚动条上的刻度值,则可扩大或缩小文本框的高度,并使得文本
在名称为Form1的窗体上添加一个文本框(名称为Text1)和一个水平滚动条(名称为HScroll1),如图1所示。在属性窗口中对滚动设置如下属性: 编写适当的事件过程。程序运行后,通过改变滚动条上的刻度值,则可扩大或缩小文本框的高度,并使得文本
admin
2016-06-30
83
问题
在名称为Form1的窗体上添加一个文本框(名称为Text1)和一个水平滚动条(名称为HScroll1),如图1所示。在属性窗口中对滚动设置如下属性:
编写适当的事件过程。程序运行后,通过改变滚动条上的刻度值,则可扩大或缩小文本框的高度,并使得文本框的宽度始终是其高度的1.2倍。程序运行后的窗体如图2所示。要求程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表3。 [*] 步骤2:编写程序代码。 Private Sub HScrolll_Change() Text1.Height=HScroll1.Value Text1.Width=1.2*Text1.Height End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过调整滚动条滑块的位置即可改变其Value属性的值,滚动条的Max和Min属性为滚动条所能表示的最大值和最小值,LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量,SmalIChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。当改变滚动条滑块位置后将触发其Change事件。
文本框的高度和宽度分别由其Height属性值和Width属性值设定。
转载请注明原文地址:https://www.kaotiyun.com/show/dqLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
VisualBasic根据计算机访问文件的方式将文件分成三类,其中不包括()。
若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是()。
逻辑运算时,参与运算的两个量都是False,结果才会是False的逻辑运算是______运算。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DiminAsInteger,nAsInteger,pAsInteger m=3:n=5:p=0 C
使用PublicConst语句声明一个全局的符号常量时,该语句应放在
下列叙述中错误的是
一个控件在窗体上的位置由______和Top属性决定。
在面向对象方法中,属性与操作相似的一组对象称为______。
下面程序运行时,单击窗体后,窗体上显示的结果是()。PrivateSubForm_ClickDimIAsIntegerDimsumAsLongDimt1AsLongt1=1:sum=0
下图中,图1、图2是应用程序的部分界面。运行程序首先出现图1的对话框,要求用户输入口令,输入完毕后单击“确定”按钮。如果输入的口令正确,则显示图2的界面。如果输入的门令错误,则出现图3的信息框。单击图1中的“取消”按钮,则结束程序。PrivateSub
随机试题
宋某把家传青瓷花瓶质押给晁某,晁某置花瓶于桌上,时常赏玩。一日,邻家阮某所养之猫窜入晁家,将花瓶撞倒摔碎,宋某只能向阮某要求赔偿。()
男性,42岁,2年前诊断为原发性慢性肾上腺皮质功能减退症,长期口服氢化可的松(30mg/日)替代治疗。近2天发热38℃,咽痛。目前氢化可的松应
某市一家房地产开发公司,2012年发生业务如下:(1)3月份销售10年前建造的旧办公楼一栋。取得销售收入1200万元,双方签订了房屋销售合同;该办公楼的原值为1000万元。已提取折旧400万元。经评估机构评估,该办公楼成新度折扣率为3成,目前建造同样的办公
永清公司在自行开发并取得专利权的过程中所发生的下列费用中,不计入该专利权入账价值的有()。
属于发展性心理咨询的是()。
物体静止放在光滑水平面上,在如图所示的水平方向的力的作用下由静止开始运动,下面说法正确的是()
简述教学的基本原则。
Youwillheararadioprogrammeonthesubjectofinnovation,researchanddevelopmentinbusiness.Foreachquestion(23-30)
Onecalledherbossa"bitchfromhell"whileanotheradmitted"lyingthroughhisteeth"atinterview.BoththeBritishjobappl
A、Theyarehelpfulinimprovingtheteamspirit.B、Theyarerelevanttobusinessmanagement.C、Theyarehelpfulinhisprevious
最新回复
(
0
)