Auto-adjust Column Width of a Listview Control in VB6

<div> The following function auto adjusts column width of listview controls in vb6. Just copy and paste the code below on your project and call the function after loading data on your listview control.</div> <br /> <blockquote class="tr_bq"> 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 <br /> <br /> Private Sub AutosizeColumns(ByVal TargetListView As ListView)<br /> Const SET_COLUMN_WIDTH As Long = 4126<br /> Const AUTOSIZE_USEHEADER As Long = -2<br /> Dim lngColumn As Long <br /> <br /> For lngColumn = 0 To (TargetListView.ColumnHeaders.Count - 1)<br /> Call SendMessage(TargetListView.hwnd, SET_COLUMN_WIDTH, lngColumn, ByVal AUTOSIZE_USEHEADER)<br /> <br /> Next lngColumn <br /> End Sub</blockquote>

auto adjust column listview control visual basic Auto-adjust Column Width of a Listview Control in VB6

The following function auto adjusts column width of listview controls in vb6. Just copy and paste the code below on your project and call t...

Read more »