vblistbox右键点击哪个 vb listbox勾选
今天给各位分享vblistbox右键点击哪个的知识，其中也会对vb listbox勾选进行解释。本文目录一览：
1、vb listbox 右击事件，右击下去点到的行
2、VB 要求在listbox上右键选中当
今天给各位分享vblistbox右键点击哪个的知识，其中也会对vb listbox勾选进行解释。
本文目录一览： 1、vb listbox 右击事件，右击下去点到的行 2、VB 要求在listbox上右键选中当前鼠标位置的item 3、listbox 右键 vb中 4、vb 在listbox中，弹出右键菜单 5、vb.net 添加了右键，如何向listbox进行右键文件操作（请进来看详细） vb listbox 右击事件，右击下去点到的行Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const LB_ITEMFROMPOINT = H1A9
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim pos As Long, idx As Long
If Button = vbRightButton Then
pos = X / Screen.TwipsPerPixelX + Y / Screen.TwipsPerPixelY * 65536
idx = SendMessage(List1.hWnd, LB_ITEMFROMPOINT, 0, ByVal pos)
' idx 即等于鼠标所在位置的选项
If idx 65536 Then
List1.ListIndex = idx
MsgBox idx
End If
End If
End Sub
VB 要求在listbox上右键选中当前鼠标位置的item
'你可以在 ListBox 的 MouseUp 事件里检测，如果按的是右键，那么就就先让鼠标自己点击了左键，再进行其他操作: Option ExplicitPrivate Declare Sub mouse_event Lib "user32" ( _
ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long _
)Private Const MOUSEEVENTF_LEFTDOWN = H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = H4 ' left button up' Private Sub List1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then
mouse_event MOUSEEVENTF_LEFTDOWN, x, y, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, x, y, 0, 0
End If '接下来是写你要操作的代码 '......
End Sub
listbox 右键 vb中用api函数再结合复杂的代码，也许能实现你要求的功能（注意是“也许”）。与其这样，倒不如用文本框textbox，一行代码也不用，因为文本框本身就内置了这样的功能
vb 在listbox中，弹出右键菜单首先在菜单编辑器里新建一个主菜单，就叫lstrmnu好了，把他设为不可见，然后在它下面添加子菜单，（点一下右箭头按钮即可），把你想要实现的菜单项都写进去，在listbox的右击事件里写popupmenu
lstrmnu即可实现，要编辑菜单项的事件处理，只要在设计模式直接单击菜单项（设计模式右击listbox是没用的）即可弹出代码窗口
如果要对list中的某一项进行操作，只要使用listbox的listindex属性即可（这个从0开始的整数是listbox中的item的序号）
vb.net 添加了右键，如何向listbox进行右键文件操作（请进来看详细）ConTextMenuStrip控件不要和listbox绑定，用代码弹出来：
Private Sub ListBoxUser_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBoxUser.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim sPoint As Point = New Point(e.X, e.Y)
Dim sIndex As Integer = ListBoxUser.IndexFromPoint(sPoint.X, sPoint.Y)
If sIndex -1 Then
ListBoxUser.SelectedIndex = sIndex
ListBoxUser.ContextMenuStrip = ContextMenuListBox
Else
ListBoxUser.ContextMenuStrip = Nothing
End If
Else
ListBoxUser.ContextMenuStrip = Nothing
End If
End Sub
上面示例中，ListBoxUser是一个ListBox实例，ContextMenuListBox是一个菜单示例。
