[VB代码修改]用图标来设定LISTVIEW的行高

zbs112

VB里，用imagelist储藏的图标来增加listview的行高，不知道下面的代码错在哪，求助。 rt0dpPlJ.rar (23.92 KB, 下载次数: 428)

2007-7-13 21:02 上传

点击文件名下载附件
[VB代码修改]用图标来设定LISTVIEW的行高

[此贴子已经被作者于2007-7-13 21:03:09编辑过]

zbs112

运行的结果如上图所示，上楼的代码要如何修改？谢谢！

TGB

94

zbs112

谢谢qee用版主和TGB，我仔细再看了一下，ListView的所有字段前都被预留一个图标的空位(我只想让第一列显示一个图标的，其他的不要预留)，不知道是怎么修改，谢谢！

[此贴子已经被作者于2007-7-14 8:23:18编辑过]

zbs112

如1楼的抓图，不知道别人是怎么做出来的？

'列标头关联图标
ListView1.ColumnHeaderIcons = ImageList1
ListView1.ColumnHeaders(1).Icon = 1

只是在下面的代码直接加上图标：

Set AddList = ListView1.ListItems.Add(, , RST.Fields("用户ID"), , 2)

没有看到记录行关联图标的代码
ListView1.SmallIcons = ImageList1

[此贴子已经被作者于2007-7-14 10:06:37编辑过]

zbs112

BAmn8u8n.rar (216.05 KB, 下载次数: 206)

2007-7-14 11:05 上传

点击文件名下载附件
[VB代码修改]用图标来设定LISTVIEW的行高

因为对VB才接触，不知道原作者在哪设置？现传给版主看看。

zbs112

XEGNLPpV.rar (27.52 KB, 下载次数: 878)

2007-7-14 15:28 上传

点击文件名下载附件

[此贴子已经被作者于2007-7-14 15:31:30编辑过]

zbs112

WIN2000+2000不听话，哈哈，只好行标头不显示了。

[此贴子已经被作者于2007-7-14 16:03:12编辑过]

qee用

你总是很粗心![em06]

Private Sub Form_Load()
   With ListView1
       .View = lvwReport
       .GridLines = True
       .Checkboxes = False
       .FullRowSelect = True
       '增加list1 列标头
       .ColumnHeaders.Add , , "编号", 1000
       .ColumnHeaders.Add , , "购机日期", 1200
       .ColumnHeaders.Add , , "联系人", 1200
       .ColumnHeaders.Add , , "拼音码", 1200
       .ColumnHeaders.Add , , "用户电话", 1500
       .ColumnHeaders.Add , , "用户手机", 1500
       '列标头关联图标
       .ColumnHeaderIcons = ImageList1
       .ColumnHeaders(1).Icon = 1
       '记录行关联图标
'       .Icons = ImageList1
       .SmallIcons = ImageList1
'       .ListItems(1).Icon = 1
   End With
  Call 读取数据
End Sub

Sub 读取数据()  '读取数据到ListView
   Dim CNN As New ADODB.Connection
   Dim RST As New ADODB.Recordset
   Dim SQL As String, AddList As ListItem
   CNN = "Provider=Microsoft.Jet.OLEDB.4.0;"
   CNN = CNN & "Data Source=" & App.Path & "\data.mdb;"
   CNN = CNN & "Jet OLEDB:Database Password=" & "cjw79512"
   CNN.Open
   SQL = "select * From yhda Order By 用户ID desc"
   RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic
   Do While Not RST.EOF
      Set AddList = ListView1.ListItems.Add(, , RST.Fields("用户ID"), , 1) '将各项数据加入list列表
      AddList.SubItems(1) = RST.Fields("购机日期")
      AddList.SubItems(2) = RST.Fields("联系人")
      AddList.SubItems(3) = RST.Fields("拼音码")
      AddList.SubItems(4) = RST.Fields("用户电话")
      AddList.SubItems(5) = RST.Fields("用户手机")
      RST.MoveNext
   Loop
   RST.Close: Set RST = Nothing
   CNN.Close: Set CNN = Nothing
End Sub

qee用

呵呵,这个恐怕做不到,除非你不要头图标