VB中讓listview自動調整列寬

  For i = 0 To m_lvw.ColumnHeaders.Count<br /> SendMessage m_lvw.hWnd, LVM_SETCOLUMNWIDTH, i, LVSCW_AUTOSIZE_USEHEADER<br /> Next i

 

在標準模組裡要寫如下聲明和常量：

'API聲明<br />Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long</p><p>Public Const LVM_SETCOLUMNWIDTH = &H1000 + 30<br />Public Const LVSCW_AUTOSIZE_USEHEADER = -2

另外，C++中十六進位用0x打頭，VB中使用&H打頭。