VB程序設計-第六章-常用控件

VisualBasic

程序設計教程內(nèi)蒙古科技大學實踐訓練中心第六章常用控件6.1

圖形控件6.1.1圖片框和圖像框

1、圖片框

(PictureBox)

圖片框(PictureBox)主要用來顯示圖片和圖像?？梢燥@示的圖形文件格式：位圖()*.bmp；圖標(*.ico)、光標(*.cur)、元文件(*.wmf)、增強的元文件(*.emf)、JPEG文件(*.jpg)、GIF文件(*.gif)；

在圖片框中顯示圖片的方法：

⑴在屬性窗口設置Picture屬性；⑵在代碼中使用LoadPicture()函數(shù)載入圖片：

圖片框?qū)ο竺?Picture=LoadPicture(“圖形文件名”)

其中：圖形文件名是包括路徑在內(nèi)的圖形文件名。

6.1

圖形控件6.1.1圖片框和圖像框

清除圖片框中的圖形的方法：⑴在屬性窗口中直接刪除Picture屬性內(nèi)容；⑵在代碼中使用LoadPicture()函數(shù)清除圖片：

圖片框?qū)ο竺?Picture=LoadPicture(“”)

或圖片框?qū)ο竺?Picture=LoadPicture()

圖片框自動縮放：修改AutoSize屬性值為True，則圖片框自動調(diào)整大小以適應圖形。

6.1

圖形控件6.1.1圖片框和圖像框

圖片框還可以顯示用Print方法產(chǎn)生的文本和用圖形方法繪制的圖形，其清除方法：

圖片框?qū)ο竺?Cls

圖片框還可以作為其他控件的容器：當圖片框移動時，圖片框內(nèi)的其他控件也隨之移動；對于這些控件而言，其Top、Left屬性是相對于圖片框而言的；6.1

圖形控件6.1.1圖片框和圖像框2、圖像框

(Image)

與圖片框的區(qū)別：

⑴圖片框是容器控件，而圖像框不能作為容器；

⑵圖片框可以利用Print方法顯示文本，圖像框則不能；⑶圖像框比圖片框占用內(nèi)存少，顯示速度快，故當兩者都滿足設計者的要求時，優(yōu)先考慮圖像框；⑷圖片框用AutoSize屬性控制圖片框的尺寸自動適應圖片的大小，圖像框用Stretch屬性對圖片進行大小調(diào)整；6.1

圖形控件6.1.1圖片框和圖像框

2、圖像框

(Image)對于加載到圖片框或圖像框的圖片，可使用SavePicture命令將圖形保存到磁盤上。

SavePicture

對象名.屬性,文件名其中：對象名為選定的圖片框或圖像框；屬性為圖形屬性，如Picture；文件名指圖形保存的文件名，目前只支持BMP文件；

6.1

圖形控件6.1.1圖片框和圖像框

例[6-1_1]圖片框示例。在窗體上畫一個圖片框，名為P1，高為1900，寬為2400，編寫適當?shù)氖录^程，使得在運行時若單擊窗體，則裝入D盤的文件名為Pic1.jpg的圖片，若雙擊窗體，則窗體中的圖片消失。

解題思路：裝入圖片的方法：Loadpicture(“d:\pic1.jpg”)；清除圖片的方法：Loadpicture(“”)或Loadpicture();

PrivateSubForm_Click()P1.Picture=LoadPicture("d:\pic1.jpg")EndSubPrivateSubForm_DblClick()P1.Picture=LoadPicture()EndSub6.1

圖形控件6.1.1圖片框和圖像框

例[6-1_2]交換圖形。編寫程序，交換兩個圖像框中的圖形。

解題思路：交換兩個變量的值一般要引入第三個變量進行交換。本題借助于第三個圖像框?qū)崿F(xiàn)交換。

Image3.Picture=Image1.PictureImage1.Picture=Image2.PictureImage2.Picture=Image3.Picture6.1

圖形控件

6.1.2形狀(Shape)和直線(Line)

1、形狀(Shape)

功能：用來畫矩形、正方形、橢圓、圓、圓角矩形及圓角正方形。形狀控件放置到窗體上或圖片框上時，原始顯示為正方形，通過設置Shape屬性可得到需要的圖形。

