新觀念的VB6教本ch08

新觀念的新觀念的 VB6VB6 教本教本
第八章第八章陣列陣列 (Array)(Array)

8-18-1 陣列的基本觀念與用法陣列的基本觀念與用法

陣列的基本觀念與用法陣列的基本觀念與用法 (1)(1)
 陣列陣列 (Array)(Array) 與我們前面介紹過的與我們前面介紹過的變數變數一一
樣，其功能都是用來儲存資料，所不同樣，其功能都是用來儲存資料，所不同
的是每一個變數只能儲存一項資料，而的是每一個變數只能儲存一項資料，而
每一個陣列則可用來儲存連續的多項資每一個陣列則可用來儲存連續的多項資
料。料。

陣列的基本觀念與用法陣列的基本觀念與用法 (2)(2)
350
799
168變數
陣列 168 350 799
每一個變數只能儲存一項資料，
而幾個變數之間是個別獨立的。
陣列能夠儲存多項資料，而
資料之間是依序排列的。
0 1 2
順序是 0、1、2…

使用陣列使用陣列 (1)(1)
 陣列必須先宣告才能使用，其宣告格式陣列必須先宣告才能使用，其宣告格式
與變數的宣告很像，例如：與變數的宣告很像，例如：
 最簡單的陣列宣告格式是：最簡單的陣列宣告格式是：
' 宣告一個變數 A
' 宣告一個陣列 X
Di m A
Di m X( 2)
比變數多出的部份
Dim 陣列名稱 (N)

 DimDim 陣列名稱陣列名稱 (N)(N)
NN 代表最後一項資料的順序，例如：代表最後一項資料的順序，例如：
0 1 2 3 4 排列順序
Di m X( 4)
宣告一個名稱為X的陣列，其
資料排列順序是 0～4，共 5 項

 一旦宣告了陣列，我們就可以存取陣列一旦宣告了陣列，我們就可以存取陣列
中各單項的資料，存取的方法是在陣列中各單項的資料，存取的方法是在陣列
名稱之後加上名稱之後加上 ""(( 資料順序資料順序 ))"" ，例如：，例如：
' 將 168 存到陣列 X 的第 0 項資料中X( 0) = 168
( 資料順序)

 又如：又如：
X(1) = 350 ’ 將 350 存到陣列 X 的第 1
項資料中
X(2) = X(0) + X(1) ’ 分別取出陣列 X 的第 0
項及第 1 項
’ 資料，相加後，存到第 2 項資
料中

 在術語上，陣列中的每一項資料叫做一個在術語上，陣列中的每一項資料叫做一個元素元素
(element)(element) ，而用來指定某一個元素的，而用來指定某一個元素的 00 、、 11 、、
22 、…順序叫做、…順序叫做註標註標 (subscript)(subscript) ，如下：，如下：
X( 0)
X( 1)
X( 2)
X( 3)
X( 4)
陣列 X
陣列元素 X( 0) ～X( 4)
陣列註標 0～4
名稱資料順序資料內容
X 0
1
2
3
4

陣列的宣告陣列的宣告 (1)(1)
 陣列的宣告除了前面的「陣列的宣告除了前面的「 DimDim 陣列名稱陣列名稱
(N)(N) 」格式之外，也可以是以下格式：」格式之外，也可以是以下格式：
 額外多出來的「額外多出來的「 AsAs 資料型別」與「＋資料型別」與「＋
型別宣告符號」其作用是指定陣列的資型別宣告符號」其作用是指定陣列的資
料型別。料型別。
Dim 陣列名稱 (N) As 資料型別
或
Dim 陣列名稱＋型別宣告符號 (N)

陣列的宣告陣列的宣告 (2)(2)
 例如：例如：
Dim Y(10) As Integer ’ 宣告一個含有 11 個元素的陣列而每
’ 一個陣列元素的資料型別都是整數
Dim Z$(9) ’ $ 是字串的型別宣告符號，所以這個
’敘述宣告了 10 個字串元素的陣列

使用陣列的注意事項使用陣列的注意事項 (1)(1)
 陣列宣告敘述只能用於程式視窗，即時陣列宣告敘述只能用於程式視窗，即時
運算視窗是不接受的。運算視窗是不接受的。

 不能一次讀取或指定整個陣夠不能一次讀取或指定整個陣夠
列的資料，例如：列的資料，例如：
Dim Y(10) As Integer
Y = 100 ' 想把整個陣列的資料指定為 100 ，不接受
For I = 0 To 10
Y(I) = 100 ' 逐一對每一個陣列元素進行指定動作才是正確的
Next I

 用來指定某一項資料的註標不能超過陣用來指定某一項資料的註標不能超過陣
列的註標範圍，例如：列的註標範圍，例如：
Dim Y(10) As Integer ' 陣列 Y 的註標範圍是
0 ～ 10
Y(-1) = 5 ' 錯誤， -1 超過註標範圍
Y(11) = 15 ' 錯誤， 11 超過註標範
圍

