サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2011/03/23 10:27
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[リストビュー][][] *
* キーワード：ヘッダーの幅,列幅,ColumnHeaders.Width,自動変更, *
***********************************************************************************
タイトル ： リストビュー列幅自動設定
記事No ： 14910
投稿日 ： 2010/09/08(Wed) 11:20
投稿者 ： ヨシ
リストビューの列幅をフォーム表示時、自動的に設定したいと考えています。
列幅は、該当の列で一番長い文字列のセルの長さを取得して設定したいです。
-----------------------------------------------------------------------------------
記事No ： 9295
投稿日 ： 2004/06/15(Tue) 22:47
回答者 ： 花ちゃん
-----------------------------------------------------------------------------------
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_FIRST = &H1000&
Private Const LVM_SETCOLUMNWIDTH = (LVM_FIRST + 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
 |
