Question

VB 如何取消 lisTBOX垂直滚动条

Answer 1

虽然可以用API函数强制取消ListBox的垂直滚动条，但效果惨不忍睹，而且一旦你用键盘向下选择范围外的其它选项时，垂直滚动条又会自动出现，所以不建议你用。
如果你是担心垂直滚动条出现后有些字看不见，那么可以强制增加水平滚动条来解决：

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 Sub Form_Load()
SendMessage List1.hwnd, &H194, List1.Width \ Screen.TwipsPerPixelX - 4, 0&
End Sub

不过，你的程序出现这样的问题，说明你的程序界面设计有缺陷，现在早已不流行把多个设置项目放到同一界面上让用户眼花缭乱无所适从的界面设计方法了，而是把多个项目分解开来，然后让用户只需不断点击“下一步”的方法。希望这个对你有帮助。

Answer 2

这个是自动的，你可以根据内容多少控制其高度，足够高的话就没滚动条了。

追问

内容太多了

追答

为啥要去掉呢？

追问

我窗口太小，LISTBOX不够地方放，滚动条一出来，有些字就看不见了。如何不让它显示滚动条。

追答

Private Declare Function ShowScrollBar Lib "user32 " (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Const SB_BOTH = 3

Private Sub Form_Load()
For i = 0 To 100
List1.AddItem i
Next i
ShowScrollBar List1.hwnd, SB_BOTH, False
End Sub

Private Sub List1_KeyUp(KeyCode As Integer, Shift As Integer)
ShowScrollBar List1.hwnd, SB_BOTH, False
End Sub

Answer 3

选择中lisTBOX垂直滚动条，再按Delete