VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何为 ListBox 设定水平卷动轴?
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9383, 日期:2001-09-16
 如何为 ListBox 设定水平卷动轴?


作者: 王国荣 

  VB 的 ListBox 并没有水平卷动轴的功能,如果遇到某一个资料项很长时, 使用者就无
法看到这一个资料项的所有内容,问如何设定水平卷动轴给 ListBox?


可利用 SendMessage 传送 LB_SETHORIZONTALEXTENT 讯息给 ListBox,此一讯息的作用
就是要求ListBox 设定水平卷动轴, 细节如下:

1. API 的宣告:

    Const LB_SETHORIZONTALEXTENT = &H194
    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

2. 程式范例:
   注释: List1 为 ListBox 的名称
   Call SendMessage(List1.hwnd, LB_SETHORIZONTALEXTENT, _
        水平卷动轴的宽度, ByVal 0&)

特别注意:以上的水平卷动轴宽度的单位是 pixel(像素)。