如何动态调整listview得column得宽度

Question

如果窗体resize事件发生的话
如何才能让listview得column得宽度随着窗体的变化而变化呢
请教

Answer 1

如果一定要改变窗体的大小，可以在form的OnPaint()事件中设置窗体内控件的top left width height属性来达到控件的相对位置和大小
例：
treeview1.height:=urmainform.clientheight-30;
treeview1.Width:=urmainform.ClientWidth div 4;
listview1.Height:=urmainform.clientheight-30;
listview1.Left:=treeview1.Width+treeview1.Left+1;
listview1.Width:=urmainform.ClientWidth-listview1.Left-10;

Answer 2

例如:
Private Sub Form_Resize()
    With ListView1
        .Icons = ImageList1
        .ListItems.Clear
        .ListItems.Add , , "用户数据卡", 2
        .ListItems.Add , , "系统设置卡", 1
        .ListItems.Add , , "密码授权卡", 3
        .ListItems.Add , , "时钟设置卡", 4
        .ListItems.Add , , "数据采集卡", 5
        .ListItems.Add , , "电池恢复卡", 6
    End With
    With VerticalMenu1
        On Error Resume Next
        .Left = 10
        .Top = 620
        .Width = 1600
        .Height = Me.Height - 1670
    End With
    With SSSplitter1
        .Width = Me.Width - 1750
        .Top = VerticalMenu1.Top
        .Left = VerticalMenu1.Left + VerticalMenu1.Width
        .Height = VerticalMenu1.Height
    End With
End Sub

Answer 3

楼上的走错门了~~~~这里不是delphi哦

Answer 4

有没有别的不用delphi的办法吗

Answer 5

//如何动态调整listview得column得宽度
在程序中，设置ListView1.ColumnHeaders(i).Width的值即可