vb listview СÎÊÌâ

    CommonDialog1.Filter = "(*.txt)|*.txt"
    CommonDialog1.DialogTitle = "ä¯ÀÀ"
    CommonDialog1.ShowSave
    Dim itmx        As ListItem
    Dim i As Integer
    i = 1
    Open CommonDialog1.FileName For Input As #1
    Do While Not EOF(1)
    Line Input #1, temp
    Set itmx = Liv_Sound.ListItems.Add()
    itmx.Text = temp
    Loop
    Close #1


    ´ò¿ªÒ»¸öTXTÎļþ°´ÐжÁµ½listviewÖУ¬ÔõôlistviewµÚÒ»ÐÐ×ÜÊǿյġ£Ôõô½â¾öÄØ¡£

---

if trim(temp) <> "" then
Set itmx = Liv_Sound.ListItems.Add()
    itmx.Text = temp
endif