首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有一个名称为Labell的标签。程序运行时,单击鼠标左键,再移动鼠标,鼠标的位置坐标会实时地显示在Labell标签中;单击鼠标右键则停止实时显示,并将标签中的内容清除。下面的程序可实现这一功能,请填空。 Dim downAs Boolean
设窗体上有一个名称为Labell的标签。程序运行时,单击鼠标左键,再移动鼠标,鼠标的位置坐标会实时地显示在Labell标签中;单击鼠标右键则停止实时显示,并将标签中的内容清除。下面的程序可实现这一功能,请填空。 Dim downAs Boolean
admin
2012-05-23
28
问题
设窗体上有一个名称为Labell的标签。程序运行时,单击鼠标左键,再移动鼠标,鼠标的位置坐标会实时地显示在Labell标签中;单击鼠标右键则停止实时显示,并将标签中的内容清除。下面的程序可实现这一功能,请填空。
Dim downAs Boolean
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Select Case 【 】
Case 1
down=True
Case 2
down=False
End Select
End Sub
Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
If 【 】Then
【 】=“X=”&X&” Y=″&Y
Else
Label 1.Caption=“”
End If
End Sub
选项
答案
Button down或down=True Labll.Caption
解析
鼠标键状态由参数Bunon来设定,其值为1表示按下了鼠标左键,为2表示按下了鼠标右键,因此在MouseDown事件中需要判断Button参数的值以便进行对全局逻辑变量down的赋值:在鼠标的移动事件中,根据题意如果按下了鼠标左键(即down=True)则输出坐标,否则清空标签,因此进行判断的条件就是down是不是等于True;坐标需要输出到Labell的Caption属性中。
转载请注明原文地址:https://kaotiyun.com/show/nPhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowText1.Text=""TextText=""TextS
以下关于焦点的叙述中,错误的是
下列有关数据库的描述,正确的是
结构化程序设计的3种结构是
栈底至栈顶依次存放元素A、B、C、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是_________。
在数据库理论中,数据库总体逻辑结构的改变,如修改数据模式、增加新的数据类型、改变数据间联系等,不需要修改相应的应用程序,称为【】。
软件结构是以【】为基础而组成的一种控制层次结构。
设已经在菜单编辑器中设计了窗体的快捷菜单,其顶级菜单为Bt,取消其“可见”属性,运行时,在以下事件过程中,可以使快捷菜单相应鼠标右键菜单的是
在过程定义中出现的变量名叫做【】参数,而在调用过程时传送给过程的常数、变量、表达式或数组叫做【】参数。
随机试题
男性,8岁。于8月19日开始发热,头痛,当时测体温38℃,在外院诊断为上感,给予布洛芬退热,头孢菌素静滴无效,8月22日出现嗜睡,体温高达40℃,8月23日因昏迷伴抽搐入院。查体:神志不清,压眶有反应,体温40.5℃,血压、呼吸正常,双瞳孔等大,皮肤黏膜无
关于胰岛素治疗,下列不妥的是使用胰岛素治疗中应告知患者警惕
合同工程的交工验收由业主组织主持,并发给承包人交工证书,但相关的费用由承包人承担。()
工程变更价款时,FIDIC合同条件下的工程变更,在( )等情况下,宜对有关工作内容采用新的费率或价格。
办理支付结算的主体是()。
主要解决资源利用效率问题,是企业资源利用效率最大化的战略是()。
存款人尚未清偿其开户银行债务的,不得申请撤销该银行结算账户。()
甲乙于2001年7月20日(注:此前一天国际奥委会已宣布北京申办成功的消息)约定:如果北京成功申办2008年奥运会的话,甲将赠与乙100万。该赠与合同
计算,其中D:x≥0,y≥0,x+y≤1.
A、Itisabouttostartraining.B、Therainwillstopsoon.C、Ithasbeenrainingallday.D、Itjuststoppedraining.AW:Lookat
最新回复
(
0
)