特黄特色三级在线观看免费,看黄色片子免费,色综合久,欧美在线视频看看,高潮胡言乱语对白刺激国产,伊人网成人,中文字幕亚洲一碰就硬老熟妇

學(xué)習(xí)啦 > 知識(shí)大全 > 知識(shí)百科 > 百科知識(shí) > 什么是控件數(shù)組控件數(shù)組的概述

什么是控件數(shù)組控件數(shù)組的概述

時(shí)間: 謝君787 分享

什么是控件數(shù)組控件數(shù)組的概述

  控件數(shù)組是一組具有相同名稱(chēng)和類(lèi)型的控件的集合,通過(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è)同類(lèi)型的控件的名稱(chēng)(Name屬性)相同。

  更改Index屬性

  選擇一個(gè)控件,按F4打開(kāi)“屬性”面板,找到“Index”屬性,將其更改為一個(gè)0和32767之間(包括0和32767)的且未被用于其他控件索引值的整數(shù),即可創(chuàng)建一個(gè)以原控件名稱(chēng)為名稱(chēng)的控件數(shù)組。

  復(fù)制已有控件

  若已有一控件名為Command,右擊該控件,單擊快捷菜單中的“復(fù)制”,再右擊控件所在窗體(或其中的一個(gè)類(lèi)似Frame的容器控件),單擊快捷菜單中的“粘貼”,VB會(huì)彈出一個(gè)對(duì)話框,顯示“已經(jīng)有一個(gè)控件為 'Command'。創(chuàng)建一個(gè)控件數(shù)組嗎?”單擊“是”按鈕,就可創(chuàng)建一個(gè)名稱(chēng)(Name屬性)為“Command”的控件數(shù)組,被復(fù)制的控件為Command(0),粘貼的控件為Command(1)。

  使控件名相同

  若已有一控件名為Command,將另一同類(lèi)型控件的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ù)組添加同類(lèi)型的控件。

  假設(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ù)組名稱(chēng)。

  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ì)象。

1963214