Shape屬性值形狀0矩形(默認)1正方形2橢圓3圓4圓角矩形5圓角正方形另：BorderColor：設置形狀的邊框顏色；

FillStyle：填充類別，取值范圍：0-7，分別表示不同的填充方式

FillColor：形狀的填充顏色

6.1

圖形控件

6.1.2形狀(Shape)和直線(Line)

2、直線(Line)

功能：用來畫水平線、垂直線或?qū)蔷€。通過設置該控件的位置、長度、顏色、寬度、線型等屬性可產(chǎn)生不同風格的、不同顏色的直線。

⑴BorderStyle：用于設置線條的類型；BorderStyle屬性值形狀0透明線1實線(默認值)2虛線(BorderWidth＝1時有效)3點線(BorderWidth＝1時有效)4點劃線(BorderWidth＝1時有效)5雙點劃線(BorderWidth＝1時有效)6內(nèi)收實線，邊框的外邊界就是形狀的外邊緣6.1

圖形控件

6.1.2形狀(Shape)和直線(Line)

2、直線(Line)⑵BorderWidth：用于設置線條的寬度，即線條的粗細；⑶BorderColor：由于設置線條的顏色；

例[6-1_3]

形狀控件實例。在窗體上利用形狀控件畫一個矩形，名稱為Shape1，高和寬分別為1000、1700；再畫兩個命令按鈕，名稱分別為command1、command2，標題分別為“綠色橢圓”，“紅色圓”。

解題思路：形狀的屬性shape＝2為橢圓；形狀的屬性shape＝3為圓；PrivateSubCommand1_Click()Shape1.Shape=2'shape＝2為橢圓

Shape1.BorderColor=vbGreen'邊框為綠色EndSubPrivateSubCommand2_Click()Shape1.BorderColor=vbRed'邊框顏色為紅色

Shape1.Shape=3'shape＝3為圓EndSub6.1

圖形控件

6.1.2形狀(Shape)和直線(Line)

例[6-1_4]

用形狀控件和直線控件繪制直方圖。

解題思路：首先畫出x軸(line1)和y軸(line2)，根據(jù)輸入的四個值；首先確定四個標簽（顯示輸入值）的位置；用輸入的四個值來代替四個形狀的高度(Height)；再根據(jù)其代表的值確定形狀的頂部坐標（TOP）；

label1label2label3label4(x1,y1)(x1,y2)(x2,y1)heighttopLine1Line26.1

圖形控件

6.1.3圖形方法

使用繪圖方法，首先確定所畫圖形的位置，這就需要先確定坐標系。當新建一個窗體時，新窗體采用缺省坐標系，坐標原點在窗體左上角，

Height＝3600，Width＝4800，ScaleHeight＝3195，ScaleWidth＝4680。其中：ScaleHeight和ScaleWidth為窗體的實際可用的高度和寬度。自定義坐標系的方法：

[對象名].Scale[(xLeft，yTop)－(xRight，yBottom)]

其中：(xLeft，yTop)、(xRight，yBottom)為對象左上角和右下角坐標

窗體xleft,ytop左上角坐標右下角坐標xright,ybottom6.1

圖形控件

6.1.3圖形方法

1、畫點方法(Pset)

用于在指定的位置以指定的顏色畫點。格式：[對象名].Pset[step](x,y)[,顏色]其中：對象名：窗體或圖片框（picturebox）的名稱；

Step：可選項，有該參數(shù)，表明所畫的點坐標(x，y)是相對坐標（相對于當前坐標點CurrentX，CurrentY），沒有該參數(shù)，點坐標(x，y)為絕對坐標。

顏色：點的顏色，若省略則采用對象的前景色(ForeColor)。如：Pset(70,70),RGB(255,255,0)‘設置點的顏色為RGB顏色

Pset(70,70),BackColor’設置點的顏色為背景色6.1

圖形控件

6.1.3圖形方法

例[6-1_5]窗體上隨機畫帶顏色的點，實現(xiàn)滿天星效果。

解題思路：利用隨機函數(shù)Rnd，確定每個點的隨機坐標和顏色的隨機值

