VB中l(wèi)istview控件

1、控件listview控件可有4種不同的視圖顯示方法,跟“資源管理器”里的“查看”方式相似: (1無(wú)圖標(biāo);(2小圖標(biāo);(3列表;(4報(bào)表式。使用哪種視圖,可由該控件的view屬性設(shè)置控制。其中“報(bào)表”視圖用來(lái)顯示記錄數(shù)據(jù)很適合。listview控件包括listItem對(duì)象和ColumnHeader對(duì)象。本人簡(jiǎn)單理解為:listItem對(duì)象看成數(shù)據(jù)行;ColumnHeader對(duì)象看成列標(biāo)題。listItem對(duì)象(行有兩部分:一部分是圖標(biāo)和簡(jiǎn)要描述的文本(第1列;另一部分是前者的子項(xiàng)文本信息(第2列,第3列.。而listItems即是對(duì)listItem對(duì)象集合(所有行的引用。故此,listItems

2、(1 可以表示為第1行;listitems(1.text 返回第1行第1列的文本值;listitems(1.subItem(1 返回第1行第2列的文本值?！究丶Ｓ脤傩浴?view屬性該屬性有4個(gè)值可設(shè)定:1-小圖標(biāo)視圖顯示2-列表3-報(bào)表0-無(wú)圖標(biāo)(默認(rèn)2AllowColumnReorder屬性值設(shè)置.t.時(shí),用戶可以用鼠標(biāo)選中1列拖至其他地方進(jìn)行重新排列。3Checkboxes屬性設(shè)置為.t.時(shí),每一行數(shù)據(jù)前將顯示一復(fù)選框。4FlatScrollBar屬性設(shè)置為.f.時(shí)控件將顯示滾動(dòng)條。5FullRowSelect屬性設(shè)置為.t.時(shí)可以整行地選擇數(shù)據(jù)。6GridLines屬性設(shè)置為.t.時(shí)

3、控件將顯示網(wǎng)格線。(只作用于“報(bào)表”視圖7HideColumnHeaders屬性設(shè)置為.f.時(shí),列標(biāo)題可視,反之則不可視。8HotTracking屬性設(shè)置為.t.時(shí),鼠標(biāo)所在行將以高亮度顯示。9Icons,SmallIcons屬性兩者設(shè)置listview控件視圖相關(guān)聯(lián)的ImageList控件中的圖片。Icons指明視圖為大圖標(biāo)時(shí)的關(guān)聯(lián);SmallIcons指明視圖為小圖標(biāo)時(shí)的關(guān)聯(lián)。10LabelWrap屬性設(shè)置為.t.時(shí),文本標(biāo)簽超出列寬時(shí)可換行。11SelectedItem屬性返回對(duì)所選ListItem對(duì)象(行的引用。12Sorted屬性當(dāng)值為.t.時(shí),列表按字母排序。13Picture屬性

4、指定控件的背景圖片,此屬性在控件自帶屬性設(shè)置框里設(shè)置。*【控件常用方法程序】1Add方法添加listItem對(duì)象(行到控件中。語(yǔ)法格式:控件ListItems集合.add(index,key,text,icon,smallIcon2FindItem方法查找并返回對(duì)控件中l(wèi)istItem對(duì)象的引用。語(yǔ)法格式:控件名.FindItem(string,value,index,match*新建一表單,在表單里拖出一個(gè)ListView控件和一個(gè)ImageList控件。選中ListView控件,單擊右鍵,選擇“ListViewCtrl Properties”,在General頁(yè)面框中選中下列復(fù)選框:Lab

5、elWrap:文本可換行Checkboxes:顯示復(fù)選框FullRowSelect:整行選定清除FlatScrollBar的選定,控件將顯示滾動(dòng)條。*控件name屬性ListView view1ImageList Image1*在表單的Init事件中加入下列代碼:&&&&將ImageList控件圖片賦予Listview控件&&&&thisform.view1.Icons=thisform.Image1.objectthisform.view1.smallIcons=thisform.Image1.object*在listview控

6、件init事件中加入下列代碼:&&&初始化ListView控件&&&&&&設(shè)置顯示為報(bào)表視圖this.view=3&&添加和設(shè)置列標(biāo)store this.ColumnHeaders.Add(,"l11","序號(hào)",this.Width/7 to clm1store this.ColumnHeaders.Add(,"l12","物資編號(hào)",this.width/4 to clm2 store this.ColumnHeaders.

7、Add(,"l13","存貨名稱",this.Width/4 to clm3 store this.ColumnHeaders.Add(,"l14","規(guī)格",this.width/4 to clm4store this.ColumnHeaders.Add(,"l15","計(jì)量單位",this.Width/8 to clm5 store this.ColumnHeaders.Add(,"l16","請(qǐng)購(gòu)數(shù)量",this.width/4

8、to clm6 store this.ColumnHeaders.Add(,"l17","使用日期",this.Width/4 to clm7 store this.ColumnHeaders.Add(,"l18","請(qǐng)購(gòu)用途",this.width/4 to clm8 this.hottracking=.t. &&鼠標(biāo)停留行高亮度顯示*將數(shù)據(jù)表添加到listview控件中顯示:新建一表單方法程序refresh_grid,可隨時(shí)調(diào)用刷新數(shù)據(jù)。在其中加入下列代碼:L1=thisform.view1L1

9、.listItems.clear &&清除數(shù)據(jù)sele 請(qǐng)購(gòu)表scan&&添加listItem對(duì)象第1列圖標(biāo)和文本。store L1.listItems.Add(,序號(hào),1 to bbb&&添加第2,3.列文本store alltrim(物資編號(hào) to bbb.subitems(1store alltrim(存貨名稱 to bbb.subitems(2store alltrim(規(guī)格 to bbb.subitems(3store alltrim(計(jì)量單位 to bbb.subitems(4store 請(qǐng)購(gòu)數(shù)量to bbb.subitems(5st

10、ore 使用日期to bbb.subitems(6store alltrim(請(qǐng)購(gòu)用途 to bbb.subitems(7 endscan注:若字段值為.null.時(shí),添加時(shí)將出現(xiàn)錯(cuò)誤提示。請(qǐng)自行設(shè)置用函數(shù)加以判別。為.null.時(shí)可以空值添加。*如何返回選定值:L1=thisform.view1L1.selectedItem.text &&返回選定行第1列文本值L1.selectedItem.index &&返回選定行的位置L1.listItems(x.subItems(y &&返回第x行,第y+1列文本值*如何用用命令設(shè)置復(fù)選框狀態(tài):thisform.view1.listItems(x.checked=.t.&&第x行復(fù)選框選定*選定復(fù)選框時(shí)發(fā)生的事件itemcheck:LPARAMETERS itemif item.checked=.t.&&判定當(dāng)復(fù)選框選中要執(zhí)行的語(yǔ)