陣列的優點陣列的優點 (1)(1)
 我們利用陣列把資料一一排列在一起，我們利用陣列把資料一一排列在一起，
可以使得資料的存取變得比較方便，舉可以使得資料的存取變得比較方便，舉
例來說，如果我們把例來說，如果我們把 55 項資料放在項資料放在 55
個變數裡面，例如：個變數裡面，例如：
A = "Word"
B = "Excel"
C = "PowerPoint"
D = "Access"
E = "Mail"

 則把它們逐行印出來，必須使用則把它們逐行印出來，必須使用 55 個敘個敘
述：述：
Print A
Print B
Print C
Print D
Print E

 如果我們把這如果我們把這 55 項資料放在陣列裡面，則只項資料放在陣列裡面，則只
需三行敘述就可以把它們全部印出來，如下：需三行敘述就可以把它們全部印出來，如下：
 而即使資料的項數多達而即使資料的項數多達 100100 項，也只要將上述項，也只要將上述
程式程式 ForFor 敘述中的敘述中的 44 改成改成 9999 ，就可以把資料，就可以把資料
全部印出來，如果換成列印全部印出來，如果換成列印 100100 個變數可就累個變數可就累
了。了。
For I = 0 To 4
Print X(I)
Next I

陣列的優點陣列的優點 ---- 實例練習一實例練習一
 輸入輸入 55 份資料，然後將資料顛倒順序列份資料，然後將資料顛倒順序列
