1,、在Listview控件中,,用ColumnHeaders對象來操作列,,而添加新的列可以用ColumnHeaders對象的ADD方法。具體如下:
ListView1.ColumnHeaders.Add 序號,,唯一的字符串標(biāo)識,,列標(biāo)顯示文字,列寬,,列的內(nèi)容對齊方式,,所使用的圖標(biāo)序號。
對齊方式有:lvwColumnLeft ,、 lvwColumnCenter ,、lvwColumnRight
其中第1列只能左對齊,而不能采取其他對齊方式
2,、Listview控件的View 屬性決定著它的顯示的方式,,具體如下:
ListView1.View = lvwIcon '圖標(biāo)顯示
ListView1.View = lvwSmallIcon '小圖標(biāo)顯示
ListView1.View = lvwList '列表顯示
ListView1.View = lvwReport '報(bào)表顯示
3、SelectedItem屬性即是指當(dāng)前選取的記錄
4,、清空listview控件中的內(nèi)容:ListView1.ListItems.Clear
顯示數(shù)據(jù)表內(nèi)容:
Private Sub UserForm_Initialize()
With ListView1 '初始化listview
.ColumnHeaders.Add , , "學(xué)號", 60, lvwColumnLeft
.ColumnHeaders.Add , , "姓名", 60, lvwColumnCenter
.ColumnHeaders.Add , , "班級", 70, lvwColumnCenter
.View = lvwReport '以報(bào)表的格式顯示
.LabelEdit = lvwManual '使內(nèi)容不可編輯
End With
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection '連接數(shù)據(jù)庫
Set rs = New ADODB.Recordset
cn.Open "provider=microsoft.jet.oledb.4.0;data source=D:\db1.mdb"
rs.Open "student", cn, adOpenKeyset, adLockBatchOptimistic '數(shù)據(jù)表student
Do While Not rs.EOF
With ListView1.ListItems.Add() '添加記錄
.Text = rs.Fields("stu_num") '添加第一列內(nèi)容
.SubItems(1) = rs.Fields("stu_name") '添加第二列內(nèi)容
.SubItems(2) = rs.Fields("stu_class") '添加第三列內(nèi)容
End With
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cn.Close
End Sub
讀取listview選擇的內(nèi)容:
將選中的內(nèi)容分別顯示在UserForm1的文本框中
With UserForm1
.stu_num.Value = ListView1.SelectedItem.Text '學(xué)號
.stu_name.Text = ListView1.SelectedItem.SubItems(1) '姓名
.stu_class.Text = ListView1.SelectedItem.SubItems(2) '班級
End With
發(fā)行注意 ListView 控件是 Mscomctl.ocx 文件中一組 ActiveX 控件的一部分,。若要在應(yīng)用程序中使用 ListView 控件,則必須將 Mscomctl.ocx 文件添加到工程中,。當(dāng)發(fā)行應(yīng)用程序時(shí),,請將 Mscomctl.ocx 文件安裝到用戶的 Microsoft Windows System 或 System32 目錄下。關(guān)于如何將 ActiveX 控件添加到 Visual Basic 工程的詳細(xì)信息,,請參閱 Visual Basic《程序員指南》,。