1的,我不知道 2的,你可以用dim Litem as ListItemPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) set litem = livstview1.HitTest(x,y) End Sub这样Litem就是当前鼠标指向的item了,接下来就可以 sql="select * from 表 where name='"& litem.text &"'":)
对不起,有一个地方错了,不是Form_MouseMove,是Listview1_mousemove
右健选择图片Private Sub livstview1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)livstview1.SelectedItem.Selected = False Set livstview1.DropHighlight = livstview1.HitTest(x, y)End Sub
http://www.sijiqing.com/vbgood/code/index.asp?action=read&id=1084
2的,你可以用dim Litem as ListItemPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
set litem = livstview1.HitTest(x,y)
End Sub这样Litem就是当前鼠标指向的item了,接下来就可以
sql="select * from 表 where name='"& litem.text &"'":)
Set livstview1.DropHighlight = livstview1.HitTest(x, y)End Sub