什么是控件數(shù)組控件數(shù)組的優(yōu)點(diǎn)
什么是控件數(shù)組控件數(shù)組的優(yōu)點(diǎn)
控件數(shù)組是一組具有相同名稱和類型的控件的集合，通過(guò)各自的編號(hào)(下標(biāo))來(lái)識(shí)別，并且可以共享事件。那么你對(duì)控件數(shù)組了解多少呢?以下是由學(xué)習(xí)啦小編整理關(guān)于什么是控件數(shù)組的內(nèi)容，希望大家喜歡!
控件數(shù)組的概述
在設(shè)計(jì)時(shí)，有三種辦法創(chuàng)建控件數(shù)組：更改控件的Index屬性、將已有的控件復(fù)制到同一窗體中、使多個(gè)同類型的控件的名稱(Name屬性)相同。
更改Index屬性
選擇一個(gè)控件，按F4打開“屬性”面板，找到“Index”屬性，將其更改為一個(gè)0和32767之間(包括0和32767)的且未被用于其他控件索引值的整數(shù)，即可創(chuàng)建一個(gè)以原控件名稱為名稱的控件數(shù)組。
復(fù)制已有控件
若已有一控件名為Command，右擊該控件，單擊快捷菜單中的“復(fù)制”，再右擊控件所在窗體(或其中的一個(gè)類似Frame的容器控件)，單擊快捷菜單中的“粘貼”，VB會(huì)彈出一個(gè)對(duì)話框，顯示“已經(jīng)有一個(gè)控件為 'Command'。創(chuàng)建一個(gè)控件數(shù)組嗎?”單擊“是”按鈕，就可創(chuàng)建一個(gè)名稱(Name屬性)為“Command”的控件數(shù)組，被復(fù)制的控件為Command(0)，粘貼的控件為Command(1)。
使控件名相同
若已有一控件名為Command，將另一同類型控件的Name屬性改為“Command”后，VB也會(huì)彈出一個(gè)對(duì)話框，單擊“是”即可創(chuàng)建一控件數(shù)組。
運(yùn)行時(shí)增減對(duì)象添加對(duì)象
在VB中，不能在運(yùn)行時(shí)直接創(chuàng)建一個(gè)原先不存在的控件數(shù)組，但可以使用Load函數(shù)為已存在的控件數(shù)組添加同類型的控件。
假設(shè)已有一個(gè)控件數(shù)組名為“Command”，數(shù)組中只有一個(gè)對(duì)象“Command(0)”，在運(yùn)行時(shí)，可以通過(guò)下面的代碼增加一個(gè)對(duì)象“Command(1)”。
PrivateSubCommand_Click(IndexAsInteger)'控件數(shù)組中控件的點(diǎn)擊事件LoadCommand(1)'添加Command(1)Command(1).Top=0'將Command(1)移至頂端Command(1).Visible=True'將Command(1)設(shè)置為可見(jiàn)EndSub
說(shuō)明：
此處的Load函數(shù)的語(yǔ)法如下：
Load Object (Index As Integer)
Load函數(shù)參數(shù)
參數(shù)
描述
Object
必選，對(duì)象表達(dá)式，要添加控件的控件數(shù)組名稱。
Index
必選，數(shù)值表達(dá)式，0～32767的一個(gè)整數(shù)，被添加的控件在控件數(shù)組中的索引值(Index屬性)，該值必須未被引用。
運(yùn)行時(shí)在一個(gè)控件數(shù)組中添加了新的控件后，新控件除Index、TabIndex和Visible屬性外，其余屬性與該控件數(shù)組中Index屬性最小的控件的相應(yīng)屬性完全相同。而Index屬性在Load函數(shù)中指定，TabIndex屬性取VB規(guī)定的默認(rèn)數(shù)值(比其他任何控件都大)，Visible為False。所以需要改變新控件的Left或Top，以及Visible屬性后才能看到它。
這里的代碼僅設(shè)計(jì)用于添加Command(1)，即使Command中的按鈕被點(diǎn)擊兩次，也不能添加Command(2)，而是會(huì)返回“對(duì)象已經(jīng)加載”的錯(cuò)誤。為了不斷添加控件，可以使用下面的代碼。
PrivateSubCommand_Click(IndexAsInteger)'控件數(shù)組中控件的點(diǎn)擊事件IfCommand.UBound=32767ThenExitSubLoadCommand(Command.UBound+1)'添加控件Command(Command.UBound).Top=Command.UBound*150'移動(dòng)新控件Command(Command.UBound).Visible=True'將新控件設(shè)置為可見(jiàn)EndSub
控件數(shù)組的UBound屬性返回該控件數(shù)組中控件的最大下標(biāo)(索引值)，添加索引值為Command.UBound+1(不大于32767)的控件數(shù)組元素可以保證不發(fā)生“對(duì)象已經(jīng)加載”的錯(cuò)誤。但是，由于控件數(shù)組中每個(gè)控件的索引值并不一定是連續(xù)的，即可以只添加Command(1)和Command(3)而不添加Command(2)，所以即使控件數(shù)組最大索引值為32767，該控件數(shù)組也不一定有32767個(gè)對(duì)象。
刪除對(duì)象
運(yùn)行時(shí)可以使用Unload函數(shù)刪除控件數(shù)組中運(yùn)行時(shí)創(chuàng)建的控件，但設(shè)計(jì)時(shí)創(chuàng)建的控件不能刪除。如：
UnloadCommand(1)
Unload函數(shù)語(yǔ)法與Load函數(shù)語(yǔ)法相似。
屬性概述
每個(gè)控件數(shù)組本身都有4個(gè)屬性，這4個(gè)屬性都是設(shè)計(jì)時(shí)無(wú)效、運(yùn)行時(shí)只讀的;而一個(gè)單獨(dú)的控件還有和控件數(shù)組相關(guān)的Index屬性。
Count屬性
Object.Count As Long
返回控件數(shù)組中的元素個(gè)數(shù)。
Item屬性
Object.Item (IndexAs Integer) As Object
返回控件數(shù)組中指定下標(biāo)的控件，相當(dāng)于Object(IndexAs Integer) As Object。
LBound和UBound屬性
Object.LBound As Integer
Object.UBound As Integer
返回控件數(shù)組中下標(biāo)的最小值(LBound)或最大值(UBound)。
Index屬性
Object.Index As Integer
(0≤Object.Index≤32767)
這個(gè)屬性應(yīng)用于控件數(shù)組中的一個(gè)控件，作用是返回或設(shè)計(jì)時(shí)設(shè)置控件在其控件數(shù)組中的下標(biāo)，僅當(dāng)Object屬于某一控件數(shù)組時(shí)有效。
示例
已有一個(gè)名為“Commands”的Command控件數(shù)組，其中有一大小為900緹×450緹的Commands(0)控件。運(yùn)行時(shí)單擊Commands(0)，則向控件數(shù)組中添加一個(gè)新控件并顯示在前一個(gè)控件下方75緹處，Caption屬性為其Index屬性值;單擊其他控件時(shí)，則從控件數(shù)組中刪除該控件。
PrivateSubCommands_Click(IndexAsInteger)WithCommandsIfIndex=0ThenIf.UBound=32767ThenExitSubLoad.Item(.UBound+1).Item(.UBound).Caption=.UBound.Item(.UBound).Top=(75+450)*.UBound+75.Item(.UBound).Visible=TrueElseUnload.Item(Index)EndIfEndWithEndSub
這里用到了With語(yǔ)句，在With ... End With語(yǔ)句塊中可以省略“Commands”標(biāo)識(shí)符而直接引用其屬性。
控件數(shù)組的優(yōu)點(diǎn)
一方面，使用控件數(shù)組所占用的資源比單獨(dú)添加每個(gè)控件所占用的資源更少，另一方面，因?yàn)榭丶?shù)組的事件可以共享，如果要使多個(gè)同類型控件在一個(gè)事件中執(zhí)行相同或類似的代碼，使用控件數(shù)組比單獨(dú)創(chuàng)建多個(gè)控件更方便，代碼也更容易維護(hù)。
例如，在一個(gè)窗體中有若干個(gè)Command控件，顯示的內(nèi)容是從1開始編號(hào)，要讓用戶單擊某按鈕時(shí)，彈出一個(gè)窗口顯示其編號(hào)的平方，若不使用控件數(shù)組，則要為Command1、Command2、……、Command10控件一一添加Click事件的代碼;如果日后要調(diào)整顯示內(nèi)容，則要一一修改每個(gè)控件的代碼，非常繁瑣。而控件數(shù)組就能用類似下面的代碼很好地解決這個(gè)問(wèn)題：
PrivateSubCommands1_Click(IndexAsInteger)
MsgBoxIndex^2
EndSub
看過(guò)“控件數(shù)組的優(yōu)點(diǎn)”的人還看了：