首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量: Dim PaintStart As Boolean 编写如下事件过程: Private Su
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量: Dim PaintStart As Boolean 编写如下事件过程: Private Su
admin
2013-04-11
125
问题
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量:
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/DbQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
面向对象的程序设计方法中涉及的对象是系统中用来描述客观事物的一个【】。
以下关于文件的叙述中,错误的是______。
在窗体上画1个文本框,其名称为Text1,然后编写如下过程:PfivmeSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCod
以下关于过程的叙述中,错误的是______。
在深度为7的满二叉树中,叶子结点的个数为______。
数据结构分为线性结构和非线性结构,带链的队列属于【】。
1.在考生文件夹中有文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确的内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件夹和文件名。本题描述如下:窗体上有一个名称Te
在算法设计的基本方法中,______是从初始条件出发,逐次推出所需求的结果。
若完全二叉树共有n个结点,且从根结点开始,按层序(每层从左到右)用正整数0,1,2,…,n-1从小到大对结点编号,则对于编号为k的结点,错误的是______。
信息隐蔽的概念与下述______概念直接相关。
随机试题
通行字的安全存储有()种方法。
设y=xlnx,则y(10)=_________.
Smokingisconsidereddangeroustothehealth.Alltheshopsare【56】tosellcigarettestochildren.Ourtobacco-seller,Mr.Jo
甲沟炎伴甲下积脓,手术治疗应选择
女性,34岁,肛门皮肤有乳头状突起的肛瘘外口,挤压外口可见少量脓性分泌物排出,在此种情况发生前,病人最可能患有
可引起语音震颤增强的情况不包括
确定质押率的依据不包括()。
给定资料1.徐女士儿子三岁多了,正好到秋季入园的年龄。可是2010年出生的虎宝宝太多了,她家一个楼道六户人家就有五个虎宝宝。为此,从去年下半年起,徐女士就开始作打算。“但是,现在幼儿园普遍都是名额爆满价格普涨。公立园收费虽然相对较低,但赞助费从几千元
[2005年]求幂级数的收敛区间与和函数f(x).
GreenPowerYou’veinsulatedtheattic,installedtriple-glazedwindows,andboughthigh-efficiencyappliances.Canyoumake
最新回复
(
0
)