Delphi的ListView組件位于組件板的Win32頁(yè)，可使用4種圖形方式（大圖標(biāo)、小圖標(biāo)、列表、詳細(xì)列表）來(lái)描述選項(xiàng)內(nèi)容，類似于Windows操作系統(tǒng)中的“我的電腦”，數(shù)據(jù)項(xiàng)圖形保存在ImageList組件中。

1.ListView主要屬性

（1）ViewStyle屬性
ViewStyle屬性用于選擇數(shù)據(jù)項(xiàng)的4種顯示方式，因此該屬性有4個(gè)選項(xiàng)值：vsIcon大圖標(biāo)、vsSmallIcon小圖標(biāo)、vsList列表、vsReport詳細(xì)列表。

（2）Items屬性
Items屬性用于表示ListView組件的數(shù)據(jù)項(xiàng)，數(shù)據(jù)項(xiàng)可用Items屬性編輯器輸入。在Items編輯器中有3個(gè)按鈕：NewItem、NewSubItem、Delete，分別用于添加數(shù)據(jù)項(xiàng)、數(shù)據(jù)項(xiàng)子項(xiàng)與刪除數(shù)據(jù)項(xiàng)。
讀者應(yīng)注意，ListView組件與TreeView組件在數(shù)據(jù)項(xiàng)顯示方式上有所不同，當(dāng)Listview組件工作于vsIcon大圖標(biāo)、vsSmallIcon小圖標(biāo)、vsList列表方式時(shí)，只顯示第一層數(shù)據(jù)項(xiàng)而不顯示子數(shù)可以寫(xiě)成下面一行：

Dim MyName As string：MyName一“張三”

如果在鍵入一行代碼并按下回車鍵后，該行代碼以紅色文本顯示（也可能同時(shí)顯示錯(cuò)誤信息），則必須找出語(yǔ)句中的錯(cuò)誤并更正它。

2.注釋語(yǔ)句

為了增強(qiáng)程序的可讀性，可以在程序中加入注釋。注釋可以解釋過(guò)程或某些命令。VBA在運(yùn)行過(guò)程時(shí)，會(huì)忽略注釋。
在VBA程序中，注釋可以通過(guò)兩種方式來(lái)實(shí)現(xiàn)。現(xiàn)在通用的方法是使用一個(gè)單引號(hào)（'），也可以用Rem接一個(gè)空格作為注釋的開(kāi)始。例如：

Dim MyStrl.MyStr2
MyStrl="htllo\":Ren 注釋在語(yǔ)句之后要用冒號(hào)隔開(kāi)。
MyStr2="(Goodbye\"'這也是一條注釋，不必使用冒號(hào)。

注釋可以添加在過(guò)程的任何地方，并且默認(rèn)以綠色文本顯示。

3.聲明語(yǔ)句

可以用聲明語(yǔ)句來(lái)命名和定義過(guò)程、變量、數(shù)組以及常數(shù)。在聲明這些程序的組成部分時(shí)，也同時(shí)定義了它們的范圍，其范圍取決于聲明位置以及用什么關(guān)鍵字來(lái)聲明。例如，在程序段：

Sub ApplyFormat()
Const limit As Integer 33
Dim myCelI As Range

4.更多的語(yǔ)句

End Sub中，Sub語(yǔ)句（與End Sub語(yǔ)句相匹配）聲明了一個(gè)名為ApplyF0rmat的過(guò)程。當(dāng)這個(gè)過(guò)程被調(diào)用或運(yùn)行時(shí)，所有包含于sub與End Sub中的語(yǔ)句都將被執(zhí)行。Const語(yǔ)句聲明了常數(shù)limit，指定其為Integet'類型，且其值為33；dim語(yǔ)句聲明了變量mycell。這是一個(gè)屬于Excel Range對(duì)象的數(shù)據(jù)類型。可以將變量聲明為任何對(duì)象，而該對(duì)象處于正在使用的應(yīng)用程序中。
Dim語(yǔ)句是用來(lái)聲明變量的語(yǔ)句之一。其他用來(lái)聲明的關(guān)鍵字還有：static、Public、Private以及const。

最新評(píng)論