关闭

获取鼠标指针在ListBox中的行位置

标签: integerlistbuttonfunctionuser
2402人阅读 评论(0) 收藏 举报
分类:

Listbox控件没有提供这个属性值可以调用,这里我写了个完整的演示程序,供大家参考.

新建一个工程,在Form1窗体上加上一个ListBox和一个Label.在窗体代码中粘贴以下程序,然后运行即可.

Option Explicit

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
Private Const LB_ITEMFROMPOINT = &H1A9

Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 5
        List1.AddItem Trim(Str(i))
    Next
End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim LstPOS As Long
    Dim XX As Long
    Dim YY As Long
    XX = CLng(X / Screen.TwipsPerPixelX)
    YY = CLng(Y / Screen.TwipsPerPixelY)
    LstPOS = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, ByVal ((YY * 65536) + XX))
    If LstPOS < List1.ListCount Then
       Label1.Caption = "当前位置为: " & LstPOS
    End If
End Sub

'-------------------------------------------
' 转载请注明出处
' 作者:唐细刚
' 邮箱:tanaya@163.com
'-------------------------------------------

0
0
查看评论

在 ListBox 之中, 如何检测鼠标所在位置的选项?

  • 2011-03-31 16:48
  • 1011B
  • 下载

MFC listBox 实现右键单击事件

转自:http://blog.csdn.net/a466804006/article/details/6907791 恩 ,大家好。我用的是VS2010,不会用CSDN的插入图片的方法,大家表喷我。 这几天在搞MFC,因为客户要求(TMD)所以只好搞一个右键菜单。这个在网上确实有许多的版本,但是...
  • zhoxier
  • zhoxier
  • 2012-07-02 18:48
  • 6841

获取鼠标指针在ListBox中的行位置

Listbox控件没有提供这个属性值可以调用,这里我写了个完整的演示程序,供大家参考.新建一个工程,在Form1窗体上加上一个ListBox和一个Label.在窗体代码中粘贴以下程序,然后运行即可.Option ExplicitPrivate Declare Function SendMessage...
  • tanaya
  • tanaya
  • 2004-09-21 10:48
  • 2402

Tkinter教程之Listbox篇

#Tkinter教程之Listbox篇#Listbox为列表框控件,它可以包含一个或多个文本项(text item),可以设置为单选或多选1.创建一个Listbox,向其中添加三个itemfrom Tkinter import *root =...
  • jcodeer
  • jcodeer
  • 2007-10-04 18:51
  • 16297

ListBox获取选择的值

DataRowView drv = (DataRowView)this.listBoxRepair.SelectedItem; if (drv != null) { string repairid = drv[&quo...
  • QingHeShiJiYuan
  • QingHeShiJiYuan
  • 2015-09-23 08:11
  • 1897

C# Tips 2 右键单击listBox时弹出右键菜单并选中单击的行

处理MouseDow事件:注意:不要设定ListBox的ContextMenu  private void lbOutputs_MouseDown(object sender, MouseEventArgs e)     ...
  • geyunfei_hit
  • geyunfei_hit
  • 2008-07-16 15:41
  • 2335

Tkinter-ListBox基本使用

Tkinter-ListBox基本使用1:创建from tkinter import *root = Tk() listbox = Listbox(root) listbox.insert(END,'ListBox1') listbox.insert(END,'ListBox...
  • LI_will
  • LI_will
  • 2017-01-07 14:08
  • 3788

Tkinter实现Listbox单行多值

#-*-coding:utf-8-*- ''' Created on 2015年11月29日@author: Zroad '''""" Tkinter实现Listbox控件单行多值 """ f...
  • u010039733
  • u010039733
  • 2015-11-29 22:19
  • 348

JavaScript 获取鼠标及元素在页面上的位置

JavaScript获取鼠标的位置,大家会想到clientX/Y等属性,灵活的获取鼠标的位置信息,能够便于我们实现各种复杂的页面交互效果,到底还有哪些属性可以获取鼠标的位置信息?另外,还有哪些能快速获取标签在页面中的位置信息? 在书写一些“拖拽”页面交互效果,比如常见的拖拽效果、自定滚动条、放大镜...
  • u013063153
  • u013063153
  • 2016-09-27 09:44
  • 3934

让ListBox控件每一行显示不同的颜色

最近用MFC做个小项目,想要让ListBox中的每一行都根据自定义的颜色来显示不同的颜色。刚开始把MFC想的太简单了,拖了一个ListBox控件然后绑定了一个变量m_ListBox。 在主对话框的OnInitDialog()函数中我调用了下面的代码 m_ListBox.AddString(_T(...
  • bcypxl
  • bcypxl
  • 2013-12-03 14:47
  • 3959
    个人资料
    • 访问:2280607次
    • 积分:29236
    • 等级:
    • 排名:第210名
    • 原创:684篇
    • 转载:135篇
    • 译文:0篇
    • 评论:475条
    文章存档
    最新评论