ListView用法.doc

第一步：添加列頭 可在form_load里邊添加，如下： 初始化 ListView1.FullRowSelect = True （允許整行選擇） listview1.gridlines=true (顯示網(wǎng)格) listview1.checkboxs=true 顯示checkboxs框 listview1.view=3 以報(bào)表形式顯示 ListView1.ColumnHeaders.Clear ListView1.ColumnHeaders.Add 1, , 姓名, 1000 ListView1.ColumnHeaders.Add 2, , 性別, 500 ListView1.ColumnHeaders.Add 3, , 職稱, 1500 ListView1.ColumnHeaders.Add 4, , 電話, 1000 第二步，添加數(shù)據(jù) Dim itmX As ListItem Set itmX = lvw.ListItems.Add(參數(shù)，參數(shù)，參數(shù)，) 這些參數(shù)都可以為空，具體你可以看看msdn itmX.text=李四 itmX.SubItems(1) = 雄性 itmX.SubItems(2) = 大將軍itmX.SubItems(3) = 10086 第三步，取得行數(shù)據(jù) Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) Text1 = Item.Text Text2 = Item.SubItems(1) Text3 = Item.SubItems(2) Text4 = Item.SubItems(3) End Sub 試一試就能知道怎么用了，快去試試吧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(1) 可以表示為第1行； listitems(1).text 返回第1行第1列的文本值； listitems(1).subItem(1) 返回第1行第2列的文本值。 【 控件常用屬性 】 1view屬性 該屬性有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í)控件將顯示網(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屬性 指定控件的背景圖片，此屬性在控件自帶屬性設(shè)置框里設(shè)置。 * 【 控件常用方法程序 】 1Add方法 添加listItem對(duì)象（行）到控件中。 語(yǔ)法格式： 控件ListItems集合.add(index,key,text,icon,smallIcon) 2FindItem方法 查找并返回對(duì)控件中l(wèi)istItem對(duì)象的引用。 語(yǔ)法格式： 控件名.FindItem(string,value,index,match) * 新建一表單，在表單里拖出一個(gè)ListView控件和一個(gè)ImageList控件。 選中ListView控件，單擊右鍵，選擇“ListViewCtrl Properties”，在General頁(yè)面框中選中下列復(fù)選框： LabelWrap:文本可換行 Checkboxes:顯示復(fù)選框 FullRowSelect:整行選定 清除FlatScrollBar的選定，控件將顯示滾動(dòng)條。 * 控件 name屬性 ListView view1 ImageList Image1 * 在表單的Init事件中加入下列代碼： &將ImageList控件圖片賦予Listview控件& thisform.view1.Icons=thisform.Image1.object thisform.view1.smallIcons=thisform.Image1.object * 在listview控件init事件中加入下列代碼： &初始化ListView控件& &設(shè)置顯示為報(bào)表視圖 this.view=3 &添加和設(shè)置列標(biāo) store this.ColumnHeaders.Add(,l11,序號(hào),this.Width/7) to clm1 store this.ColumnHeaders.Add(,l12,物資編號(hào),this.width/4) to clm2 store this.ColumnHeaders.Add(,l13,存貨名稱,this.Width/4) to clm3 store this.ColumnHeaders.Add(,l14,規(guī)格,this.width/4) to clm4 store this.ColumnHeaders.Add(,l15,計(jì)量單位,this.Width/8) to clm5 store this.ColumnHeaders.Add(,l16,請(qǐng)購(gòu)數(shù)量,this.width/4) 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.view1 L1.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(1) store alltrim(存貨名稱) to bbb.subitems(2) store alltrim(規(guī)格) to bbb.subitems(3) store alltrim(計(jì)量單位) to bbb.subitems(4) store 請(qǐng)購(gòu)數(shù)量 to bbb.subitems(5) store 使用日期 to bbb.subitems(6) store alltrim(請(qǐng)購(gòu)用途) to bbb.subitems(7) endscan 注：若字段值為.null.時(shí)，添加時(shí)將出現(xiàn)錯(cuò)誤提示。 請(qǐng)自行設(shè)置用函數(shù)加以判別。為.null.時(shí)可以空值添加。 * 如何返回選定值： L1=thisform.view1 L1.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 item if item.checked=.t.&判定當(dāng)復(fù)選框選中 要執(zhí)行的語(yǔ)句 else 要執(zhí)行的語(yǔ)句 endif &清除所有數(shù)據(jù) thisform.view1.listItems.clear &清除選定行 L1=thisform.view1 L1.listitems.remove(L1.selectedItem.index) 得知所有行的總數(shù)： L1.listitems.countPrivate Sub Form_Load() ListView1.ListItems.Clear 清空列表 ListView1.ColumnHeaders.Clear 清空列表頭 ListView1.View = lvwReport 設(shè)置列表顯示方式 ListView1.GridLines = True 顯示網(wǎng)絡(luò)線 ListView1.LabelEdit = lvwManual 禁止標(biāo)簽編輯 ListView1.FullRowSelect = True 選擇整行 ListView1.ColumnHeaders.Add , , ID, 500 給列表中添加列名 ListView1.ColumnHeaders.Add , , 本地 IP, 1500 ListView1.ColumnHeaders.Add , , 本地端口, 1200 ListView1.ColumnHeaders.Add , , 協(xié)議, 550 ListView1.ColumnHeaders.Add , , 遠(yuǎn)程 IP, 1500 ListView1.ColumnHeaders.Add , , 遠(yuǎn)程端口, 900 ListView1.ColumnHeaders.Add , , 當(dāng)前狀態(tài), 900 ListView1.ColumnHeaders.Add , , 連接時(shí)間, 900 - Dim X X = ListView1.ListItems.Count + 1 ListView1.ListItems.Add , , X ListView1.ListItems(X).SubItems(1) = 00:00:00 ListView1.ListItems(X).SubItems(2) = 2008-01-01 ListView1.ListItems(X).SubItems(3) = (無(wú)) - ListView1.ListItems.Clear 清空列表 ListView1.ListItems.Add , , 1 ListView1.ListItems(1).SubItems(1) = 00:00:00 ListView1.ListItems(1).SubItems(2) = 2008-01-01 ListView1.ListItems(1).SubItems(3) = (無(wú)) ListView1.ListItems.Add , , 2 ListView1.ListItems(2).SubItems(1) = 00:00:01 ListView1.ListItems(2).SubItems(2) = 2008-01-01 ListView1.ListItems(2).SubItems(3) = (無(wú)) - ListView1.View = lvwReport 設(shè)置顯示方式為列表 ListView1.AllowColumnReorder = True 對(duì)行進(jìn)行程序排列，用鼠標(biāo)進(jìn)行排列 ListView1.Arrange = lvwAutoLeft 圖標(biāo)橫排列 ListView1.Arrange = lvwAutoTop 圖標(biāo)豎排列 ListView1.FlatScrollBar = False 顯示滾動(dòng)條 ListView1.FlatScrollBar = True 隱藏滾動(dòng)條 ListView1.FullRowSelect = True 選擇整行 ListView1.LabelEdit = lvwManual 禁止標(biāo)簽編輯 ListView1.GridLines = True 顯示網(wǎng)絡(luò)線 ListView1.LabelWrap = True 圖標(biāo)可以換行 ListView1.MultiSelect = True 可以選擇多個(gè)項(xiàng)目 ListView1.PictureAlignment = lvwTopLeft 圖片對(duì)齊方式是左頂部，其他有右頂部(1)、左底部(2)、右底部(3)、居中(4)、平鋪(5) ListView1.Checkboxes = True 顯示復(fù)選框 ListView1.DropHighlight = ListView1.ListItems.Item(2) 顯示系統(tǒng)顏色End Sub常用操作：獲取當(dāng)前行數(shù)和列數(shù):MsgBox 行數(shù)： & ListView1.ListItems.Count & 列數(shù)： & ListView1.ColumnHeaders.CountPrivate Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) ListView1.ToolTipText = 行數(shù)： & ListView1.ListItems.Count & 列數(shù)： & ListView1.ColumnHeaders.CountEnd Sub設(shè)置寬度:ListView1.ColumnHeaders.Add , , 備注, 1500當(dāng)前選中行:MsgBox ListView1.SelectedItem.Index獲取復(fù)選框的值:MsgBox ListView1.ListItems(1).Checked刪除指定行:ListView1.ListItems.Remove 1去掉鼠標(biāo)左鍵點(diǎn)擊標(biāo)簽編輯:labeledit屬性改為1讀取某行第一列內(nèi)容:ListView1.ListItems(i).Text讀取某行第幾列內(nèi)容 (不包括第一列):ListView1.ListItems(Num).SubItems (4)讀取當(dāng)前選中行第一列內(nèi)容:ListView1.ListItems(ListView1.SelectedItem.Index).Text循環(huán)查找讀取項(xiàng)目:Dim i As IntegerFor i = 1 To ListView1.ListItems.Count If ListView1.ListItems(i).Text = 4 Then MsgBox ListView1.ListItems(i).Text 第一列 If ListView1.ListItems(i).SubItems(1) = 4 Then MsgBox ListView1.ListItems(i).SubItems(1) 第二列Next i清空列表頭:ListView1.ColumnHeaders.Clear清空列表:ListView1.ListItems.Clear右鍵菜單:Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then PopupMenu CommandLst 按下鼠標(biāo)右鍵 顯示菜單End Sub當(dāng)前選中判斷:Dim NIf ListView1.ListItems.Count 0 Then N = ListView1.SelectedItem.Index Else MsgBox 當(dāng)前沒(méi)有任何主機(jī)在線!, vbInformation, 警告: Exit SubIf N 1 Then MsgBox 你沒(méi)有選中任何主機(jī)!, vbInformation, 警告: Exit SubVB設(shè)置某行為選中/非選中狀態(tài):ListView.ListItems(i).Selected = True 選中第i行ListView.ListItems(i).Selected = False 選中第i行Add方法（ListIt