首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量: Dim PaintStart As Boolean 编写如下事件过程: Private Sub Form_Load
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量: Dim PaintStart As Boolean 编写如下事件过程: Private Sub Form_Load
admin
2013-04-11
65
问题
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量:
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全国计算机二级
相关试题推荐
数据库管理系统的基础是______。
对于建立良好的程序设计风格,下面描述正确的是______。
下面程序是用来打印九九乘法表的,请填空。DimiAsInteger,jAsInteger,Strl$Strl=""Fori=1To9Forj=1To9
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimnumAsIntegernum=1DOUntilmum>6
当数据的物理结构(存储结构)改变时,不影响数据库的逻辑结构,从而不致引起应用程序的变化,这是指数据的【】。
长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为【】。
下列各种形式的循环中,输出“*”的个数最少的循环是
描述“X是小于100的非负整数”的VisualBasic表达式是【】。
随机试题
重症肺炎因二氧化碳潴留导致酸碱平衡紊乱,可发生
课堂上人际关系出现双方相互亲近、认知协调、情感和谐、行动一致。这是一种()
A.丙氨酸和谷氨酰胺B.谷氨酸和丙氨酸C.瓜氨酸和精氨酸D.半胱氨酸和瓜氨酸E.组氨酸和赖氨酸氨在肝中合成尿素的主要中间产物是
下列哪个脂类代谢途径不出现乙酰乙酰辅酶A
常伴有抽搐的甲状腺癌为
对于小王的辞职申请,()。小王辞职后,()。
在无权代理中,相对人可以催告被代理人在()内予以追认。
根据以下课堂实录,回答问题:师:面对如此严重的经济危机,如果你是当时的政治家、经济学家,你会采取什么措施克服当时的经济危机?(学生思维活跃,课堂气氛热烈……)学生交流:生1:首先应该恢复银行信誉。经济危机期间,银行倒闭,市民的存款化为
Ⅱ.论述教育观察研究方法的优缺点。
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandlClick()DoUntilb<0a=InputBox("输入a的值")a=Val(a)b=InputBox("输入b的值")b=Val(b)a=a
最新回复
(
0
)