Dimm_x,m_y,m_red,m_green,m_blueAsLongScale(0,0)-(100,100)'自定義坐標

DrawWidth=8'設置點的大小

m_x=Rnd*100'設置隨即坐標m_x,m_y

m_y=Rnd*100

m_red=Rnd*255'設置隨機顏色

m_green=Rnd*255

m_blue=Rnd*255

PSet(m_x,m_y),RGB(m_red,m_green,m_blue)'畫點6.1

圖形控件

6.1.3圖形方法

例[6-1_6]用Pset方法繪制以下參數(shù)方程決定的曲線

x＝sin2t*cost0≤t≤2πy=sin2t*sint0≤t≤2π

解題思路：根據(jù)方程：x、y的值均在－1～1之間，所以自定義坐標系：將窗體的坐上角的坐標設為（-1，1）；右下角的坐標為（1，-1）；即：scale（-1，1）-（1，-1）(0,0)(1,0)xy(-1,0)窗體

Dimt,x,yAsSingleScale(-1,1)-(1,-1)

ForeColor=vbRedFort=0To2*3.1415926Step0.001x=Sin(2*t)*Cos(t)y=Sin(2*t)*Sin(t)

PSet(x,y),RGB(255,0,0)Next6.1

圖形控件

6.1.3圖形方法

2、畫直線、矩形方法

Line方法可用于畫直線和矩形；格式：[對象名].Line[Step(x1，y1)]－[Step](x2，y2)[，顏色][，B[F]]

其中：

對象名：窗體或圖片框（picturebox）；

Step：可選項，有該參數(shù)時，表示坐標為相對于當前點的坐標，否則為絕對坐標。

(x1,y1)：起點坐標；若省略，則表示起點為(currentX，currentY)

(x2,y2)：終點或右下角坐標

顏色：直線或矩形的顏色，若省略則使用ForeColor屬性指定的顏色B：若有B，則以(x1,y1)為左上角，以(x2,y2)為右下角坐標畫矩形；

F：在選擇參數(shù)B后才能選擇，有F表示矩形以矩形邊框的顏色填充，否則，矩形用屬性Fillcolor和Fillstyle填充；6.1

圖形控件

6.1.3圖形方法

2、畫直線、矩形方法

例[6-1_7]用Line方法畫三角形和矩形。

解題思路：畫三角形：前一條直線的終點就是后一條直線的起點

,依次畫完

三條線就構成三角形。

rem

自定義坐標系,左上角(0,0),右下角(100,100)Scale(0,0)-(100,100)DrawWidth=5

rem

畫三角形

Line(10,30)-(10,80),vbRed'(10,30)-(10,80)Line-(40,80),vbGreen'(10,80)-(40,80)Line-(10,30),vbBlue'(40,80)-(10,30)

rem

畫矩形

Line(50,30)-(80,80),vbRed,BF6.1

圖形控件

6.1.3圖形方法

3、畫圓方法

Circle方法用于畫圓、橢圓、圓弧和扇形；格式：

[對象名].Circle[Step](x，y),radius,[color]，[start]，[end][，aspect]

其中：對象名：窗體或圖片框；

Step：可選項，有該參數(shù)時表示坐標為相對于當前點的坐標，否則為絕對坐標。

(x,y)：中心坐標

Radius：半徑

Color：邊框顏色，若省略則使用ForeColor屬性指定的顏色；

Start，End：指定弧的起始、終止位置，以弧度為單位，取值：－2π～2π；負號表示在畫弧的同時，還畫出圓心到弧的的端點的連線；

Aspect：表示縱軸和橫軸的尺寸比，Aspect<1，則表示在x軸方向畫橢圓，Aspect>1，表示在y軸方向畫橢圓，默認為1；6.1

圖形控件

6.1.3圖形方法

3、畫圓方法

例[6-1_8]用Circle方法畫圓。

Scale(0,0)-(100,100)'自定義坐標系

Constpi=3.1415926Circle(25,50),20'畫標準圓

Circle(25,50),20,vbGreen,,,0.5'畫綠色橢圓，縱橫比0.5Circle(25,50),20,vbRed,,,2'畫紅色橢圓，縱橫比2

