|
これは便利です。簡単なので関数のみ。
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 '---------------------------------------------------------------------------
' 関数名： SetScrollBar
' 機能 ： リストボックスにスクロールバーを設定する
' 引数 ： (in)hWnd … リストボックスのハンドル
' (in)ScrollWidth … 設定幅
' 返り値： 1…正常終了 0…異常終了
'---------------------------------------------------------------------------
Public Function SetScrollBar(ByVal hWnd As Long, ByVal ScrollWidth As Long)
'第３引数に幅を設定する
SetScrollBar = SendMessage(hWnd, LB_SETHORIZONTALEXTENT, ScrollWidth, ByVal 0&)
End Function
|