VB中讓listview自動調整列寬

For i = 0 To m_lvw.ColumnHeaders.Count
        SendMessage m_lvw.hWnd,LVM_SETCOLUMNWIDTH,i,LVSCW_AUTOSIZE_USEHEADER
    Next i

 

在標准模塊里要寫如下聲明和常量：

    'API聲明
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long,ByVal wMsg As Long,ByVal wParam As Long,lParam As Any) As Long

Public Const LVM_SETCOLUMNWIDTH = &H1000 + 30
Public Const LVSCW_AUTOSIZE_USEHEADER = -2