ListView用法.doc

第一步：添加列頭 可在form_load里邊添加，如下： 初始化 ListView1.FullRowSelect = True （允許整行選擇） listview1.gridlines=true (顯示網(wǎng)格) listview1.checkboxs=true 顯示checkboxs框 listview1.view=3 以報表形式顯示 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）無圖標；（2）小圖標；（3）列表；（4）報表式。 使用哪種視圖，可由該控件的view屬性設(shè)置控制。 其中“報表”視圖用來顯示記錄數(shù)據(jù)很適合。 listview控件包括listItem對象和ColumnHeader對象。 本人簡單理解為：listItem對象看成數(shù)據(jù)行；ColumnHeader對象看成列標題。 listItem對象（行）有兩部分：一部分是圖標和簡要描述的文本（第1列）；另一部分是前者的子項文本信息（第2列，第3列.)。 而listItems即是對listItem對象集合（所有行）的引用。 故此，listItems(1) 可以表示為第1行； listitems(1).text 返回第1行第1列的文本值； listitems(1).subItem(1) 返回第1行第2列的文本值。 【 控件常用屬性 】 1view屬性 該屬性有4個值可設(shè)定： 1小圖標視圖顯示 2列表 3報表 0無圖標（默認） 2AllowColumnReorder屬性 值設(shè)置.t.時，用戶可以用鼠標選中1列拖至其他地方進行重新排列。 3Checkboxes屬性 設(shè)置為.t.時，每一行數(shù)據(jù)前將顯示一復選框。 4FlatScrollBar屬性 設(shè)置為.f.時控件將顯示滾動條。 5FullRowSelect屬性 設(shè)置為.t.時可以整行地選擇數(shù)據(jù)。 6GridLines屬性 設(shè)置為.t.時控件將顯示網(wǎng)格線。（只作用于“報表”視圖） 7HideColumnHeaders屬性 設(shè)置為.f.時，列標題可視，反之則不可視。 8HotTracking屬性 設(shè)置為.t.時，鼠標所在行將以高亮度顯示。 9Icons,SmallIcons屬性 兩者設(shè)置listview控件視圖相關(guān)聯(lián)的ImageList控件中的圖片。 Icons指明視圖為大圖標時的關(guān)聯(lián)； SmallIcons指明視圖為小圖標時的關(guān)聯(lián)。 10LabelWrap屬性 設(shè)置為.t.時，文本標簽超出列寬時可換行。 11SelectedItem屬性 返回對所選ListItem對象（行）的引用。 12Sorted屬性 當值為.t.時，列表按字母排序。 13Picture屬性 指定控件的背景圖片，此屬性在控件自帶屬性設(shè)置框里設(shè)置。 * 【 控件常用方法程序 】 1Add方法 添加listItem對象（行）到控件中。 語法格式： 控件ListItems集合.add(index,key,text,icon,smallIcon) 2FindItem方法 查找并返回對控件中l(wèi)istItem對象的引用。 語法格式： 控件名.FindItem(string,value,index,match) * 新建一表單，在表單里拖出一個ListView控件和一個ImageList控件。 選中ListView控件，單擊右鍵，選擇“ListViewCtrl Properties”，在General頁面框中選中下列復選框： LabelWrap:文本可換行 Checkboxes:顯示復選框 FullRowSelect:整行選定 清除FlatScrollBar的選定，控件將顯示滾動條。 * 控件 name屬性 ListView view1 ImageList Image1 * 在表單的Init事件中加入下列代碼： &將ImageList控件圖片賦予Listview控件& thisform.view1.Icons=thisform.Image1.object thisform.view1.smallIcons=thisform.Image1.object * 在listview控件init事件中加入下列代碼： &初始化ListView控件& &設(shè)置顯示為報表視圖 this.view=3 &添加和設(shè)置列標 store this.ColumnHeaders.Add(,l11,序號,this.Width/7) to clm1 store this.ColumnHeaders.Add(,l12,物資編號,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,計量單位,this.Width/8) to clm5 store this.ColumnHeaders.Add(,l16,請購數(shù)量,this.width/4) 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. &鼠標停留行高亮度顯示 * 將數(shù)據(jù)表添加到listview控件中顯示： 新建一表單方法程序 refresh_grid，可隨時調(diào)用刷新數(shù)據(jù)。 在其中加入下列代碼： L1=thisform.view1 L1.listItems.clear &清除數(shù)據(jù) sele 請購表 scan &添加listItem對象第1列圖標和文本。 store L1.listItems.Add(,序號,1) to bbb &添加第2,3.列文本 store alltrim(物資編號) to bbb.subitems(1) store alltrim(存貨名稱) to bbb.subitems(2) store alltrim(規(guī)格) to bbb.subitems(3) store alltrim(計量單位) to bbb.subitems(4) store 請購數(shù)量 to bbb.subitems(5) store 使用日期 to bbb.subitems(6) store alltrim(請購用途) to bbb.subitems(7) endscan 注：若字段值為.null.時，添加時將出現(xiàn)錯誤提示。 請自行設(shè)置用函數(shù)加以判別。為.null.時可以空值添加。 * 如何返回選定值： L1=thisform.view1 L1.selectedItem.text &返回選定行第1列文本值 L1.selectedItem.index &返回選定行的位置 L1.listItems(x).subItems(y) &返回第x行，第y+1列文本值 * 如何用用命令設(shè)置復選框狀態(tài)： thisform.view1.listItems(x).checked=.t. &第x行復選框選定 * 選定復選框時發(fā)生的事件itemcheck: LPARAMETERS item if item.checked=.t.&判定當復選框選中 要執(zhí)行的語句 else 要執(zhí)行的語句 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 禁止標簽編輯 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 , , 遠程 IP, 1500 ListView1.ColumnHeaders.Add , , 遠程端口, 900 ListView1.ColumnHeaders.Add , , 當前狀態(tài), 900 ListView1.ColumnHeaders.Add , , 連接時間, 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) = (無) - 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) = (無) 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) = (無) - ListView1.View = lvwReport 設(shè)置顯示方式為列表 ListView1.AllowColumnReorder = True 對行進行程序排列，用鼠標進行排列 ListView1.Arrange = lvwAutoLeft 圖標橫排列 ListView1.Arrange = lvwAutoTop 圖標豎排列 ListView1.FlatScrollBar = False 顯示滾動條 ListView1.FlatScrollBar = True 隱藏滾動條 ListView1.FullRowSelect = True 選擇整行 ListView1.LabelEdit = lvwManual 禁止標簽編輯 ListView1.GridLines = True 顯示網(wǎng)絡(luò)線 ListView1.LabelWrap = True 圖標可以換行 ListView1.MultiSelect = True 可以選擇多個項目 ListView1.PictureAlignment = lvwTopLeft 圖片對齊方式是左頂部，其他有右頂部(1)、左底部(2)、右底部(3)、居中(4)、平鋪(5) ListView1.Checkboxes = True 顯示復選框 ListView1.DropHighlight = ListView1.ListItems.Item(2) 顯示系統(tǒng)顏色End Sub常用操作：獲取當前行數(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當前選中行:MsgBox ListView1.SelectedItem.Index獲取復選框的值:MsgBox ListView1.ListItems(1).Checked刪除指定行:ListView1.ListItems.Remove 1去掉鼠標左鍵點擊標簽編輯:labeledit屬性改為1讀取某行第一列內(nèi)容:ListView1.ListItems(i).Text讀取某行第幾列內(nèi)容 (不包括第一列):ListView1.ListItems(Num).SubItems (4)讀取當前選中行第一列內(nèi)容:ListView1.ListItems(ListView1.SelectedItem.Index).Text循環(huán)查找讀取項目: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 按下鼠標右鍵 顯示菜單End Sub當前選中判斷:Dim NIf ListView1.ListItems.Count 0 Then N = ListView1.SelectedItem.Index Else MsgBox 當前沒有任何主機在線!, vbInformation, 警告: Exit SubIf N 1 Then MsgBox 你沒有選中任何主機!, vbInformation, 警告: Exit SubVB設(shè)置某行為選中/非選中狀態(tài):ListView.ListItems(i).Selected = True 選中第i行ListView.ListItems(i).Selected = False 選中第i行Add方法（ListIt