我的 ListView 没有滚动条，怎么办？

Question

listview的FlatScrollBar=false 试试

Answer 1

LIST的内容改变时加入一句：SendMessage List1.hWnd, LB_SETHORIZONTALEXTENT, 1.02 * MaxlongStr(Me, List1), ByVal 0&再加一个函数：
Private Function MaxlongStr(Frm As Object, Listbox As Object) As Integer
    Dim Templen As Integer
    For i = 0 To Listbox.ListCount - 1
        If Templen < Frm.TextWidth(Listbox.List(i)) Then
            Templen = Frm.TextWidth(Listbox.List(i))
        End If
    Next i
    MaxlongStr = Templen
End Function

Answer 2

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long忘了，SendMessage要事先申明，上面这个是在模块里申明。还有一句加在开头
Const LB_SETHORIZONTALEXTENT = &H194

Answer 3

listview的FlatScrollBar=false 之后滚动条出来了。但是第一次显示还是没有滚动条，我拉动改变了 listview 的列宽后滚动条才出来，这是怎么一回事？

Answer 4

ListView1.Refresh 刷新一次试试！！！！！！