投稿日 | : 2004/06/15(Tue) 22:47 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: ColumnHeaders.Widthの自動変更 |
サンプルを作成している間に先に回答があったようですが、せっかく作ったので
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 Const LVM_SETCOLUMNWIDTH = &H1000 + 30
Private Const LVSCW_AUTOSIZE_USEHEADER = -2
Private Sub Command1_Click()
Dim col As Long
With ListView1
For col = 0 To .ColumnHeaders.Count - 1
Sendmessage .hwnd, LVM_SETCOLUMNWIDTH, col, ByVal LVSCW_AUTOSIZE_USEHEADER
Next col
End With
End Sub