VB中处理长列表框项的两种方法

页面导航:首页 > 软件编程 > vb.net > VB中处理长列表框项的两种方法

VB中处理长列表框项的两种方法

来源: 作者: 时间:2016-02-05 12:32 【

在使用列表框(LISTBOX)中经常碰到的问题是, 用户使用时在其中添加的条目(Item)长短不一,由于界面所限,只能将列表框调整到能满足显示大部分条目的宽度。如果其中有比较长的

 

在使用列表框(LISTBOX)中经常碰到的问题是, 用户使用时在其中添加的条目(Item)长短不一,由于界面所限,只能将列表框调整到能满足显示大部分条目的宽度。如果其中有比较长的条目则不能完全显示,而LISTBOX没有水平滚动条,这给用户的使用造成一些不便,可以通过为列表框加上一个水平滚动条的方法来解决,但这需要使用API函数,比较麻烦。使用VB的用户可能发现一个有趣的现象:在联机手册的使用中,如果条目过长,当鼠标指针移到其上时,将自动弹出包含完整信息的提示框,类似于流行的按钮提示信息。笔者经过分析,找到了实现这个功能的两种方法。

 

  第一种方法的思路是:监视列表框中的鼠标移动事件,当鼠标移动到列表框的条目上时,利用SendMessage函数的LB_ITEMFROMPOINT参数获得条目的索引号,然后再判断条目的长度是否比列表框的宽度长,如果大于列表框宽度则将此索引号的条目内容赋予列表框的.ToolTipText属性。下面是一个例子,将演示此具有智能的列表框。

 

  在窗体中添加一个列表框List1,在总体声明部分声明API函数如下:

 

Option Explicit

 

Private Declare Function SendMessag

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 List1_MouseMove(Button As Integer,

Shift As Integer, _X As Single, Y As Single)

 

Dim lXPoint As Long

Dim lYPoint As Long

Dim lIndex As Long

If Button = 0 Then

lXPoint = CLng(X / Screen.TwipsPerPixelX)

lYPoint = CLng(Y / Screen.TwipsPerPixelY)

 

With List1

获得当前条目的索引号

lIndex = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, _

ByVal ((lYPoint * 65536) + lXPoint))

If (lIndex >= 0) And (lIndex < = .ListCount) Then

判断条目的长度是否大于列表框宽度

If TextWidth(.List(lIndex)) > .Width Then

.ToolTipText = .List(lIndex)

Else

.ToolTipText = ""

End If

End If

End With

End If

 

End Sub

Form_Load事件中为列表框添加

几个条目供验证使用:

 

Private Sub Form_Load()

 

With List1

.AddItem "智能列表框Listbox"

.AddItem "这是一个长条目信息,将鼠标移到其上,

你就能看到完整信息"

End With

 

End Sub

  第二种方法的思路和第一种是基本类似的,但直接使用字体的大小属性来判断,不需要使用API函数,看一下下面的代码就明白了。可以使用下面的代码来替换上面的列表框鼠标移动事件代码:

Private Sub List1_MouseMove

(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

Dim Ypos As Integer, iOldFontSize As Integer

iOldFontSize = Me.Font.Size

Me.Font.Size = List1.Font.Size

Ypos = Y Me.TextHeight("Xyz") + List1.TopIndex

Me.Font.Size = iOldFontSize

If Ypos < List1.ListCount Then

List1.ToolTipText = List1.List(Ypos)

Else

List1.ToolTipText = ""

End If

End Sub

 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <