VB中如何在ListView中添加ImageList中的图像

Posted 2023-05-05

问题如标题。

本人是VB初学者，希望有高手给予帮助，步骤越详细越好~~谢谢~~~

注：我的MS Windows Common Controls 是5.0的.

方法如下

（1）新建一个VB工程

（2）在控件工具箱中添加ListView和ImageList控件

在工具箱上鼠标右键单击-->调出菜单

（3）在窗体上布置一个ListView和一个ImageList

（4）向ImageList1中插入图片

鼠标右键单击ImageList1-->调出菜单-->属性

（5）将ListView1与ImageList关联起来

鼠标右键单击ListView1-->调出菜单-->属性

（6）窗体代码

Option Explicit

Private Sub Form_Load()
    '向ListView1中添加项
    Dim itemX As ListItem
    With ListView1
        Set itemX = .ListItems.Add(, , "项目1")
        '使用ImageList1中的#1图
        itemX.Icon = 1
        
        Set itemX = .ListItems.Add(, , "项目2")
        '使用ImageList1中的#2图
        itemX.Icon = 2
    End With
End Sub

（7）运行效果

参考技术A 先在imagelist中添加好图片~
双击listview的自定义。之后在属性页中设置图象列表由无改成imagelist1
最后
用ListView1.ListItems.Add , , "项目名字", 1
来增加项目就或以了 后面的1是代码imagelist1里的图标编号

请问VB6中ListView控件如何和数据库绑定，比如说ADODC控件

如何将adodc里的数据与listview绑定？还有当我单击“按房间类型显示”时，listview中的数据也随着变化。先谢谢你了！

参考技术A Dim link1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim pubdatapath As String

Sub opendatabase(datapath As String) '打开数据库函数
If link1.State = 1 Then '如果以连接过，则关闭，初始化下次事务
link1.Close: list2.ListItems.Clear: list2.ColumnHeaders.Clear: c.Clear: list1.ListItems.Clear
End If
link1.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=" & datapath
link1.Open
pubdatapath = datapath
Set biaoming = link1.OpenSchema(adSchemaColumns) '创建数据库记录集
tablename = ""
Do Until biaoming.EOF
If biaoming("table_name") <> tablename Then '列出所有表
tablename = biaoming("table_name")
list1.ListItems.Add , , tablename
End If
biaoming.MoveNext
Loop
Set biaoming = Nothing
menu1.Enabled = True
list1_MouseUp 1, 0, 10, 10
End Sub
Private Sub Command1_Click() '打开数据库
d.DialogTitle = "打开一个数据库文件进行浏览"
d.InitDir = App.Path
d.FileName = ""
d.Filter = "Access数据库(mdb后缀,推荐格式)|*.mdb"
d.ShowOpen
If d.FileName = "" Then Exit Sub
opendatabase d.FileName
End Sub 参考技术B 不能绑定的，显示数据只能靠代码