VB中List 控件的功能扩充

领测软件测试网

　　 
　　VB中List 控件的功能扩充
---- List 控 件 是vb 中 常 用、 方 便 而 有 效 的 控 件， 是 开 发 者 非 常 喜 欢 的 控 件 之 一， 但 开 发 者 常 常 会 遇 到 这 样 的 麻 烦： 一 方 面 由 于 列 表 筐 列 表 项 内 容 长 短 不 一，

有 的 可 能 很 长； 另 一 方 面 由 于 界 面 的 限 制 又 不 能 把list 控 件 作 的 很 大， 结 果 造 成list 控 件 中 列 表 项 内 容 太 长 而 无 法 完 整 地 显 示 出 来。 笔 者 在 多 年 的 开 发 过 程 中 找 到 了 两 种 简 便 的 解 决 方 法。 一 种 是 利 用list 控 件 的tooltiptext 属 性， 在list 控 件mousemove 事 件 中 编 程 动 态 地 改 变list 控 件 的tooltiptext 属 性 值 从 而 全 部 显 示 鼠 标 所 在 项 的 全 部 内 容。 另 一 种 是 在form 中 另 加 一 个label 控 件， 把 其caption 属 性 设 为false， 利 用list 控 件mousemove 事 件 中 编 程， 当 鼠 标 移 至list 控 件 是 则 把 鼠 标 所 在 列 表 项 的 内 容 赋 给label 控 件 的caption，label 控 件 的visible 属 性 设 为true， 这 样 就 可 通 过label 控 件 来 显 示 鼠 标 所 在 项 的 全 部 内 容， 当 鼠 标 离 开list 控 件 是 再 把 其visible 属 性 设 为false。 这 两 种 方 法 都 必 须 解 决 一 个 问 题， 就 是 当 鼠 标 移 至list 控 件 时 从 鼠 标 点 阵 位 置 算 出 鼠 标 所 在list 控 件 列 表 项 位 置。 好 在Win API 为 我 们 提 供 了 一 个API 函 数SendMessage 可 以 解 决 这 个 问 题， 使 用 时 作 以 下 说 明：

---- Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

---- 函 数 中hwnd 为list 控 件 的hwnd， 而wmsg 为LB_ITEMFORMPOINT,lParam 设 为"x 坐 标+y 坐 标*65535"。

---- 下 面 详 细 介 绍 这 两 种 方 法， 源 程 序 已 在VB5.0 上 调 试 通 过。

---- 方 法 一： 利 用 利 用list 控 件 的tooltiptext 属 性

---- 1、 在Module1 中 作 以 下 说 明 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、 在form1 中 加 入 以 下 代 码：

Const LB_ITEMFROMPOINT = &H1A9
Private Sub Form_Load()
With List1
.AddItem "fdhvgkh;lsbkfgjlkglkmjl,k注释：j;l,注释：;hj"
.AddItem " 恢 复 稻 谷 单 簧 管 列 士 大 夫 国 家 了 发 火 点 "
End With
End Sub

Private Sub List1_MouseMove(Button As Integer,
Shift As Integer, X As Single, Y As Single)
Dim lcx As Long
Dim lcy As Long
Dim lci As Long
If Button = 0 Then 注释： 若 不 按 下 鼠 标 键
lcx = CLng(X / Screen.TwipsPerPixelX)
lcy = CLng(Y / Screen.TwipsPerPixelY)
注释： 获 得 当 前 鼠 标 位 置
With List1
lci = SendMessage(.hwnd, LB_ITEMFROMPOINT,
0, ByVal ((lcy * 65536) + lcx))
注释： 计 算 鼠 标 所 在 列 表 项
If (lci >= 0) And (lci < = .ListCount) Then
ToolTipText = .List(lci)
Else
.ToolTipText = ""
End If
End With
End If
注释：MsgBox CStr(lci)
End Sub

---- 这 种 方 法 利 用list 控 件 本 身 的tooltiptext 属 性 直 接、 简 便。 但 是， 显 示 时 位 置 总 是 和 鼠 标 所 在 的 列 表 项 错 一 行。 方 法2 可 以 解 决 这 个 问 题。

---- 方 法2： 利 用label 控 件

---- 1、 在form1 中 加 入label 控 件label1，autosize 属 性 设 为true, 其visible 属 性 设 为false， 字 体 属 性 设 为 和list1 字 体 属 性 相 同。

---- 2、 写 入 下 列 代 码

Const LB_ITEMFROMPOINT = &H1A9

Private Sub Form_Load()
With List1
.AddItem "fdhvgkh;lsbkfgjlkglkmjl,k注释：j;l,注释：;hj"
.AddItem " 恢 复 稻 谷 单 簧 管 列 士 大 夫 国 家 了 发 火 点 "
End With
End Sub

Private Sub Form_MouseMove(Button As
Integer, Shift As Integer, X As Single, Y As Single)
Label1.Visible = False
End Sub

Private Sub List1_MouseMove(Button As
Integer, Shift As Integer, X As Single, Y As Single)
Dim lcx As Long
Dim lcy As Long
Dim lci As Long
If Button = 0 Then 注释： 若 不 按 下 鼠 标 键
lcx = CLng(X / Screen.TwipsPerPixelX)
lcy = CLng(Y / Screen.TwipsPerPixelY)
注释： 获 得 当 前 鼠 标 位 置
With List1
lci = SendMessage(.hwnd, LB_ITEMFROMPOINT,
0, ByVal ((ly * 65536) + lx))
If (lci >= 0) And (lci < = .ListCount) Then
Label1.Left = List1.Left
Label1.Top = List1.Top + lci * (List1.Height / 3) 注释： Y
Label1.Caption = List1.List(lci)
Label1.Visible = True
Else
.ToolTipText = ""
End If
End With
End If
注释：MsgBox CStr(lci)
End Sub

文章来源于领测软件测试网 https://www.ltesting.net/