Circle(75,50),20,,-0.25*pi,-0.75*pi'畫扇形

Circle(75,50),20,,1.25*pi,1.75*pi'畫扇形

Circle(50,70),20,,-0.25*pi,0.75*pi'畫扇形6.2

選擇性控件6.2.1單選鈕、復選框和框架

1、單選鈕和復選框

單選鈕(OptionButton)和復選框(CheckBox)常用來表示“選中”或“不選”兩種狀態(tài)，單選鈕用”●”表示被選中，復選框用“√”表示被選中。

⑴、主要屬性

①Caption：單選鈕和復選框的文本標題②Value：屬性名屬性值說明單選鈕的Value屬性True被選中False未被選中復選框的Value屬性0未被選中1被選中2被禁止操作，呈灰色，可被選中注意事項：同一組單選鈕中只能有一個被選中，即只能有一個單選鈕的Value屬性值為True；而對于同一組復選框，則允許多個被選中，而且其選中狀態(tài)為反復的。6.2

選擇性控件6.2.1單選鈕、復選框和框架

例[6_9]用復選框?qū)傩栽O置示例。設置4個復選框，狀態(tài)如下：北京選中可用

上海未選中可用廣州選中不可用深圳未選中不可用

解題思路：“選中”用屬性value的“checked”值表示；“未選中”用屬性value的“unchecked”值表示；“可用”用屬性enabled的“true”值表示；“不可用”用屬性enabled的“false”值表示；

6.2

選擇性控件6.2.1單選鈕、復選框和框架

2、主要事件：

單選鈕和復選框都能相應Click等事件，由于鼠標單擊即能改變其Value屬性值，故可根據(jù)Value屬性值決定執(zhí)行處理過程。

例[6_10]用單選鈕和復選框設置文字的字體字形。

解題思路：由于一組單選鈕只能有一個被選中，因此，在單選鈕的click事件中直接給文本框的文字賦相應的值即可；復選框的選中狀態(tài)是反復的，因此需要判斷復選框的value值，而后再給文本框的文字賦相應的值。

6.2

選擇性控件6.2.1單選鈕、復選框和框架

例[6-1]用單選鈕來設置文本框的背景顏色，即改變文本框的BackColor。解題思路：由于每點擊一次單選鈕，就表示單選鈕被選中；因此在單選鈕的click事件中，對文本框的背景色進行相應的賦值?！O置文本框背景色為紅色Text1.BackColor=vbRed‘設置文本框背景色為綠色Text1.BackColor=vbGreen‘設置文本框背景色為藍色Text1.BackColor=vbBlue6.2

選擇性控件6.2.1單選鈕、復選框和框架

例[6-11]在窗體上放置三個復選框，標題依次為“旅游”、“體育”、“音樂”，另有一個命令按鈕，標題為“興趣”。程序運行后，選中復選框，再點擊命令按鈕，則在窗體上顯示相應的的信息。解題思路：由于每點擊一次單選鈕，就表示單選鈕被選中；因此在單選鈕的click事件中，依次判斷各個單選鈕是否被選中，若選中，則將命令按鈕的標題和復選框的標題連接起來，最后將該字符串顯示出來。6.2

選擇性控件6.2.1

單選鈕、復選框和框架

2、框架(Frame)

框架(Frame)是用來對窗體上的對象進行分組。比如有兩組不同類別的單選鈕，若不用框架分組，則這些單選鈕只能有一個的Value屬性值為True，用框架分組后，則每組單選鈕均可有一個Value屬性值為True。

主要屬性：

Caption：用于設置框架上的可見文字說明，若為空，則框架成為一個封閉的矩形框；

Enabled：決定框架控件是否有效；

Visible：決定框架控件是否可見；6.2

選擇性控件6.2.1

單選鈕、復選框和框架

2、框架(Frame)

例[6-2]用一組單選鈕來設置文本框的背景色，另一組單選鈕來設置文本框中文字的字體。

解題思路：設置兩個框架(Frame)，將兩組單選鈕各放其中，然后，編寫每個單選鈕的click事件。IfOption1.Value=TrueThenText1.BackColor=vbRed

IfOption2.Value=TrueThenText1.BackColor=vbGreenIfOption3.Value=TrueThenText1.BackColor=vbBlueIfOption4.Value=TrueThenText1.FontName="楷體_gb2312"IfOption5.Value=TrueThenText1.FontName="黑體"IfOption6.Value=TrueThenText1.FontName="宋體"6.2

選擇性控件6.2.1

單選鈕、復選框和框架

2、框架(Frame)

例[6-2_12]用一組單選鈕來設置文本中字體，另一組單選鈕設置文本框中的字體顏色。

解題思路：設置兩個框架(Frame)，將兩組單選鈕各放其中，將具體的程序?qū)懭朊畎粹o的click事件中。Rem

字體為宋體，字體顏色為紅色

IfOption1.Value=TrueAndOption3.Value=TrueThenText1.Text="您選擇了宋體紅色"Text1.FontName="宋體"Text1.ForeColor=vbRedEndIf

…6.2

選擇性控件6.2.2列表框和組合框

1、列表框(ListBox)

列表框用于顯示一個項目列表，用戶可以選擇其中的一項或多項。若列表框中的內(nèi)容超過可顯示的數(shù)目，則自動增加滾動條；用戶只能從列表框中選擇內(nèi)容，而不能直接寫入和修改其中的內(nèi)容；列表框6.2

選擇性控件6.2.2列表框和組合框

1、列表框(ListBox)

⑴主要屬性：屬性名屬性值說明Column0(默認)默認列表框只有一列>0多列顯示List字符串數(shù)組數(shù)組的每個元素存放一個項目的內(nèi)容,List(0),List(1)…ListCount整型數(shù)據(jù)返回列表框中的項目的數(shù)目ListIndex整型數(shù)據(jù)返回當前被選中的項目序號，即List數(shù)組下標，無項目被選中,屬性值為－1MultiSelect0(默認)列表框只能單選，不允許多選1可以多選，后續(xù)的選擇不影響前面的選擇2擴展多選，可以選擇一組連續(xù)的項目，也可以選擇一組不連續(xù)的Selected邏輯型數(shù)組Selected(0),Selected(1).若為True，則對應的項目被選中，否則未被選中Sorted邏輯型數(shù)值True表示按字母數(shù)字升序排列，否則按實際先后排序Style數(shù)值型0－標準型，1－復選框型Text字符串數(shù)據(jù)返回當前被選中的項目內(nèi)容，為默認屬性6.2

選擇性控件6.2.2列表框和組合框

注意：

①List屬性用來設置列表框的內(nèi)容；該屬性是一個字符數(shù)組，數(shù)組大小由“ListCount”屬性決定，數(shù)組下標從0開始，運行時，引用列表框的第一項是“List(0)”，第二項是”list(1)”…依此類推。

②List(List1.listIndex)等于Text，

List1.List(List1.ListIndex)=List1.Text；

即：List1.text為列表框中選中的項目的內(nèi)容；

③List數(shù)組和Selected數(shù)組在程序中使用時，通常應在數(shù)組元素前加上對象名List1。數(shù)組元素的完整表示為：List1.List(0),List1.List(1)…

和List1.Selected(0),List1.Selected(1)…等；④List1.ListIndex

為列表框中選中項目的位置；

6.2

選擇性控件6.2.2列表框和組合框

⑵、事件列表框接受Click、Dblclick等一些常用事件；

⑶、方法

①AddItem方法格式：<列表框>.Additem

項目字符串[，位置值]

該方法是將項目字符串所指定的一個項目插入到由位置值所指定的位置上，位置值由0～ListCount－1，每插入一項，ListCount屬性自動加1，若省略位置值，則新增的項目添加到最后。

②

Clear方法格式：<列表框>.Clear

該方法用于清除列表框中所有的項目，將ListCount屬性值置為0。

③RemoveItem格式：<列表框>.RemoveItem

位置值

該方法將指定位置上的項目從列表框中刪除，ListCount屬性值減1；6.2

選擇性控件6.2.2列表框和組合框

例[6-3_1]

顯示列表框的基本屬性。在列表框中加入若干內(nèi)容，單擊列表框中的某一項，則在窗體上顯示列表框的內(nèi)容項以及該項在列表框中的位置。

