a我考网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 65|回复: 0

[Visual Basic] 2011年计算机等级考试二级VB基础教程(31)

[复制链接]
发表于 2012-7-31 22:10:12 | 显示全部楼层 |阅读模式
  8.1进程条(ProgressBar)和滑块(Slider)6 k2 U' z2 ^2 r1 m. J5 j; Z* J
  1. 进程条 作用:进程条控件用于监视操作完成的进度。8 s; Z  R. V5 D/ u+ J3 I
  创建:在窗体上画出进程条控件,右击,选择属性,然后进行所需的外观设置。) w7 n7 w. Q) O  F! R
  主要属性:ProgressBar 控件有一个行程和一个当前位置。行程代表该操作的整个持续时间。当前位置则代表应用程序在完成该操作过程时的进度。Max 和 Min 属性设置了行程的界限。Value 属性则指明了在行程范围内的当前位置。
) {) [2 _; z2 q  (1) Min属性代表进程条全空时的值,缺省时为0。1 r7 [1 w+ I* u- r( G
  (2) Max属性代表进程条全空时的值,缺省时为100。
4 g- k. {8 y% n! d9 L/ M  L  `  (3) Value属性代表进程条当前的值(但不出现在属性窗口中),它大于Min属性,小于Max属性。改变Value属性的值将改变进程条的进度显  示。
7 ?- a. e( `* {! Y  p+ Q0 s. Z  示例:
+ ~) e' s7 j& h3 b. \; ~2 C  Private Sub Command1_Click()
* [  H" a. v, ?. s8 V$ d  If ProgressBar1.Value < ProgressBar1.Max Then) H6 w( o4 v; h" ]6 F+ F
  ProgressBar1.Value = ProgressBar1.Value + 5
' M2 A( i4 K- n& `- c, C" P  Else/ [9 ]! Y6 g3 b4 V
  ProgressBar1.Visible = False ‘当进程条满了的时候让进程条消失0 c) C2 |$ f' l8 [
  End If
2 i- {8 k6 m  \* R4 l+ p  End Sub+ Z$ B9 m# p8 I" w
  2.滑块
% _9 I/ r$ C8 x/ `" u  Slider 控件是包含滑块和可选择性刻度标记的窗口,在窗体上画出滑块控件,右击,选择属性,然后进行下列设置:6 j9 i! v2 w2 c$ f: S$ k
  (1)选择滑块的外观9 {; \& q: l% `9 [, }  y  H
  1)方向属性决定滑块的方位,可以是垂直的或水平的滑块。2 J/ I' c2 X; o2 l" h
  2)滑块样式属性决定滑块标记的样子。  S% ^2 k' B: `1 \
  3)滑块频率属性规定了沿着滑块的标记的间隔大小,缺省的状态是1,表明每个可能值都出现标记,如果把值设置为3,则每三个可能值出现一个标记。% ]! c( _- o3 e. R/ [9 h
  (2)滑块的主要属性及事件
) d# i2 X3 o; x  1)Min,Max属性
! J5 ]0 G7 t& I- ^  Min属性决定滑块最左端或最顶端所代表的值。Max属性决定滑块最右端或最下端所代表的值。
) ~+ E3 |2 }, w& H1 S% |7 A4 Y  2)LargeChange,SmallChange属性% }7 O( E$ U1 \8 `$ c% [( @! g% `
  SmallChange决定在滑块两端的箭头钮上单击时改变的值。LargeChange决定在滑块上方或下方区域单击时改变的值。
' Q& S: e6 S& V3 X  3)Value属性; {% Z. m$ v6 H6 V
  Value属性代表当前滑块所处位置的值,这个值由滑块的相对位置决定。+ t8 m' _% i$ N4 Y) }* v  S# H- X! b
  4)Change事件
$ T: s% g3 P( s% c% a  当滑块位置发生变化时就引发了Change事件。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|Woexam.Com ( 湘ICP备18023104号 )

GMT+8, 2024-6-17 23:45 , Processed in 0.215288 second(s), 22 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表