关于listview的小问题

Question

代码如下：
 frmliststoreinfo 为子窗口
 lvwstoreinfo 为listView控件Private Sub Form_Load()
    With frmListStoreinfo
        lvwStoreinfo.Left = .Left
        lvwStoreinfo.Top = .Top
        lvwStoreinfo.Width = .Width
        lvwStoreinfo.Height = .Height
    End With
End SubPrivate Sub Form_Resize()
    
    With frmListStoreinfo
        lvwStoreinfo.Left = .Left
        lvwStoreinfo.Top = .Top
        lvwStoreinfo.Width = .Width
        lvwStoreinfo.Height = .Height
    End With
    
End Sub在form大小变化的时候，有时lvwstoreinfo可以和frmliststoreinfo窗体一样大小，
但有时就不同了，左上角的位置会比frmliststoreinfo窗体的要偏听偏右偏下
请样要总样改下才可以，多谢赐教~！

Answer 1

Private Sub Form_Load()
    With frmListStoreinfo
        lvwStoreinfo.Left = .Left
        lvwStoreinfo.Top = .Top
        lvwStoreinfo.Width = .Width
        lvwStoreinfo.Height = .Height
    End With
End SubPrivate Sub Form_Resize()
    
    With frmListStoreinfo
        lvwStoreinfo.Left = 0
        lvwStoreinfo.Top = 0
        lvwStoreinfo.Width = .Width
        lvwStoreinfo.Height = .Height
    End With    
End Sub
Ok啦！ 

Answer 2

use move is better then 
    With frmListStoreinfo
        lvwStoreinfo.Left = 0
        lvwStoreinfo.Top = 0
        lvwStoreinfo.Width = .Width
        lvwStoreinfo.Height = .Height
    End With

Answer 3

怎么move ?
还有，在form_load() 加入如下代码：
    With lvwStoreinfo
        .ColumnHeaders.Add 1, , "品牌型号"
        .ColumnHeaders.Add 2, , "是否全新"
        .ColumnHeaders.Add 3, , "进货单价"
        .ColumnHeaders.Add 4, , "进货数量"
        .ColumnHeaders.Add 5, , "金额"
        .ColumnHeaders.Add 6, , "进货日期"
        .ColumnHeaders.Add 7, , "供应商"
        .ColumnHeaders.Add 8, , "经手人"
        .ColumnHeaders.Add 9, , "备注"
    End With
怎么lvwstoreinfo控件上没有反应，调哪个地方！！

Answer 4

谢楼上，知道move 啦，还一个第二个问题没有找到资料！~！~

Answer 5

Private Sub Form_Load()
    Dim li As ListItem
    With lvwStoreinfo
        .ColumnHeaders.Add 1, , "品牌型号"
        .ColumnHeaders.Add 2, , "是否全新"
        .ColumnHeaders.Add 3, , "进货单价"
        .ColumnHeaders.Add 4, , "进货数量"
        .ColumnHeaders.Add 5, , "金额"
        .ColumnHeaders.Add 6, , "进货日期"
        .ColumnHeaders.Add 7, , "供应商"
        .ColumnHeaders.Add 8, , "经手人"
        .ColumnHeaders.Add 9, , "备注"
        Set li = .ListItems.Add(, , "品牌型号")
        li.ListSubItems.Add , , "AFX20031001"
        li.ListSubItems.Add , , "否"
        li.ListSubItems.Add , , "￥301.10"
        li.ListSubItems.Add , , "100"
        li.ListSubItems.Add , , "￥30110"
        li.ListSubItems.Add , , "2003/05/05"
        Set li = .ListItems.Add(, , "品牌型号")
        li.ListSubItems.Add , , "AFX20031002"
        li.ListSubItems.Add , , "是"
        li.ListSubItems.Add , , "￥201.10"
        li.ListSubItems.Add , , "90"
        li.ListSubItems.Add , , "￥18099"
        li.ListSubItems.Add , , "2003/04/05"
        .View = lvwReport
    End With
End Sub