快捷搜索:

实用技术之用VB做通讯录

假如你日常平凡有许多同砚和同伙的信息,试试在电脑上编写一个我这样的通讯录。很方便的哟。

先新建一个工程,在“对象箱->右键->部件”添加“Microsoft windows common contr ol 6.0”,然后在窗体上添加五个标签,“标题”分手为 “姓名、电话、Oicq、E-Mail、地址”;

添加一个文本框(text1), 然后[复制/粘贴4次]使其成为控件数组;

添加一个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

'加载数据

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

'保存数据

Open fileName For Output As #1

For Each tpList In ListView1.ListItems

Print #1, tpList.Text

For i = 1 To 4

Print #1, tpList.SubItems(i)

Next i

Next tpList

Close #1

End Sub

本法度榜样已在windows98+VB6.0情况下调试经由过程。

您可能还会对下面的文章感兴趣: