vb在 ListBox 之中点击右键弹出菜单

'1.API 的声明:
Const LB_ITEMFROMPOINT = &H1A9
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

 '2.代码

Private Sub Listbox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   On Error Resume Next
     If Button = 2 Then
           Dim Pos As Long, idx As Long
           Pos = X / Screen.TwipsPerPixelX + Y / Screen.TwipsPerPixelY * 65536
           idx = SendMessage(ListFin.hwnd, LB_ITEMFROMPOINT, 0, ByVal Pos)
           ' idx 即等于鼠标所在位置的选项
           If idx < 65536 Then
                 Listbox1.ListIndex = idx
                 PopupMenu pop1   'pop1为菜单
           End If
     End If
End Sub

相关参考

VB Listbox 添加不重复的值

Listbox 之中点击右键弹出菜单

Listbox 的水平卷动轴

VB动态拖曳Listbox Item位置

相关

参考

vb屏蔽文本框点右键时的弹出菜单

VB 小技巧自定义TextBox文本框右键菜单

VB 自启动建立右键菜单

VB在菜单上增加图标

vbListBox 之中点击右键弹出菜单

【引用】在VB6.0中实现弹出式菜单的几种方法

vb中实现真正锁定的带自定义菜单的文本控件

记录一下:在菜单上添加自绘图形的例子(VB6代码)


相关参考


VB查找替代字符串的函数

VB换行气泡提示类

VB/VBA通用路径选择对话框

ASCII码表0-255完整版 附详细注释

VBKeyAscii

VB取得TextBoxRichTextBox光标所在的行和列(支持汉字)

VB取得TextBoxRichTextBox光标所在的行和列(支持汉字)

VB如何实现Undo(撤消)功能

VB计算文本文件的行数

VB获取快捷方式原文件路径

微软 Small Basic 简体中文版 已经发布了

VB操作Excel 非常详细 [网摘]

VB如何判断文件正被占用/已被打开

VB添加listbox 的水平卷动轴

VB打开资源管理器并指定文件

VB根据窗体自动调整窗体内控件大小 注:实用,可以直接引用

VB中的指针技术

Visual Basic编程常见问题及解答(1

Visual Basic编程常见问题及解答(2

Visual Basic编程常见问题及解答(3

VisualBasic变量、常数和数据类型及过程概述

VB6的后期绑定和前期绑定

VB用户控件制作讲解与实例

VB制作OCX控件的步骤

VBFSO的调用的两种方法

VB操作EXCEL

VB判断文件及目录的存在性

VB网站(最新、经典源代码、技术文章、基础知识)

VB得到指定文件夹下的文件列表

VB产生随机任意大小文件挤满硬盘

VB文件的读写操作

VB创建超链接 打开指定网站的几种方法

VB 源码 删除重复行程序 函数

VB 计算自己程序段所用时间

VB 获取路径名各部分 (获取文件路径,获取文件名,获取文件扩展名)自编

几行VB代码拿下注册表

VB 在浏览器中打开指定网址

VB窗口置顶

vb ListBox 之中点击右键弹出菜单

  • 0
    点赞
  • 0
    评论
  • 2
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值