首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下而的程序。 首先在窗体层定义如下变量: Dim PaintStart As Boolean 编写如下事件过程: Private Sub F
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下而的程序。 首先在窗体层定义如下变量: Dim PaintStart As Boolean 编写如下事件过程: Private Sub F
admin
2012-03-22
110
问题
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下而的程序。
首先在窗体层定义如下变量:
Dim PaintStart As Boolean
编写如下事件过程:
Private Sub Form_Load()
DrawWidth=2
ForeColor=vbGreen
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/sGhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
某二叉树T有n个结点,设按某种顺序对T中的每个结点进行编号,编号值为1、2、…、n,且有如下性质:T中任一结点v,其编号等于左子树上的最小编号减1,而v的右子树的结点中,其最小编号等于v左子树上的最大编号加1。此二叉树是按()顺序编号的。
if语句合法的条件值是【】类型。
3下列代码中,将引起一个编译错误的行是()。1)publicclassTest{2)intm,n;3)publicTest(){}4)publicTest(inta){m=a;}5)public
在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:PrivateSubCommand1_Click()CommonDialogl.FileName=“”
已知数据表A中每个元素距其最终位置不远,为节省时间,应采用的算法是_______。
数据库设计分为以下6个设计阶段:需求分析阶段、【】、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
软件设计中,有利于提高模块独立性的一个准则是
在深度为5的满二叉树中,叶子结点的个数为
引用列表框(List1)最后一个数据项应使用
随机试题
男性患者,62岁,因四肢麻木伴双下肢无力逐渐加重1年入住康复科,自觉小腿有捆绑感,行走不稳,有时不成直线,洗脚时对冷热水不敏感,入院体检:神志清醒,对答切题,颈部僵硬,颈椎活动受限,快速屈颈时出现四肢“触电”样感,双上肢肱二头肌反射活跃,双侧Hoffman
支气管扩张或肺脓肿的症状特点是慢性阻塞性肺疾病的症状特点是
自觉呼吸短促而不相接续,气短不足以息的是()呼吸急促困难,喉中痰鸣的是()
A.拇指对掌功能障碍B.手内肌萎缩,爪形手畸形C.垂腕D.骨关节外展障碍E.骨关节内展障碍桡神经损伤
业主在选择监理工程师(单位)时考虑的因素有()。
《水运工程混凝土质量控制标准》规定:海水环境下南方水位变动区钢筋混凝土最小保护层厚度为()。(注:箍筋直径为6mm时主钢筋的保护层厚度)
一般情况下,变动收益证券比固定收益证券( )。
个人独资企业分支机构的民事责任应由()承担。
用法定盈余公积转增资本或弥补亏损时,均不导致所有者权益总额的变化。()
如果Excel单元格值大于0,则在本单元格中显示“已完成”;单元格值小于0,则在本单元格中显示“还未开始”;单元格值等于0,则在本单元格中显示“正在进行中”,最优的操作方法是
最新回复
(
0
)