リストボックスを両方向にスクロールするには？ (ID:108639)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 適当ですけど、こんな感じかな。 'APIと定数の宣言 Private Declare Function SendMessage _ Lib "user32.dll" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, lParam As Any) _ As Long Private Const LB_SETHORIZONTALEXTENT As Long = &H194& '横スクロールバーを追加 With List1 For lCnt = 0 To .ListCount - 1 lBuff = Me.TextWidth(.List(lCnt)) 'フォームのフォント設定と違う場合は注意！ If lBuff > lWidth Then lWidth = lBuff End If Next lWidth = lWidth / Screen.TwipsPerPixelX + 5 '適当に余白を持たせます。 Call SendMessage(.hwnd, LB_SETHORIZONTALEXTENT, lWidth, ByVal 0&) End With