반응형

* VBNET Listview Column Auto Size (컬럼 사이즈 자동) 예제...

 

-사용한 컨트롤:  Listview 1개

 

전체 소스 코드

Form1.vb

 

Public Class Form1

    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)

        '예제 데이터 삽입...
        For i As Integer = 0 To 9

            Dim lvi As ListViewItem = New ListViewItem()
            lvi.Text = (i + 1).ToString()
            lvi.SubItems.Add("TEST " + (i + 1).ToString())

            listView1.Items.Add(lvi)

        Next

        ''리스트 뷰 컬럼 Auto Size
        ''리스트 뷰 컬럼 얻어오기...
        'listView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
        'Dim cc As ListView.ColumnHeaderCollection = listView1.Columns

        'For j As Integer = 0 To cc.Count - 1
        '    Dim iColWidth As Integer = TextRenderer.MeasureText(cc(j).Text, listView1.Font).Width + 10

        '    '대입
        '    If iColWidth > cc(j).Width Then
        '        cc(j).Width = iColWidth
        '    End If

        'Next


    End Sub

End Class

 

 

- 컬럼 사이즈 자동 조절

결과 =>

 

- 컬럼 사이즈 자동 조절 X

결과 =>

 




 

반응형

+ Recent posts