示例代碼如下:
(1)創建新的VB6項目。
(2)ListView和命令以Form1的形式排列。
(3)表單代碼
選項顯式
私有子命令1_Click()
使用ListView1
清空所有項目。
. ListItems.Clear
清空標題
. ColumnHeaders.Clear
以…結尾
末端接頭
私有子窗體_Load()
Dim itemX作為列表項
使用ListView1
以詳細列表模式顯示
。View = lvwReport
頁眉
。列標題。添加“產品名稱”
。列標題。添加,“來源”
添加項目
Set itemX = .ListItems.Add(,,“Apple”)
ItemX。子項(1) =“煙臺”
Set itemX = .ListItems.Add(,," banana ")
ItemX。分項(1) = "巴拿馬"
Set itemX = .ListItems.Add(,," Citrus ")
ItemX。子項(1) = "加利福尼亞"
以…結尾
命令1。Caption = "空ListView "
末端接頭
(4)操作
點擊“清除列表視圖”按鈕後,