Delphi控件：ListView組件屬性及使用方法

　　ListView組件位于組件板的Win32頁(yè)，可用4種圖形方式(大圖標(biāo)、小圖標(biāo)、列表、詳細(xì)列表)來(lái)描述選項(xiàng)內(nèi)容，類(lè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è)按鈕：NewItemjNewSubItem、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一“楊煥章”

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

　　2.注釋語(yǔ)句

　　為了增強(qiáng)程序的可讀性，可以在程序中加入注釋。注釋可以解釋過(guò)程或某些命令。VBA在運(yùn)行過(guò)程時(shí)，會(huì)忽略注釋。

　　在VBA程序中，注釋可以通過(guò)兩種方式來(lái)實(shí)現(xiàn)�，F(xiàn)在通用的方法是使用一個(gè)單引號(hào)(')，也可以用Rem接一個(gè)空格作為注釋的開(kāi)始。例如：

　　Dim MyStrl.MyStr2

　　MyStrl="htllo\":Ren 注釋在語(yǔ)句之后要用冒號(hào)隔開(kāi)。

　　MyStr2="(Goodbye\"'這也是一條注釋?zhuān)�不必使用冒�?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

　　'更多的語(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’類(lèi)型，且其值為33;dim語(yǔ)句聲明了變量mycell。這是一個(gè)屬于。Excel Range對(duì)象的數(shù)據(jù)類(lèi)型�？梢詫⒆兞柯暶鳛槿魏螌�(duì)象，而該對(duì)象處于正在使用的應(yīng)用程序中。

　　Dim語(yǔ)句是用來(lái)聲明變量的語(yǔ)句之一。其他用來(lái)聲明的關(guān)鍵字還有：static、Public、Private以及const。