Hi All,

I'm trying to override the wndproc to resize the last column of my
listview.
The code however doesn't do anything.
What am I doing wrong?

Public Class LvSort
    Inherits System.Windows.Forms.ListView

    Protected Overrides Sub WndProc(ByRef m As Message)
        MyBase.WndProc(m)
        If m.Msg = WM_PAINT Then
            Explorer1.ListView.Columns
(Explorer1.ListView.Columns.Count - 1).Width = -2
        End If
    End Sub

End Class

Regards
Marco
The Netherlands

A better way to do this would be to just handle the SizeChanged event of the
ListView. There's no need to override WndProc to do it, and even if you
chose to do so the WM_PAINT message is definitely the wrong message.

Tom Dacon
Dacon Software Consulting

Show quoteHide quote

Show quote Hide quote Tom,

could you show me an example of this method?

Marco

Show quote Hide quote Tom,

could you show me an example of this method?

Marco


Marco, this is right out of one of my own applications. It's a two-column
ListView, where the first column starts out at a default width but might get
dynamically resized by the user, and the second column always takes up the
rest of the space.

        ''' -----------------------------------------------------------------------------
        ''' <summary>
        ''' Resize the last column of a two-column ListView
        ''' so that column two takes up all the rest of the space
        ''' (the first column either keeps its default size or
        '''  may be resized dynamically by the user)
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        ''' <remarks>
        ''' </remarks>
        ''' -----------------------------------------------------------------------------
        Private Sub lvwExplorer_SizeChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) _
            Handles lvwExplorer.SizeChanged

            Dim ctl As ListView = CType(sender, ListView)

            Try
                Dim desiredWidth As Integer =
Math.Max((ctl.ClientSize.Width - ctl.Columns(0).Width - 1), 2)
                If ctl.Columns(1).Width <> desiredWidth Then
                    ctl.Columns(1).Width = desiredWidth
                End If
            Catch
                '   Silently absorb any exception.
            End Try

        End Sub

Tom

Variable String Limit
form top most when ran from sub main
Copy Constructor needed in VB.NET 2.0?
FILE I/O Inheritance? Interface?
Shared Assembly
Text Popup
Creating a list of a class
OT: App respository
Web Site Images
[2008] Collection of DipSwitches