能否给listbox加横向滚动条.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 27 行

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_SETHORIZONTALEXTENT = &H194 
     
    Private Sub Command1_Click() 
     List1.AddItem "Line 1" 
     List1.AddItem "a big Line 2 some text some text" 
     List1.AddItem "Line 3" 
     addHorScrlBarListBox List1 
    End Sub 
     
    Public Sub addHorScrlBarListBox(ByVal refControlListBox As Object) 
     ' 加 横 向 滚 动 条 
     
     Dim nRet As Long 
     Dim nNewWidth As Integer 
     
     nNewWidth = refControlListBox.Width + 100 ' 新 宽 度 ， 以 像 素 为 单 位 。 
     nRet = SendMessage(refControlListBox.hwnd, _ 
     LB_SETHORIZONTALEXTENT, nNewWidth, ByVal 0&) 
    End Sub 
<END>