Question

VB怎样调用打开对话框选择文件，并将选择的txt文件内容导入到ListView控件指定列

想得到如下结果：
1、单击导入按钮，然后调用打开对话框
2、选择需要导入的txt文件，然后将txt内容导入内容listview控件中的第四列
txt文件格式为每行一个网址

Answer 1

添加Command、ListView和CommonDialog：
Private Sub Form_Load()
ListView1.ListItems.Clear '清空列表
ListView1.ColumnHeaders.Clear '清空列表头
ListView1.View = lvwReport '设置列表显示方式
ListView1.GridLines = True '显示网络线
ListView1.LabelEdit = lvwManual '禁止标签编辑
ListView1.FullRowSelect = True '选择整行

ListView1.ColumnHeaders.Add , , "111", 1000
ListView1.ColumnHeaders.Add , , "222", 1000
ListView1.ColumnHeaders.Add , , "333", 1000
ListView1.ColumnHeaders.Add , , "网址", 5000

End Sub

Private Sub Command1_Click()
CommonDialog1.FileName = App.Path
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*|"
CommonDialog1.DialogTitle = " 打开文件" '弹出窗体的标题
CommonDialog1.ShowOpen
Dim i As Integer
i = 1
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, strLine
ListView1.ListItems.Add , , i
ListView1.ListItems(i).SubItems(1) = ""
ListView1.ListItems(i).SubItems(2) = ""
ListView1.ListItems(i).SubItems(3) = strLine
i = i + 1
Loop
Close #1
End Sub