首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
以下所列程序的功能是:在窗体上有一个文本框控件,程序运行后,用户可以利用鼠标左键来拖动该文本框控件(注意:拖动时,文本框移动的距离和方向由鼠标指针移动的距离和方向来确定),按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 Public yx A
以下所列程序的功能是:在窗体上有一个文本框控件,程序运行后,用户可以利用鼠标左键来拖动该文本框控件(注意:拖动时,文本框移动的距离和方向由鼠标指针移动的距离和方向来确定),按下鼠标右键则可以在文本框中显示出当前文本控件的位置。 Public yx A
admin
2009-02-13
73
问题
以下所列程序的功能是:在窗体上有一个文本框控件,程序运行后,用户可以利用鼠标左键来拖动该文本框控件(注意:拖动时,文本框移动的距离和方向由鼠标指针移动的距离和方向来确定),按下鼠标右键则可以在文本框中显示出当前文本控件的位置。
Public yx As Integer
Public yy As Integer
Private Sub Form_ MouseMove(Button AS Integer,Shift As Integer,_
X As Single,Y As Single)
If Button=1 Then
Text1.Left=【 】
Text1.Top=【 】
End If
End Sub
Private Sub Form_ MouseDown (Button As Integer,Shift As Integer,_
X As Single,Y As Single)
If【 】Then
yx=Text1.Left-X
yy=Text1.Top-Y
End If
If Button=2 Then
Text1.Text=“X坐标:”+Str(Text1.Left)+“Y坐标:”+Str(Text1.Top)
End If
End Sub
选项
答案
X+yx , Y+yy , Button=1
解析
在按下鼠标的时候,也即在Form_MouseDown事件过程中,首先应该要区分按下的是鼠标的左键还是右键,如果按下的是鼠标右键,则应该在文本框中显示当前文本框的位置,即当参数Button=2时,应该执行语句Text1.Text="X坐标:”+Str(Text1.Left)+"Y坐标:"+Str(Text1.Top)。因为题目要求文本框移动的距离和方向都由鼠标指针的移动距离和方向来确定,所以按下鼠标左键,在移动之前有必要记下当前文本框与鼠标指针间的相对距离(见语句yx=Text1.Left-X和yy=Text1.Top-Y),所以其前面的条件语句中的条件应该是参数Button=1。开始移动鼠标指针后,得到的X和Y的值都是当前鼠标指针所在的位置,要使得文本框相对于鼠标指针的位置不变,所以,应该给X和Y的值都加上在按下鼠标左键时鼠标指针与文本框的相对位置。
转载请注明原文地址:https://kaotiyun.com/show/572p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在设计程序时,应采纳的原则之一是
面向对象的语言将客观世界都看成由各种对象组成,共同特征和行为的对象组成类,类是变量和【】的集合体。
Java语言的循环语句包括for语句、do-while语句和do-while语句,先循环后判断,循环至少被执行一次的是【】。
ava程序与数据库的连接机制是
下列程序中,若从键盘中输入的是大写字母c,则程序输出的结果是importjava.io.*;publicclassExam{publicstaticvoidmain(Stringargs[]){
数据处理的最小单位是()。
变量是程序中的基本存储单元之一,由变量名、变量类型、变量属性、______组成。
若有inta=2,b=0;表达式b=(i++)+(i++)+(i++)的值是______。
ODL转换关系时,若为原子类型属性,类的每个属性对应关系的一个属性;若为结构类型,其每个元素为关系的一个属性;若为数组,则按元素的个数即可扩展为______,也可扩展为多个属性。
在面向对象方法中,属性与操作相似的一组对象称为【】。
随机试题
常见的纵隔肿瘤的分类。
考来烯胺降低血脂的机制主要是
下列哪项是溃疡病最常见的临床症状?()
依据《污水综合排放标准》,工业污水按生产周期确定监测频率,生产周期大于8h的,每()采样一次。
如果交货期延迟,会产生哪些影响()。
可以对有关责任人员从轻、减轻采取证券市场禁入措施的情形包括()。Ⅰ.主动消除或者减轻违法行为危害后果的Ⅱ.配合查处违法行为有立功表现的Ⅲ.受他人胁迫或者诱骗实施违法行为的Ⅳ.其他依法应当从轻、减轻采取证券市场禁入措施的
美国学者赫茨伯格问卷调查后发现,导致员工不满意的因素往往可以归结为工作环境或工作关系方面的,如公司的政策与管理、工作条件、人际关系、报酬、工作监督等,他将其称为()。
甲股份有限公司(以下简称“甲公司”)为上市公司,2015年度财务报告于2016年4月10日经董事会批准对外报出,报出前有关情况和业务资料如下。(1)甲公司在2016年1月进行内部审计过程中,发现以下情况:①2015年7月1日,甲公司向乙公司销售产品,成
“奔腾”的地址线为32根,最大存储量为()。
ThefirsttimeIsawStephenLeacockatclosequartershecameswingingintoaclassroominMoyseHall,theserenelyuglyoldAr
最新回复
(
0
)