VB listview用法

只是從數據表中添加數據，如果妳不從數據中添加數據，將如下代碼稍作改動即可

Private Sub Form_Load()

'整行選擇

ListView1.FullRowSelect = True

'顯示表頭ColumnHeaders

ListView1.HideColumnHeaders = False

'網格行

ListView1.GridLines = True

'采用報表顯示模式

ListView1.View = lvwReport

Dim ListX As ListItem

Dim ListSubX As ListSubItem

Dim ColumnX As ColumnHeader

Dim i As Integer

'清除Listview的內容和表頭

ListView1.ListItems.Clear

ListView1.ColumnHeaders.Clear

'填充表頭

For i = 0 To rs.Fields.Count - 1

Set ColumnX = ListView1.ColumnHeaders.Add

ColumnX.Text = rs.Fields(i).Name

ColumnX.Width = ListView1.Width / rs.Fields.Count

Next i

'填充數據

Do Until rs.EOF

'添加壹行

Set ListX = ListView1.ListItems.Add

ListX.Text = rs.Fields(0).Value

For i = 1 To rs.Fields.Count - 1

Set ListSubX = ListX.ListSubItems.Add

ListSubX.Text = rs.Fields(i).Value

Next i

rs.MoveNext

Loop

rs.Close

Set rs = Nothing

cnn.Close

Set rs = Nothing

Exit Sub

myERR:

'錯誤處理程序

MsgBox Err.Description, vbCritical, "出錯"

rs.Close

cnn.Close

End Sub

上一篇:夢見股市漲停的預兆

下一篇:淘寶智能旺鋪，電腦裝修首頁時，兩張全屏寬圖之間的間隙怎麽取掉？