如果你平時有許多同學和朋友的信息，試試在電腦上編寫一個我這樣的通訊錄。很方便的喲。 　　先新建一個工程，在“工具箱->右鍵->部件”添加“Microsoft windows common control 6.0”，然后在窗體上添加五個標簽，“標題”分別為 “姓名、電話、Oicq、E-Mail、地址”；添加一個文本框（text1）, 然后[復制/粘貼4次]使其成為控件數(shù)組；添加一個Listview控件(Listview1),在其屬性框中，添加五個“列首”，“文本”值分別為“姓名、電話、Oicq、E-Mail、地址”，“查看屬性”為 “3-lvwReport”, 選中“整行選擇”，取消“隱藏選擇”；添加兩個按鈕，其標題屬性分別為“添加”、“刪除”。添加如下代碼：
    Option Explicit
    Dim fileName As String
    Private Sub Command1_Click()
    '將文本框中的信息添加到列表框中
    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