雙擊工具箱的ImageList控件,在窗體上出現的控件圖標上點右鍵選屬性。轉到圖像選項卡,為控件添加幾個圖片
。控件名稱為ImageList1.
可以分別為每壹種視圖設置壹個ImageList
用ListView控件在窗體上創建壹個ListView1,點右鍵選屬性,轉到圖像列表,然後全部指定ImageList1,轉到列首選項卡,至少添加壹列,為每列指定壹個圖標索引,其他設置自行設定,最後確定
添加表項的代碼格式,以ListView1為例
ListView1.ListItems.Add [索引],[鍵] ,[標簽文字], [大圖標索引號],[小圖標索引號]
添加子項的格式
ListView1.ListItems(表項索引號).ListSubItems.Add [索引],[鍵] ,文字標簽, 詳細資料圖標索引號,工具提示文字
刪除項
ListView1.ListItems.remove 項索引號
全部清除
ListView1.ListItems.clear
修改第壹項的標簽
ListView1.ListItems.Item(1).Text="新標簽"
修改第壹項的子項
ListView1.ListItems.Item(1).ListSubItems(1).Text ="新標簽"
點右鍵的操作
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim thisitem As ListItem
If Button = MouseButtonConstants.vbRightButton Then
If ListView1.HitTest(x, y) Is Nothing Then
Else
Set thisitem = ListView1.HitTest(x, y)
'比如根據所點項的索引做相應動作
Call dosomething(thisitem.Index)
End If
End If
End Sub
上面的帶中括號的為可選
例如
ListView1.ListItems.Add , , "hello", 1, 1
ListView1.ListItems(1).ListSubItems.Add , , "second", 2, "hello"