VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1609|回复: 2

[求助] 关于鼠标在ListView中读取当前内容的问题

[复制链接]
发表于 2015-6-29 11:47:30 | 显示全部楼层 |阅读模式
想在ListView1中用鼠标移动时随时读取鼠标当前位置的内容,网上一位朋友发的源码还不够完美,想了下,没解决了。

Private Sub Form_Load()
Dim AA
For AA = 1 To 56
With ListView1.ListItems.Add(, , ListView1.ListItems.Count + 1)
.SubItems(1) = "A" & AA
.SubItems(2) = "B" & AA
.SubItems(3) = "C" & AA
.SubItems(4) = "D" & AA
.SubItems(5) = "E" & AA
.SubItems(6) = "F" & AA
End With
Next
End Sub

Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim iItem As ListItem, j
If (Y - 250) \ 200 + 1 <= ListView1.ListItems.Count Then
Set iItem = ListView1.HitTest(X, Y)
If iItem Is Nothing Then
Picture1.Visible = False
Else
j = iItem.Index
If X >= ListView1.ColumnHeaders(2).Width Then
Picture1.Width = Len(Ltext(ListView1, j, 2)) * 200 ' 95
Picture1.Left = ListView1.ColumnHeaders(2).Width + 120
Picture1.Top = ListView1.ListItems(j).Top + ListView1.Top + 40
Picture1.Height = ListView1.ListItems(j).Height + 300
Picture1.Visible = True
Picture1.Cls
Picture1.Print Ltext(ListView1, j, 2)
Else
Picture1.Visible = False
End If
End If
Else
Picture1.Visible = False
End If
End Sub
Private Function Ltext(CT As Control, S, H)
Ltext = CT.ListItems(S).ListSubItems(H).Text
End Function
 楼主| 发表于 2015-6-29 11:50:05 | 显示全部楼层
我问过那位朋友,他说是这句:Picture1.Print Ltext(ListView1, j, 2) 只要把括号里的2换成鼠标当前坐标就应该可以的。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-6-30 12:41:38 | 显示全部楼层
有高手吗?Picture1.Print Ltext(ListView1, j, 2) 括号里的2怎么换成鼠标当前坐标呢?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-5 11:08

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表