home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Planet Source Code Jumbo …e CD Visual Basic 1 to 7
/
6_2008-2009.ISO
/
data
/
zips
/
RadioStrea2133471182008.psc
/
Module5.bas
< prev
next >
Wrap
BASIC Source File
|
2008-11-05
|
1KB
|
35 lines
Attribute VB_Name = "modLVWOptimal"
Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Sub optimalWidth(lv As ListView)
Dim t%
On Error Resume Next
For t = 0 To lv.ColumnHeaders.Count - 1
If t = lv.ColumnHeaders.Count - 1 Then
SendMessageLong lv.hWnd, &H101E, t, -2
Else
SendMessageLong lv.hWnd, &H101E, t, -1
End If
Next t
End Sub