有关ListView的小问题

Question

2.
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const WS_THICKFRAME = &H40000Private Const GWL_STYLE = (-16)Private Sub Form_Load()
    Dim TempLng As Long
    
    TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
    TempLng = TempLng And Not WS_THICKFRAME
    SetWindowLong Me.hwnd, GWL_STYLE, TempLng
    
End Sub

Answer 1

zyl910,搞那么复杂好吗，Form.BorderStyle 属性不是很好用吗。

Answer 2

LISTVIEW里都有相应的属性，仔细找找。