Dim i As Integer

With ListView1.ListItems.Add()

.Text = Text1(0)

For i = 1 To 4

.SubItems(i) = Text1(i)

Next i

End With

End Sub



Private Sub Command2_Click()

’删除列表框中信息

If ListView1.ListItems.Count > 0 Then

If MsgBox("真的要删除吗？", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then

ListView1.ListItems.Remove ListView1.SelectedItem.Index

End If

End If

End Sub



Private Sub Form_Load()

Dim tpStr As String, i As Integer

fileName = App.Path & "＼data.txt"

If Dir(fileName) <> "" Then

’加载数据

Open fileName For Input As #1

Do While Not EOF(1)

With ListView1.ListItems.Add()

For i = 0 To 4

Line Input #1, tpStr

If i = 0 Then

.Text = tpStr

Else

.SubItems(i) = tpStr

End If

Next i

End With

Loop

Close #1

End If

End Sub



Private Sub Form_Unload(Cancel As Integer)

Dim i As Integer

Dim tpList As ListItem

’保存数据-Dim i As Integer

　 With ListView1.ListItems.Add()

　　.Text = Text1(0)

　　For i = 1 To 4

　　.SubItems(i) = Text1(i)

　 Next i

　 End With

　End Sub



　Private Sub Command2_Click()

　’删除列表框中信息

　If ListView1.ListItems.Count > 0 Then

　 If MsgBox("真的要删除吗？", vbQuestion+ vbYesNo+ vbDefaultButton2) = vbYes Then

　 ListView1.ListItems.Remove ListView1.SelectedItem.Index

　 End If

　End If

　End Sub



　Private Sub Form_Load()

　Dim tpStr As String, i As Integer

　fileName = App.Path & "＼data.txt"

If Dir(fileName) <> "" Then

　 ’加载数据

　 Open fileName For Input As#1

　　Do While Not EOF(1)

　　 With ListView1.ListItems.Add()

　　　For i = 0 To 4

　　　 Line Input#1, tpStr

　　　 If i = 0 Then

　　　　.Text = tpStr

　　　 Else

　　　　.SubItems(i) = tpStr

　　　 End If

　　　Next i

　　 End With

　　Loop

　 Close#1

　End If

　End Sub



　Private Sub Form_Unload(Cancel As Integer)

　Dim i As Integer

　Dim tpList As ListItem

　’保存数据