首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量: Dim PaintStart As Boolean 编写如下事件过程: Private Sub Form_Load
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量: Dim PaintStart As Boolean 编写如下事件过程: Private Sub Form_Load
admin
2013-04-11
63
问题
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量:
Dim PaintStart As Boolean
编写如下事件过程:
Private Sub Form_Load()
DrawWidth=2
ForeColor=vreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
PaintStart = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
【 】
End Sub
Private Sub Form_DblClick()
Cls
End Sub
选项
答案
PaintStart = False
解析
上述过程定义了一个布尔型变量PaintStart,当按下鼠标左键(触发MouseDown事件) 时,由题意按下鼠标键表示能画图,所以该变量的值为True,而松开鼠标左键(触发MouseUp事件) 时,该变量为False;如果变量PaintStart为True,则移动鼠标(触发MouseMove事件),将在窗体上绘出一个点;除鼠标事件外,上述程序还含有一个Load事件过程和一个DblClick事件过程,其中Load事件过程用来设置画点的大小和颜色,DblClick事件过程用来清除所画的图形,函数Pset是画点语句,用它可以在(x,y) 处画一个点。
转载请注明原文地址:https://kaotiyun.com/show/AOhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面关于文本框的说法中,错误的说法是______。
随机文件使用Put语句写数据,使用【】语句读数据。
在VisualBasic中,要设置菜单项的快捷访问键,应使用的符号是______。
白盒测试方法重视【】的度量。
在窗体上有一个文本框控件,名称为TxtTime一个计时器控件,名称为Timer1,要求每1秒钟在文本框中显示一次当前的时间,程序为:PrivateSubTimer1______()TxtTime.text=TimeEn
当ScrollBars属性的值为______时,给文本框同时加水平滚动条和垂直滚动条。
执行以下程序段后,变量c$的值为______。a$="VisualBasicProgramming"b$="Quick"c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,12)
数据库设计包括两个方面的设计内容,它们是______。
要显示当前过程中的所有变量及对象的取值,可以利用______窗口。
全局变量必须在【】模央中定义。
随机试题
癫痫强直阵挛发作呈持续状态时,最重要的护理措施是
宋某、周某、李某、王某在2001年改制时所取得的股权是否有效?为什么?()。川南公司董事会的增资决议和公司的增资行为是否有效?为什么?()。
2000年5月,张某从商场购买热水器一台,6月,该热水器因质量问题爆炸造成张某人身伤害,张某向法院起诉。下列关于张某请求商场承担民事责任的表述正确的是()。
下列各项中,属于其他货币资金的有()。
以下可以申请个人住房贷款的有()。
自我概念的功能主要有()。
A、 B、 C、 D、 D从每行来看,第一行三个图形中黑色、斜线、灰色方块的个数分别为5、6、7;第二行黑色、斜线、灰色方块的个数分别为6、7、5;所以第三行黑色、斜线、灰色方块的个数分别为7、5、6;所以最
请使用VC6或使用【答题】菜单打开考生文件夹proj2下的工程proj2,该工程中包含一个程序文件main.cpp,其中有类AutoMobile(“汽车”)及其派生类Car(“小轿车”)、Truck(“卡车”)的定义,还有主函数main的定义。请在横线处填
Allsecretsmayeventuallycometo______.
A、Toconsultfriendswhohavetravelledbefore.B、TosearchontheInternet.C、Towatchacolourmovie.D、Toreadtravelbooks.
最新回复
(
0
)