在ListBox適儅設定水平滾動條的寬度

option Explicit
Private Const LB _ sethorizontal extent = & H194
Private Declare Function SendMessage Lib" user 32"別名" SendMessageA" (ByVal hwnd爲Long、ByVal wMsg爲Long、ByVal wParam爲Long、lParam爲Any)爲Long

private Sub command 1 _ Click()
Dim max As Long，f As Font，i As Integer

我。scale mode = VB pixels
Set f = Me。Font
Set Me。Font = List1。字躰

用List1
For i = 0來表示。如果是我的話。文本寬度(。List(i)) > max Then
max = Me。文本寬度(。list(I))
End If
Next
End With
max = max 10

設置我。Font = f

SendMessage List1.hwnd，LB_SETHORIZONTALEXTENT，max，ByVal 0&
End Sub

private form _ load()
list 1 . additem" VB編程天堂"
list 1 . additem" http://www . VB Eden . com"
list 1 . additem"這是一個特別長的選項，比ListBox的作用域還要長"[/]

位律師廻複