VB中处理长列表框项的两种方法_VB窗体文章_VB_编程开发

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

日期：2008-10-20 18:07:13　　　　来源：互联网

　·基于VB和EXCEL的报表设计及打印　·处理加了密码的MDB文件
　·拷贝或移动列表框或组合框中的内容

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

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

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

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 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
　程序运行环境：中文VB 5.0专业版，中文WIN95。　[1]

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

基于VB的通用折行打印程序

VB数据库编空字段的处理

怎样从文件列表框中取得文件的完整路径和名称

◎→	本类最新
VB实现窗口的弹出式菜单 VB6制作Win98风格的工具栏 VB5.0中实现字体闪烁效果用VB6实现动态增减控件用VB做个漂亮的进度条用VB设计聚焦框程序 Cool 3D 浮動按鈕的模擬作法

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 VB基础视频教程 VB窗体文章 VB文件文章 VB数据库文章 VB-API文章 VB控制文章

◎→	热门资源
TXT文件的读取 TextBox 中英文输入方法切换 DBF文件转为MDB文件的方法 ANI文件格式中的Unicode 和 Ansi 格式中DOS文件名与长文件名的转换与Windows资源管理器互拷文件