解題思路：在列表框的click事件中編寫程序：顯示列表框的內(nèi)容項

list1.text和該項的位置list1.listindex;。

PrivateSubList1_Click()PrintList1.Text;List1.ListIndexEndSub6.2

選擇性控件6.2.2列表框和組合框

例[6-3]

交換兩個列表框中的項目，其中一個列表框的項目為“a，b，c”，按字母數(shù)字升序排列，另一個列表框中的項目為”1、2、3“，按加入的先后順序排列，程序運行后，雙擊某一個列表框中的一個項目，該項目會移動到另一個列表框，并從原列表框中刪除。

解題思路：在窗體上創(chuàng)建兩個列表框，其中一個Sorted屬性值設為True，另一個的Sorted屬性值設為False，其他屬性值均使用默認值，在各自的dblclick

事件中編寫程序：首先將選定的項目增加到另一個列表框中，再從本列表框中刪除該項目。PrivateSubList1_DblClick()'將列表框1的項目添加到列表框2List2.AddItemList1.Text'從列表框1中刪除該項List1.RemoveItemList1.ListIndexEndSubPrivateSubList2_DblClick()'將列表框2的項目添加到列表框1中List1.AddItemList2.Text'從列表框2中刪除該項

List2.RemoveItemList2.ListIndexEndSub6.2

選擇性控件6.2.2列表框和組合框

例[6-2_4]列表框項目添加和刪除。在窗體上畫兩個單選鈕，再畫一個列表框和一個文本框，程序運行后，選擇添加項目到列表框或刪除列表框中的項目，若后點擊窗體執(zhí)行程序。解題思路：在窗體的click事件中首先判斷單旋鈕的選中狀況，而后對列表框執(zhí)行增加或刪除命令。

DimiAsIntegerIfOption1.Value=TrueThenText1.Text=InputBox("請輸入要添加的項目：")List1.AddItemText1.TextEndIfIfOption2.Value=TrueThenText1.Text=InputBox("請輸入要刪除的項目：")‘遍歷列表框中的每一項，若項目內(nèi)容與文本框的內(nèi)容相同，則刪除該項目

Fori=0ToList1.ListCount-1IfList1.List(i)=Text1.TextThenList1.RemoveItemiEndIfNextEndIf6.2

選擇性控件6.2.2列表框和組合框

2、組合框(ComboBox)

組合框是綜合列表框和文本框的特性而成的一個控件。組合框既可以像文本框一樣接受用戶輸入，也可以像列表框一樣列舉多個項目供用戶選擇，默認名稱為Combo1.

6.2

選擇性控件6.2.2列表框和組合框

2、組合框(ComboBox)

⑴主要屬性：屬性名屬性值說明Style0稱為“下拉組合框”，類似一個下拉列表框，，可以多選項目；可以輸入文本，接受DropDown事件1稱為“簡單組合框”，由一個文本框和一個簡單的列表框組成2稱為“下拉式列表框”，不接受文本輸入，可響應DropDown事件Text字符串型數(shù)據(jù)存放用戶所選項目內(nèi)容或直接輸入的文本6.2

選擇性控件6.2.2列表框和組合框

⑵主要事件：組合框響應的事件依賴于Style屬性值“

Style＝0，可響應Click、Dblclick、Change和DropDown事件；

Style＝1，可響應Click、Change事件；

Style＝2，可響應Click和DropDown事件；當用戶單擊組合框右端的向下小箭頭時，將觸發(fā)DropDown事件。

⑶主要方法：常用方法同列表框，有AddItem、Clear和RemoveItem方法。6.2

選擇性控件6.2.2列表框和組合框

例[6-4_0]組合框應用。在窗體上畫兩個組合框，一個顯示的字體號，一個設置顯示的字體。

解題思路：組合框的click事件中編寫相應的命令：分別設置標簽的字體號和字體名稱。

PrivateSubCombo1_Click()Label3.FontSize=Combo1.TextEndSubPrivateSubCombo2_Click()Label3.FontName=Combo2.TextEndSub6.2

選擇性控件6.2.2列表框和組合框

