VB中l(wèi)istview控件

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

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

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

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

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

6、件init事件中加入下列代碼:&&&初始化ListView控件&&&&&&設置顯示為報表視圖this.view=3&&添加和設置列標store this.ColumnHeaders.Add(,"l11","序號",this.Width/7 to clm1store this.ColumnHeaders.Add(,"l12","物資編號",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","計量單位",this.Width/8 to clm5 store this.ColumnHeaders.Add(,"l16","請購數量",this.width/4

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

9、.listItems.clear &&清除數據sele 請購表scan&&添加listItem對象第1列圖標和文本。store L1.listItems.Add(,序號,1 to bbb&&添加第2,3.列文本store alltrim(物資編號 to bbb.subitems(1store alltrim(存貨名稱 to bbb.subitems(2store alltrim(規(guī)格 to bbb.subitems(3store alltrim(計量單位 to bbb.subitems(4store 請購數量to bbb.subitems(5st

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