求助 关于ListView 急........

Question

listView 显示 如下的格式
  如下的 格式 
a1  a2  a3   a4
b1  b2  b3   b4  
c1  c2  c3  c4
我想把   列2   加上图片      b行变成粗体    可以实现吗.  怎么实现 还有怎么 可以实现 我知道 我点的是 b1   b2  b3 还是 c1 c2
谢谢了  

Answer 1

变粗体是这样吗. lsvEMail.ListItems(2).ListSubItems(1).Bold = True
 lsvEMail.ListItems(2).ListSubItems(2).Bold = True
 lsvEMail.ListItems(2).ListSubItems(3).Bold = True
 lsvEMail.ListItems(2).ListSubItems(4).Bold = True

Answer 2

listView只能加一个背景图，不能单独给某列加，用truedbgrid吧

Answer 3

不是那个意思 我的意思是b2 a2 c2 换成图标   怎么实现用代码 我快弄出来了 ^_^

Answer 4

哈哈出来了 哈哈
lsvEMail.ListItems(2).ListSubItems.Item(2).ReportIcon = 2
告诉我 还有怎么 可以实现 我知道 我点的是 b1   b2  b3 还是 c1 c2  这个问题吧 前边的问题全部解决了

Answer 5

通过他 可以找到 b1 a1 c3>?

Answer 6

listView能给某列加图标,至于B行变粗体，可用自己个过程来做嘛…………
顶

Answer 7

谁可以讲讲  ListItem  的作用是什么吗? 为什么都用  
Dim mRow As ListItem
Set mRow = lv.ListItems.Add(, , CStr(i))用他来接收  接收了 也不用 怎么利用 mRow  那里面是什么?

Answer 8

'ListView 点击对应行的代码Private Sub Form_Load()
Dim mRow As ListItem  '--------------------------
    ListView1.View = lvwReport
    ListView1.FullRowSelect = True
       ListView1.ColumnHeaders.Add , , "序号"
    ListView1.ColumnHeaders.Add , , "标题"
    For i = 1 To 40
      Set mRow = ListView1.ListItems.Add(, , CStr(i))
      mRow.SubItems(1) = "谢谢 " & i
    Next
  
End SubPrivate Sub Form_Click()
   Dim intX As Integer
   On Error Resume Next '如果整数未输入。
   intX = InputBox("Check Item", , ListView1.SelectedItem.Index)
   If IsNumeric(intX) Then   '确保整数已输入。
      If ListView1.ListItems(intX).Selected = True Then
         MsgBox ListView1.ListItems(intX).Text & " is selected."
      Else
         MsgBox "Not selected"
      End If
   End If
End Sub

Answer 9

Private Sub ListView1_Click()
    If ListView1.SelectedItem Is Nothing Then Exit Sub
    MsgBox "你选择了" & ListView1.SelectedItem.SubItems(1)
End Sub

Answer 10

可以，直接用API來創建Listview控件。
網上有源碼的。

Answer 11

我怎么能找到 我点击的对应行的代码  的字符串
 例如我鼠标点了  b3  我会得到对应的字符串 
点 c4也会得到 对应的字符串 
哪为高手可以高手我告诉 ListViewControl.HitTest()  HitTest 属性怎么用