嘿嘿,不行的嘛,我这么写能行。。 For k = 1 To Form1.信息表.Cols - 2 Form1.信息表.ColWidth(k) = 600 Next kFor j = 1 To Form1.信息表.Cols - 2 ' Form1.信息表.Col = j With ListView1.ListItems.Add(, , "") .SubItems(1) = Form1.信息表.TextMatrix(0, j) .SubItems(2) = Form1.信息表.ColWidth(j) End With Next j 可以获得值,问题是当我调整列宽后,还是那个值。。
msgbox MSFlexGrid1.CellWidth
嘿嘿,不行的嘛,我这么写能行。。
For k = 1 To Form1.信息表.Cols - 2
Form1.信息表.ColWidth(k) = 600
Next kFor j = 1 To Form1.信息表.Cols - 2
' Form1.信息表.Col = j
With ListView1.ListItems.Add(, , "")
.SubItems(1) = Form1.信息表.TextMatrix(0, j)
.SubItems(2) = Form1.信息表.ColWidth(j)
End With
Next j
可以获得值,问题是当我调整列宽后,还是那个值。。