|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:23:21 |
|
|
---- 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 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:23:21 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]