如何使用鼠标右键选择列表框中的项目.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

你 可 以 利 用 LB_ITEMFROMPOINT判 断 鼠 标 的 位 置 处 于 第 几 项 ， 下 面 是 一 个 例 子 ： 
    Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     Debug.Print X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY 
     List1.ListIndex = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, _ 
     ByVal CLng(Y / Screen.TwipsPerPixelY * 65536 + X / Screen.TwipsPerPixelX)) 
    End Sub 
<END>