实验-vb控件.doc

下载你收到的公文列表。

试验- VB操纵者

文档绍介:
试验1创办一点钟简略的。 Visual Basic 勤勉,使其能处决以下功用。 1。编辑一点钟顺序。,在掩藏帐单上,欢送运用 Visual Basic !”,适应字号为得体的的规模。。 2。在原文框中输入字母,单击交换紧固件。,使原文框做成某事字母交换TH做成某事原始显示原文。试验使移近以产生塑造创办。 2帐单、 1个原文框和 2个紧固件,瞄准建造后,在Fig. 1所示; 法典编辑:草图1 试验二建造了容许大剪刀。、副本和贴的简略便笺板顺序。辨析:范围意思,创办原文框输入原文。,原文框的原值为空。,当顺序运转时,用户输入原文并容许显示多行。,设置四个一组之物命令紧固件如愿以偿加标题的功用。[试验使移近] 1。在设计产生中创办 1帐单、1个原文框和 4个紧固件,瞄准建造后,在Fig. 2 所示; 图2创办瞄准后的产生 2。设置每个操纵者的属性值。 三。在使完美后设置每个操纵者的属性。,形如图 3所示; 图3设置属性后的产生 4 编辑法典法典列举如下 Dim stAsString Private Sub Form_Load() Label1.FontSize =16 Text1.FontSize =mand1.FontSize =mand2.FontSize =mand3.FontSize =mand4.FontSize =10 End Sub Private mand1_Click() st=Text1.SelText Text1.SelText =”” End Sub Private mand2_Click() st=Text1.SelText End Sub Private mand3_Click() Text1.SelText =st End Sub Private mand4_Click() End End Sub 5 运转后调试运转顺序,在原文框中输入恣意字母串。,如图 4所示。图4在原文框中选择了产生运转边线。,点击大剪刀。、将光标朝向在原文框做成某事稍微得第二名。,那时点击贴紧固件。,选择的物质将被开动到瞄准光标得第二名;是否,单击副本、将光标朝向在原文框做成某事稍微得第二名。,那时点击贴紧固件。,所选物质将在瞄准光标L副本同样的物质。。试验三运用帐单创办减轻成功实现的事原文运用两个帐单CON,设计时的无色的 黑色位错叠加,如愿以偿图 5 刻减轻的成功实现的事。图5减轻成功实现的事原文(1) 在产生上储蓄两个帐单操纵者,其 Caption 属性都是 中文版”, 这些名字都是初始数字。,编造是隶书。。适应帐单宽度和奢侈地。,原文以两行显示。。(2)范围表格 1设置两个帐单的别的属性。。表1 帐单操纵者属性把持定义安插构成(背地里构成) 边框构成(边框构成) 远风光(远风光) 左(左) 顶部(顶部) Label1 1- Fixed Single 1– Opaque (不透明的的) &H00FFFFFF&( 白)324 324 Label2 0- None 0– Transparent (透明的) &H00000000&( 黑)384 372 用类比的办法,它也可以引起如图所示。 显得阴沉原文显示在6。图6形状出现试验四熟识 Move 身体活动的如愿以偿办法,熟识把持事情的运用。举办了试验最后的边线。 7所示。图 7个运转边线试验使移近 1。将构成 Caption 属性设置为欢送轮回;产生设置。 Picture 属性(图片可以从 C:\Windows \Web\Wallpaper 中取,你也可以设置你最喜欢的相片。,不克不及更改设置窗体。。 2. 将两个帐单添加到窗体中, Caption 属性是欢送轮回。,并将其设置为减轻成功实现的事(提词:减轻成功实现的事可以从两个方面透明的)、远风光差额。、稍微位置不正的得第二名堆叠。 和Command2 ,清空 Caption 属性,将Styl e 属性设置为 1-Grapical ,辨别为 Picture 属性集图标公文 ”、“ ”( 图标公文谎话 VB 的直立的大学概况一览下\Common\Graphics\Icons\Arrows 公文夹)。 ,添加以下法典 提词:帐单 move 办法更改帐单。 left 属性值 ,添加以下法典 提词:帐单 move 办法更改帐单。 left 属性值 6。将产生和签订协议公文保在本人的公文夹中。。 7。点击 F5,测量法运转此课程,直到很高兴认识您为止。思前想后:范围 Move 瞄准定义开动办法的腔调 left, top, width, height ”, 修正是你这么说的嘛!顺序有什么更衣?试试看。。试验五建造帐单骨碌效应的试验使移近 1、在表格上放一点钟。 label 操纵者,极微时间测定器 timer 操纵者。 2、设置瞄准属性,如图 8所示,经过 Timer1 操纵者的 Interval 属性设置为 100 。 3、在 Timer1 的 timer 下面的法典被添加到事情中。 Private Sub Timer1_Timer() Label1.Move Label1.Left +50 If Label1.Left > Form1.Width Then Label1.Left = -Label1.Left End If End Sub 4、手术说最后,帐单将从左在右侧骨碌,并将持续出如今t中。。图8 试验六试验工作 举办了试验最后的边线。 9所示,资格: 1)在产生上标志的字母是歌曲作风。、小四。 2)点击标志。,输入数字如图所示。 3)点击明确的掩藏。,泻药标志物质。 4)点击偿清。,完毕顺序运转。试验使移近: 1)吐艳 ,创办基准 EXE 工程。 2)塑造。 Caption 属性设置为标志锻炼。, Font 属性设置为歌曲构成。、小四。 3) mand1 、 command2 、 command3 , caption 属性辨别标志。、“清屏”、“偿清”。 4)在法典窗口中输入下面的法典。 Private mand1_Click() For i=1 在下面标志兑换平方。,共 5
物质出生于厦门网。请表明出处。

Leave a Comment

(0 Comments)

电子邮件地址不会被公开。 必填项已用*标注