印出來。印出來。
Dim X(4)
For I = 0 To 4
X(I) = InputBox(" 請輸入第 " & I & " 份資
料 ")
Next
For I = 4 To 0 Step -1
Print " 請輸入第 " & I & " 份資料 = "; X(I)
Next

陣列的優點陣列的優點 ---- 實例練習二實例練習二
 輸入輸入 55 份數值資料，輸入完畢之後，將份數值資料，輸入完畢之後，將
最大值及最小值顯示出來。最大值及最小值顯示出來。
Dim X(4)
For I = 0 To 4
X(I) = Val(InputBox(" 請輸入第 " & I & " 份資料 "))
Next
Min = X(0) ' 先假設第 0 份資料為最小值
Max = X(0) ' 先假設第 0 份資料為最大值
For I = 1 To 4 ' 然後從第 1 份資料開始比較
If X(I) < Min Then Min = X(I)
If X(I) > Max Then Max = X(I)
Next
Print " 最大值 = ";Max, " 最小值 = ";Min

8-28-2 陣列進階陣列進階

註標範圍的設定註標範圍的設定 (1)(1)
 以「以「 DimDim 陣列名稱陣列名稱 (N)(N) 」敘述所宣告的陣列，」敘述所宣告的陣列，
其註標範圍是其註標範圍是 00 ～～ NN ，其中起始註標是固定的，其中起始註標是固定的
(( 等於等於 0)0) ，而終止註標則由宣告時的，而終止註標則由宣告時的 NN 值決定。值決定。
另外還有一種宣告格式則可設定非另外還有一種宣告格式則可設定非 00 的起始註的起始註
標，其格式如下：標，其格式如下：
註：N 必須 ≧ MDim 陣列名稱 (M To N)
設定起始註標，若省略則等於 0

註標範圍的設定註標範圍的設定 (2)(2)
Dim X(4)' 等於 Dim X(0 To 4)
Dim A(-4 To 5)' 註標範圍從 -4 到 5, 共 5-(-4)+1=10 項資料

註標範圍的讀取註標範圍的讀取
 陣列的註標範圍可以設定，也可以讀取陣列的註標範圍可以設定，也可以讀取
，其方法是呼叫，其方法是呼叫 LboundLbound 及及 UboundUbound 函函
數：數：
V1 = LBound( 陣列名稱 ) ' 讀取起始註
標
V2 = UBound( 陣列名稱 ) ' 讀取終止註
標
Dim A(-4 To 5)
Print LBound(A) ' 印出 -4
Print UBound(A) ' 印出 5

註標範圍讀取註標範圍讀取 ---- 實際應用實際應用
 LboundLbound 與與 UboundUbound 若應用在程式中，可增加程式的彈性若應用在程式中，可增加程式的彈性
，舉例來說，前面有一段列印陣列所有資料的程式，如下，舉例來說，前面有一段列印陣列所有資料的程式，如下
：：
 這個程式的缺點是：當我們修改陣列這個程式的缺點是：當我們修改陣列 XX 的註標範圍時的註標範圍時
，必須跟著修改，必須跟著修改 ForFor 敘述中的敘述中的 00 及及 44 。如果把它改成。如果把它改成
：：
For I = 0 To 4
Print X(I)
Next I
For I = LBound(X) To UBound(X)
Print X(I)
Next I

可改變大小陣列可改變大小陣列 ---- ReDimReDim 敘述敘述
(1)(1)
 利用利用 DimDim 所宣告的陣列，其大小是所宣告的陣列，其大小是
固定的，也就是說，陣列元素的個固定的，也就是說，陣列元素的個
數是不能改變的，如果我們想機動數是不能改變的，如果我們想機動
地調整陣列的大小，就不適合使用地調整陣列的大小，就不適合使用
DimDim 敘述來宣告陣列，為此，敘述來宣告陣列，為此， VBVB
提供了另一種宣告陣列的敘述 –提供了另一種宣告陣列的敘述 –
ReDimReDim 敘述。敘述。

可改變大小陣列可改變大小陣列 ---- ReDimReDim 敘述敘述 (2)(2)
 ReDimReDim 敘述在陣列宣告的格式上與敘述在陣列宣告的格式上與 DimDim
敘述完全敘述完全相同相同，例如：，例如：
Dim A(5) ' 宣告一個含有 6 個元素的陣列
ReDim B(5) ' 也是宣告一個含有 6 個元素
的陣列

可改變大小陣列可改變大小陣列 ---- ReDimReDim 敘述敘述
(3)(3)
 所不同的是以所不同的是以 ReDimReDim 所宣告的陣列，所宣告的陣列，
將來可以再利用將來可以再利用 ReDimReDim 敘述來調整陣敘述來調整陣
列的大小，調整敘述的格式如下：列的大小，調整敘述的格式如下：
ReDi m 陣列名稱 ( M To N)
新的註標範圍

可改變大小陣列可改變大小陣列 ---- ReDimReDim 敘述敘述 (4)(4)
Dim A(5)
ReDim B(5)
…
ReDim A(10) ' 錯誤！陣列 A 的大小不能改變
ReDim B(20) ' 將陣列 B 的註標範圍由 0 ～ 5 調
整成 0 ～ 20
…
ReDim B(-1 To 4) ' 又將陣列 B 的註標範圍調整
成 -1 ～ 4

可改變大小陣列可改變大小陣列 ---- DimDim 陣列名陣列名
( )( )
 除了除了 ReDimReDim 敘述之外，如果一開始利敘述之外，如果一開始利
用用 DimDim 敘述宣告敘述宣告 00 個元素的陣列，則個元素的陣列，則
這個陣列也是可以改變大小的，例如：這個陣列也是可以改變大小的，例如：
Dim X() ' 陣列元素個數等於 0 ，所以將來陣列是可
以改變大小的
Dim Y(0) ' 陣列元素個數等於 1 ，所以陣列的大小是固定
ReDim Z(5) ' 使用 ReDim 宣告陣列，所以將來陣列是可以改變
大小的
ReDim X(10) ' 正確
ReDim Y(10) ' 錯誤

可改變大小陣列可改變大小陣列 ---- 保留陣列元素的值保留陣列元素的值
(1)(1)
 請注意利用請注意利用 ReDimReDim 調整大小的陣列，原調整大小的陣列，原
陣列中的所有資料都會被清成陣列中的所有資料都會被清成 00 或空值或空值
，如果想保留原陣列中的資料，則要在，如果想保留原陣列中的資料，則要在
ReDimReDim 之後加上之後加上 PreservePreserve 保留字，格式保留字，格式
是：是：ReDi m Pr eser ve 陣列名稱 ( M To N)
表示保留原陣列中的資料

可改變大小陣列可改變大小陣列 ---- 保留陣列元素的值保留陣列元素的值 (2)(2)
 請參考以下例子：請參考以下例子：
ReDim X(5)
ReDim Y(10) As Integer
For I = 0 To 5
X(I) = “computer” & I
Next I
For I = 0 To 10
Y(I) = I*10
Next I
ReDim X(10) ‘ 把陣列 X 加大，但未加 Preserve ，
所以
’ 原陣列 X(0) ～ X(5) 的資料都會被清
掉
ReDim Preserve Y(7) ‘ 將陣列 Y 縮小，但加了
Preserve ，所以

可改變大小陣列可改變大小陣列 ---- 實例練習實例練習
(1)(1)
 寫一程式讀取使用者輸入的資料，並存寫一程式讀取使用者輸入的資料，並存
入陣列中，直到使用者輸入 “入陣列中，直到使用者輸入 “ quit”quit” 為止。為止。
 由於不知道使用者會輸入幾筆資料，所由於不知道使用者會輸入幾筆資料，所
以我們必須使用以我們必須使用 ReDimReDim 或或 Dim X()Dim X() 的的
功能，機動地調整陣列的大小，所以程功能，機動地調整陣列的大小，所以程
式大致如下：式大致如下：

(2)(2)
Dim X() ’ 先宣告一個陣列元素個數等於 0 的陣
列
N = 0 ’ 用變數 N 來記錄使用者輸入的筆數
data = InputBox(“ 請輸入資料” )
While data <> “quit” ’ 若輸入≠“ quit” ，持續輸入
ReDim Preserve X(N+1) ’ 將陣列 X 加大 1 筆
X(N) = data ' 將輸入的資料指定到陣列的最後一個
元素
N = N + 1 ’ 增加了一筆

(3)(3)
 輸入結束後，如果想檢陣列的內容您查輸入結束後，如果想檢陣列的內容您查
是否正確，可利用以下迴圈將資料輸出是否正確，可利用以下迴圈將資料輸出
到表單上：到表單上：
For I = 0 To N - 1
Print X(I), ' 尾巴加個逗號，表示不要跳
行
If (I+1) MOD 4 = 0 Then Print ' 每 4
筆跳一行
Next I

二維陣列二維陣列 (1)(1)
 除了一一排列的資料之外，我們也可能除了一一排列的資料之外，我們也可能
會處理表格式的資料，例如：會處理表格式的資料，例如：
第０行第０行第１行第１行第２行第２行第３行第３行
第０列第０列打擊者打擊者長打率長打率上壘率上壘率打擊率打擊率
第１列第１列 BillBill 0.50.5 0.420.42 0.3870.387
第２列第２列 DavidDavid 0.4530.453 0.390.39 0.3330.333
第３列第３列 NormanNorman 0.360.36 0.420.42 0.340.34
第４列第４列 WalterWalter 0.420.42 0.3920.392 0.320.32

 以這個表格為例，計有以這個表格為例，計有 55 列、列、 44 行，所以共有行，所以共有
5×45×4 項資料，如果我們想用陣列來儲存這個表項資料，如果我們想用陣列來儲存這個表
格，則可以這樣宣告：格，則可以這樣宣告：
 像這樣含有兩個註標的陣列，稱為像這樣含有兩個註標的陣列，稱為二維陣列二維陣列，，
而存取二維陣列的資料也會使用到兩個註標，而存取二維陣列的資料也會使用到兩個註標，
例如：例如：
Di m X( 4, 3)
註標範圍： 0～3註標範圍： 0～4
列行
X(1, 2) = 0.42 ' 將第 1 列、第 2 行的資
料指定成 0.42
Print X(3, 2) ' 印出第 3 列、第 2 行的

 如果我們將整個陣列的註標標示出來，如果我們將整個陣列的註標標示出來，
則是：則是：
第０行第０行第１行第１行第２行第２行第３行第３行
第０列第０列 (0,0)(0,0) (0,1)(0,1) (0,2)(0,2) (0,3)(0,3)
第１列第１列 (1,0)(1,0) (1,1)(1,1) (1,2)(1,2) (1,3)(1,3)
第２列第２列 (2,0)(2,0) (2,1)(2,1) (2,2)(2,2) (2,3)(2,3)
第３列第３列 (3,0)(3,0) (3,1)(3,1) (3,2)(3,2) (3,3)(3,3)
第４列第４列 (4,0)(4,0) (4,1)(4,1) (4,2)(4,2) (4,3)(4,3)

二維陣列資料的輸入二維陣列資料的輸入 (1)(1)
 如果要對整個二維陣列的資料進行處理，通常要使用如果要對整個二維陣列的資料進行處理，通常要使用
For-NextFor-Next 巢狀迴圈，例如利用巢狀迴圈，例如利用 InputBoxInputBox 輸入資料到以輸入資料到以
上二維陣列的程式，如下圖。上二維陣列的程式，如下圖。
 請注意在請注意在程式程式 -1-1 之中，我們以「列」為外迴圈，所以之中，我們以「列」為外迴圈，所以
外迴圈每執行一次，便存入一橫列。外迴圈每執行一次，便存入一橫列。
Di m X( 4, 3)
For I = 0 To 4　　　列
　　For J = 0 To 3　　　行
　　　　S = "請輸入資料( " & I & " , " & J & " ) "
　　　　X( I , J) = I nput Box( S )
　　Next J
Next I
陣列資料
存入順序
1
2
3
4
5
外迴圈執行一次
便存入一橫列
程式-1

二維陣列資料的輸入二維陣列資料的輸入 (2)(2)
 如果以「行」為外迴圈，則外迴圈每執如果以「行」為外迴圈，則外迴圈每執
行一次，便存入一直行，如下右圖。行一次，便存入一直行，如下右圖。
Di m X( 4, 3)
For J = 0 To 3　　　行
　　For I = 0 To 4　　　列
　　　　S = "請輸入資料( " & I & " , " & J & " ) "
　　　　X( I , J) = I nput Box( S )
　　Next I
Next J
陣列資料
存入順序
外迴圈執行一次
便存入一直行
1 2 3 4
程式-2

二維陣列的實例研究二維陣列的實例研究 (1)(1)
 歌唱大賽歌唱大賽 55 位歌者進入總決賽，有位歌者進入總決賽，有 1010
位評審參與評分工作，試寫一程式記錄位評審參與評分工作，試寫一程式記錄
1010 位評審給位評審給 55 位歌者的分數，最後再位歌者的分數，最後再
計算每位歌者的總分及平均分數。計算每位歌者的總分及平均分數。

二維陣列的實例研究二維陣列的實例研究 (2)(2)
Dim Score(4, 9)
For I = 0 To 4
Sum = 0
For J = 0 To 9
S = " 輸入第 " & I + 1 & " 位歌者 , 第 " & J + 1 & " 位評審的分
數 "
Score(I, J) = Val(InputBox(S))
Sum = Sum + Score(I, J)
Next J
Print " 第 "; I + 1; " 位歌者總分 ="; Sum, " 平均分數 ="; Sum /
10
Next I

多維陣列多維陣列 (1)(1)
 除了一維跟二維陣列之外，我們也可宣除了一維跟二維陣列之外，我們也可宣
告一個任意維數的陣列，如下：告一個任意維數的陣列，如下：
Di m 陣列名稱 ( M, N, L, … ) [ As 資料型別 ]
維數就看這裡有幾個註標

多維陣列多維陣列 (2)(2)
Dim Z(3, 4, 5, 6, 9) ' 宣告一個五維陣列 , 可儲存的資料數
共有：
' (3+1)(4+1)(5+1)(6+1)(9+1)=8400

ArrayArray ：讓「變數」變成「陣：讓「變數」變成「陣
列」的函數列」的函數 (1)(1)
 VBVB 提供了一個有趣的函數提供了一個有趣的函數 ArrayArray ，可，可
以讓變數變成陣列，例如：以讓變數變成陣列，例如：
 結果顯示出來的內容分別等於結果顯示出來的內容分別等於
"" 春春 "" 、、 "" 夏夏 "" 、、 "" 秋秋 "" 、、 "" 冬冬 "" ，證明，證明 XX
是一個陣列。是一個陣列。
Dim X ‘ X 是一個不定型變數
X = Array(" 春 ", " 夏 ", " 秋 ", " 冬 ")
Print X(0), X(1), X(2), X(3) ' 檢驗 X 的值

ArrayArray ：讓「變數」變成「陣：讓「變數」變成「陣
列」的函數列」的函數 (2)(2)
 ArrayArray 最方便的地方在於可以一次指定多個元最方便的地方在於可以一次指定多個元
素，以上面的程式為例，如果不使用素，以上面的程式為例，如果不使用 ArrayArray 函函
數，則程式必須寫成：數，則程式必須寫成：
 在書寫上確實比較不方便。在書寫上確實比較不方便。
Dim Y(3)
Y(0) = " 春 "
Y(1) = " 夏 "
Y(2) = " 秋 "
Y(3) = " 冬 "

使用使用 ArrayArray 的注意事項的注意事項
 請注意請注意 ArrayArray 函數的傳回值只能指定給函數的傳回值只能指定給
不定型變數，請參考以下幾個例子：不定型變數，請參考以下幾個例子：
Dim X1 ' X1 是不定型變數
Dim X2 As Variant ' X2 是不定型變數
Dim X3 As String' X3 是字串變數
Dim X4(3) ' X4 是不定型變數陣列
X1 = Array(" 春 ", " 夏 ", " 秋 ", " 冬 ") '
正確
X2 = Array(" 春 ", " 夏 ", " 秋 ", " 冬 ") '
正確

ArrayArray 的實例練習的實例練習 (1)(1)
 讓使用者輸入讓使用者輸入 11 ～～ 1212 ，然後顯示對應的，然後顯示對應的
中文月份，例如輸入中文月份，例如輸入 88 即顯示「八月」。即顯示「八月」。
Private Sub Command1_Click()
Dim M
M = Array(“ 一月” , “ 二月” , “ 三月” , “ 四月” , “ 五月” , “ 六月” , _
“ 七月” , “ 八月” , “ 九月” , “ 十月” , “ 十一月” , “ 十二月 ")
L10:
X = Val(InputBox(" 請輸入 1 ～ 12 的數字 "))
If X < 1 Or X > 12 Then MsgBox " 超出範圍 , 請重輸入 !": GoTo
L10
Print " 月份 = " & M(X - 1)
End Sub

ArrayArray 的實例練習的實例練習 (2)(2)
 在以上程式中，有兩個地方得注意：值在以上程式中，有兩個地方得注意：值
 由於由於 MM 的陣列註標是從的陣列註標是從 00 ～～ 1111 ，所以根據，所以根據
輸入的輸入的 XX 來顯示月份時，應使用值來顯示月份時，應使用值 M(X -1)M(X -1) ，，
而不是而不是 M(X)M(X) 。。
 由於由於 ArrayArray 敘述太長了，此時可以在敘述中敘述太長了，此時可以在敘述中
插入插入 " _"(" _"( 一個空白字元及一個底線字元一個空白字元及一個底線字元 )) ，然，然
後將後面的敘述輸入於下一行。後將後面的敘述輸入於下一行。
M = Ar r ay( " 一月" , " 二月" , " 三月" , " 四月" , " 五月" , " 六月" , _
" 七月" , " 八月" , " 九月" , " 十月" , " 十一月" , " 十二月" )
一個空白字元及一個底線字元

8-38-3 控制元件陣列及其應用控制元件陣列及其應用

控制元件陣列控制元件陣列
 除了將多個變數集合起來構成變數除了將多個變數集合起來構成變數
陣列之外，控制元件也可以集合起陣列之外，控制元件也可以集合起
來構成控制元件陣列，唯控制元件來構成控制元件陣列，唯控制元件
陣列的形成與陣列的形成與 DimDim 敘述無關，而取敘述無關，而取
決於控制元件佈置的技巧與屬性的決於控制元件佈置的技巧與屬性的
設定。設定。

佈置控制元件陣列佈置控制元件陣列 -- Step1-- Step1
 在表單上佈置一影像框在表單上佈置一影像框 (Image)(Image) 控制元件，並且將控制元件，並且將
其其 PicturePicture 屬性設定成本書屬性設定成本書 ch08ch08 目錄底下的目錄底下的
trffc10a.icotrffc10a.ico 圖示檔，佈置之後，表單的外觀如下圖示檔，佈置之後，表單的外觀如下
：：

佈置控制元件陣列 –佈置控制元件陣列 – Step2Step2
 在此一影像框上面按下滑鼠右鈕，待出現快顯在此一影像框上面按下滑鼠右鈕，待出現快顯
功能表時，選取其中的「功能表時，選取其中的「複製複製」命令。」命令。

 在表單上按下滑鼠右鈕，待出現快顯功能表時在表單上按下滑鼠右鈕，待出現快顯功能表時
，選取其中的「，選取其中的「貼上貼上」命令。」命令。

佈置控制元件陣列 –佈置控制元件陣列 – Step4-1Step4-1
 步驟步驟 33 的目的是將剪貼簿之中的的目的是將剪貼簿之中的 Image1Image1 影像影像
框複製到表單上面，但表單上原本就已經有一框複製到表單上面，但表單上原本就已經有一
個名稱為個名稱為 Image1Image1 的影像框了，結果的影像框了，結果 VBVB 會顯示會顯示
以下交談窗：以下交談窗：

佈置控制元件陣列 –佈置控制元件陣列 – Step4-2Step4-2
 接下來選取「是」，表示要將接下來選取「是」，表示要將 Image1Image1
建立成控制元件陣列，接著原先的建立成控制元件陣列，接著原先的
Image1Image1 會成為會成為 Image1(0)Image1(0) 、新複製進來、新複製進來
的的 Image1Image1 控制元件則成為控制元件則成為
Image1(1)Image1(1) ，而兩個控制元件就形成了一，而兩個控制元件就形成了一
組組 Image1(0 To 1)Image1(0 To 1) 的控制元件陣列。的控制元件陣列。

 將新複製進來的將新複製進來的 Image1(1)Image1(1) 控制元件移到控制元件移到
Image1(0)Image1(0) 的旁邊，並且將的旁邊，並且將 Image1(1)Image1(1) 的的 PicturePicture
屬性設定為本書屬性設定為本書 ch08ch08 目錄底下的目錄底下的 trffc10b.icotrffc10b.ico 圖示圖示
檔。檔。
Image1(0)
Image1(1)

 仿照步驟仿照步驟 33 ～～ 55 再複製一個再複製一個 Image1Image1 控制元控制元
件，結果這一個控制元件會成為件，結果這一個控制元件會成為 Image1(2)Image1(2) ，，
接著將新複製進來的接著將新複製進來的 Image1(2)Image1(2) 控制元件移到控制元件移到
Image1(1)Image1(1) 的旁邊，並且將其的旁邊，並且將其 PicturePicture 屬性設屬性設
定為本書定為本書 ch08ch08 目錄底下的目錄底下的 trffc10c.icotrffc10c.ico 圖示圖示
檔，完成的表單如下圖：檔，完成的表單如下圖：
Image1(0)
Image1(1) Image1(2)

檢驗控制元件陣列是否佈置成功檢驗控制元件陣列是否佈置成功 (1)(1)
 經過以上動作之後，請檢視屬性視窗的物件盒，經過以上動作之後，請檢視屬性視窗的物件盒，
如果可以看到如果可以看到 Image1(0)Image1(0) ～～ Image1(2)Image1(2) ，即表示影，即表示影
像框陣列已經佈置成功了。像框陣列已經佈置成功了。
檢視屬性視
窗的物件盒

檢驗控制元件陣列是否佈置成功檢驗控制元件陣列是否佈置成功 (2)(2)
 接下來請檢視接下來請檢視 Image1(0)Image1(0) ～～ Image1(2)Image1(2) 的的
IndexIndex 屬性值，結果應該等於：屬性值，結果應該等於：
 顯然地，每一個影像框的顯然地，每一個影像框的 IndexIndex 屬性值就等於屬性值就等於
該影像框在影像框陣列中的註標該影像框在影像框陣列中的註標 (index)(index) 。。
物件物件 IndexIndex 屬性屬性
值值
Image1(0)Image1(0) 00

控制元件陣列控制元件陣列 ---- 實例練習實例練習
 實例：燈號變換程式實例：燈號變換程式
 剛才我們設定給剛才我們設定給 Image1(0)Image1(0) ～～ Image1(2)Image1(2)
的圖片是交通號誌的綠燈、黃燈、及紅的圖片是交通號誌的綠燈、黃燈、及紅
燈，接下來我們想在表單上佈置一個命燈，接下來我們想在表單上佈置一個命
令鈕，而每按命令鈕一次，就讓顯示在令鈕，而每按命令鈕一次，就讓顯示在
表單上的燈號變換一次。表單上的燈號變換一次。

Step1Step1
 將將 Image1(0)Image1(0) ～～ Image1(2)Image1(2) 的的 Visible(Visible( 可可
見的見的 )) 屬性設定為屬性設定為 FalseFalse 。。 (( 註：將某一註：將某一
個控制元件的個控制元件的 VisibleVisible 屬性設定為屬性設定為 FalseFalse
時，則該控制元件在執行階段將不會被時，則該控制元件在執行階段將不會被
顯示出來顯示出來 ))

Step2Step2
 在表單上佈置一命令鈕，並且撰寫以下在表單上佈置一命令鈕，並且撰寫以下
程式：程式：
Dim Index As Integer ' 此一變數的宣告須撰寫在程式區塊
之外
Private Sub Command1_Click()
Set Form1.Picture = Image1(Index).Picture
Index = Index + 1
If Index > 2 Then Index = 0
End Sub

控制元件陣列控制元件陣列 ---- 實例練習實例練習 Step3Step3
 執行程式，結果每按命令鈕一下，表單執行程式，結果每按命令鈕一下，表單
左上角所顯示的燈號就會變換一次。左上角所顯示的燈號就會變換一次。

控制元件陣列控制元件陣列 ---- 實例練習關鍵實例練習關鍵
11
 IndexIndex 變數宣告的位置變數宣告的位置：：
千萬不要把千萬不要把 IndexIndex 變數的宣告放在變數的宣告放在
Command1_ClickCommand1_Click 程式區塊之中，因為程式區塊之中，因為
放在程式區塊中的變數其值每次都會歸放在程式區塊中的變數其值每次都會歸
00 ，結果將使得「，結果將使得「 Set Form1.Picture =Set Form1.Picture =
Image1(Index).PictureImage1(Index).Picture 」敘述永遠都等於」敘述永遠都等於
「「 Set Form1.Picture =Set Form1.Picture =
Image1(0).PictureImage1(0).Picture 」，而無法達到變換燈」，而無法達到變換燈
號的目的。號的目的。

控制元件陣列控制元件陣列 ---- 實例練習關鍵實例練習關鍵
22
 變換燈號的程式變換燈號的程式：首先第一行程式會指定：首先第一行程式會指定
Image1(Index)Image1(Index) 給表單，由於給表單，由於 IndexIndex 是一個變是一個變
數，所以只要每一次改變此一數，所以只要每一次改變此一 IndexIndex 的變數值的變數值
，就可以達到變換燈號的目的，而我們改變，就可以達到變換燈號的目的，而我們改變
IndexIndex 變數值的方法是：每次加一，當變數值變數值的方法是：每次加一，當變數值
超過超過 22 時，即將其歸時，即將其歸 00 ，所以撰寫的程式是，所以撰寫的程式是
：：
 於是於是 IndexIndex 變數便會呈現值變數便會呈現值
00 、、 11 、、 22 、、 00 、、 11 、、 2…2… 的變化方式。的變化方式。
Index = Index + 1
If Index > 2 Then Index = 0

TimerTimer 控制元件控制元件 (1)(1)
 Timer(Timer( 工具箱的工具箱的 )) 是用來是用來驅動程式執驅動程式執
行行的控制元件，當它佈置在表單時，其的控制元件，當它佈置在表單時，其
大小是固定的，而將來程式執行時，它大小是固定的，而將來程式執行時，它
會被隱藏起來，與一般用來顯示文字或會被隱藏起來，與一般用來顯示文字或
圖形的元件不同。圖形的元件不同。

TimerTimer 控制元件控制元件 (2)(2)
 利用計時器來驅動程式的執行需經過兩利用計時器來驅動程式的執行需經過兩
道程序：道程序：
1.1. 將希望被驅動的程式填寫在將希望被驅動的程式填寫在
Timer1_TimerTimer1_Timer 程式區塊裡面。程式區塊裡面。
2.2. 設定計時器的時間間隔設定計時器的時間間隔 (Interval(Interval 屬屬
性性 )) ，則將來程式執行時，計時器便會，則將來程式執行時，計時器便會
每隔一段時間驅動每隔一段時間驅動 Timer1_TimerTimer1_Timer 程式程式
區塊一次，而達到執行程式的目的。區塊一次，而達到執行程式的目的。

TimerTimer 控制元件控制元件 ---- 實例實例 (1)(1)
 假設我們希望每隔假設我們希望每隔 11 秒鐘在表單上輸出秒鐘在表單上輸出
一個點，以下是利用計時器來設計的過一個點，以下是利用計時器來設計的過
程：程：
1.1. 首先在表單上置一個佈首先在表單上置一個佈 TimerTimer ，並且將，並且將
Interval(Interval( 時間間隔時間間隔 )) 屬性設定成屬性設定成 10001000 。。

2.2. 雙按表單上的雙按表單上的 TimerTimer ，然後在，然後在
Timer1_TimerTimer1_Timer 程式區塊中撰寫以下程式程式區塊中撰寫以下程式
：：
Private Sub Timer1_Timer()
Print ".";
End Sub

 在以上例子中在以上例子中 ,, 我們可以把計時器的工作原理我們可以把計時器的工作原理
表示成下圖：表示成下圖：
1 秒
　Pr i vat e Sub Ti mer 1_Ti mer ( )
　　　Pr i nt ". " ;
　End Sub
時間間隔設定
驅
動

TimerTimer 控制元件控制元件 ---- 實例解說實例解說
 利用利用 TimerTimer 的特性，我們還可以輕易地的特性，我們還可以輕易地
製作出小時鐘程式。製作出小時鐘程式。

Step1Step1
 首先在表單上佈置一個首先在表單上佈置一個標籤標籤 (( 工具箱的工具箱的
)) 及一個及一個 TimerTimer ，並調整表單大小，，並調整表單大小，
最後表單如下：最後表單如下：
Ti mer 1
Label 1

Step2Step2
接下來是物件屬性的設定：接下來是物件屬性的設定：
物件物件屬性屬性屬性值屬性值
Timer1Timer1 Interval(Interval( 時間間隔時間間隔 )) 10001000
Label1Label1 Alignment(Alignment( 對齊方對齊方
式式 ))
2-2- 置中對齊置中對齊
Caption(Caption( 標題標題 )) (( 清成空白清成空白 ))
Font(Font( 字型字型 )) 字型字型 =Times New Roman=Times New Roman
字型樣式字型樣式 == 粗體粗體 ,, 大小大小
=24=24

Step3Step3
 在在 Timer1_TimerTimer1_Timer 程式方塊中輸入以下程式程式方塊中輸入以下程式
 以上程式中的以上程式中的 TimeTime 是是 VBVB 所提供的函數，會所提供的函數，會
傳回系統當時的時間，而由於傳回系統當時的時間，而由於 Timer1_TimerTimer1_Timer 每每
11 秒會執行一次，因此秒會執行一次，因此 Label1Label1 所顯示的文字也所顯示的文字也
會隨著時間的改變而改變其內容，而完成了我們會隨著時間的改變而改變其內容，而完成了我們
期望的小時鐘程式。期望的小時鐘程式。
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub

簡易動畫程式簡易動畫程式 -- Step1-- Step1
 簡易動畫程式：控制元件陣列與簡易動畫程式：控制元件陣列與 TimerTimer
的結合的結合
 開啟本書提供的開啟本書提供的 swicth.vbpswicth.vbp 專案專案 (( 這是這是
p.252p.252 所完成的燈號變換程式所完成的燈號變換程式 )) ，然後在，然後在
表單上佈置一表單上佈置一 TimerTimer 控制元件，並且將控制元件，並且將
其其 IntervalInterval 屬性設定屬性設定 100100 。。

簡易動畫程式 –簡易動畫程式 – Step2Step2
 雙按雙按 TimerTimer 控制元件，調出控制元件，調出 Timer1_TimerTimer1_Timer 程程
式區塊，然後將式區塊，然後將 Command1_ClickCommand1_Click 程式區塊中程式區塊中
的程式複製到的程式複製到 Timer1_TimerTimer1_Timer 程式區塊中，如程式區塊中，如
下圖：下圖：
複製過來

簡易動畫程式 –簡易動畫程式 – Step3Step3
 接下來執行程式，就可以看到燈號接下來執行程式，就可以看到燈號
變換的動畫程式了。變換的動畫程式了。

新觀念的VB6教本ch08

More Related Content

Viewers also liked (20)

Similar to 新觀念的VB6教本ch08 (20)

Recently uploaded (20)

新觀念的VB6教本ch08