COLUMN HEADER
Na propriedade do listview colunm headers não estou conseguindo fixar as colunas de modo que o usuÃÂário não mexa em tempo de execução. Como fazer?
Grato,
Tiago.
Grato,
Tiago.
Faça o seguinte coloque um timer e defina um tempo de 100 para ele e coloque o código abaixo
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const LVM_FIRST = &H1000
Private Const LVM_SETCOLUMNWIDTH = (LVM_FIRST + 30)
Private Const LVSCW_AUTOSIZE = -1
Private Const LVSCW_AUTOSIZE_USEHEADER = -2
Private Sub Timer1_Timer()
Dim Column As Long
Dim Counter As Long
For Column = 0 To ListView1.ColumnHeaders.Count - 2
SendMessage ListView1.hWnd, LVM_SETCOLUMNWIDTH, Column, LVSCW_AUTOSIZE_USEHEADER
Next
End Sub
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const LVM_FIRST = &H1000
Private Const LVM_SETCOLUMNWIDTH = (LVM_FIRST + 30)
Private Const LVSCW_AUTOSIZE = -1
Private Const LVSCW_AUTOSIZE_USEHEADER = -2
Private Sub Timer1_Timer()
Dim Column As Long
Dim Counter As Long
For Column = 0 To ListView1.ColumnHeaders.Count - 2
SendMessage ListView1.hWnd, LVM_SETCOLUMNWIDTH, Column, LVSCW_AUTOSIZE_USEHEADER
Next
End Sub
Tópico encerrado , respostas não são mais permitidas