例[6-4_1]組合框應用一。用戶輸入教師的姓名，根據(jù)組合框提示選擇性別、職稱和學歷四項基本信息，按“確定”命令按鈕后將一個教師的四項基本信息寫入一個列表框內(nèi)。

解題思路：在窗體的load事件中，給”性別“、”職稱“、”學歷“賦予初值，而后在命令按鈕中編寫列表框的增加項目的命令。

6.2

選擇性控件6.2.2列表框和組合框

例[6-4_2]

組合框應用二。程序運行時，分別在兩個組合框輸入姓名和籍貫，單擊“添加”將其添加；在組合框中選擇相應的項目后，單擊“刪除”將其刪除；“按統(tǒng)計”按鈕，統(tǒng)計組合框中項目的個數(shù)6.3

滾動條

滾動條分為水平滾動條(HScrollBar)和垂直滾動條(VScrollBar)；

1、主要屬性：屬性名屬性值說明Value整型數(shù)據(jù)該屬性返回滾動塊當前位置。Max整型數(shù)據(jù)[－32768～32767]，滾動條能表示的最大值Min整型數(shù)據(jù)[－32768～32767]，滾動條能表示的最小值LargeChange整型數(shù)據(jù)[1～32767]，單擊滾動條區(qū)域時Value值的增量或減量SmallChange整型數(shù)據(jù)[1～32767]，單擊滾動箭頭時Value屬性值的變化幅度6.3

滾動條

2、主要事件⑴Scroll事件：當在滾動條內(nèi)拖動滾動塊時觸發(fā)的事件；⑵Change事件：當滾動塊被移動到新位置后或在程序執(zhí)行過程中Value屬性值發(fā)生變化觸發(fā)的事件；

例[6-5]設計一個用于設置速度的滾動條。

解題思路：由于拖動滾動條或在滾動條區(qū)域內(nèi)點擊鼠標，都會改變滾動條的value屬性值，根據(jù)滾動條返回的value值，顯示在文本框和標簽里。PrivateSubHScroll1_Change()Text1.Text=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Label4.Caption="movingto"&HScroll1.ValueEndSub6.3

滾動條

例[6-5_1]用滾動條擴大和縮小窗體。在窗體上畫一個垂直滾動條和一個水平滾動條；程序運行后，若滾動滾動條上的滾動滑塊，則可擴大和縮小窗體。

解題思路：首先在窗體的Load事件對窗體和滾動條進行初始化，利用滾動條的scroll事件，橫滾動條放大窗體的寬度(width)，豎滾動條放大窗體的高度(height)。

PrivateSubHScroll1_Scroll()Form1.Width=Form1.Tag*HScroll1.Value/HScroll1.MinEndSubPrivateSubVScroll1_Scroll()Form1.Height=Form1.Tag*VScroll1.Value/VScroll1.MinEndSub6.4

時鐘

VB系統(tǒng)提供了一個時鐘控件(Timer)，用戶可以通過該控件使用系統(tǒng)時鐘來計時，也允許用戶自己定制時間，每一個時間間隔內(nèi)出發(fā)一個計時器事件。

1、主要屬性

Interval：用于決定時鐘觸發(fā)事件的事件間隔；為整型值，取值范圍：0－65535,單位：毫秒。

Enabled：設置時鐘控件是否有效。

2、主要事件

Timer：每經(jīng)過一個Interval屬性設定的時間間隔，就觸發(fā)一次Timer事件。

6.4

時鐘

例[6-6]

設計一個數(shù)字時鐘。

解題思路：根據(jù)Timer控件設置的的Interval屬性值為1000，每隔一次Interval，就利用vb的time函數(shù)獲取一次系統(tǒng)時間。

PrivateSubTimer1_Timer()Label1.FontName="timesnewroman"Label1.FontSize=48Label1.Caption=Time$

'time函數(shù)獲取當前系統(tǒng)時間

EndSub6.4

時鐘例[6-6_1]利用Timer控件，移動窗體上的控件。

解題思路：在Form的Load事件中，設置Timer控件的Interval和Enabled屬性，每隔一次Interval，標簽的Top就減一次100個單位，向上移動一次。PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=500EndSubPrivateSubTimer1_Timer()IfLabel1.Top>0ThenLabel1.Top=L