中国教程网论坛 » VB » 用VB做通讯录

IM 发表于 2006-3-22 11:08

用VB做通讯录

如果你平时有许多同学和朋友的信息，试试在电脑上编写一个我这样的通讯录。很方便的哟。 　　先新建一个工程，在“工具箱->右键->部件”添加“Microsoft windows common control 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环境下调试通过。

決戰２oО8 发表于 2006-6-24 11:20

好东东，支持下`只可惜VB自己放下太久了，有点看不懂了`郁闷``呵呵`等再学习下，在研究这东东咯

爱我博爱 发表于 2006-8-31 18:28

等会试试，一定不错~~~~

lily 发表于 2006-11-4 17:49

我也正在努力复习呢，.NET与VB6.0差别蛮大的！！

guanli22003 发表于 2007-6-26 12:51

现在试试,谢谢.(^#@$%^

lcwei1 发表于 2007-7-1 15:38

马上试试！！

sdick 发表于 2007-7-27 13:54

放下太久了，看不懂了#@#$#$

开小面追大奔 发表于 2007-8-1 10:56

在努力学习中呢，谢谢提供！

田里のかかし 发表于 2007-8-9 15:27

很久没碰ＶＢ了，勉强看的懂一点点
能不能再简单点#kt..jcwcn.com@

xiang8001 发表于 2008-6-3 15:13

学习

等会儿就学

x573608485 发表于 2008-6-13 16:36

好东西,只是自己不太懂,真是后悔

cdwin98 发表于 2008-7-15 18:26

太长了啊

老纪 发表于 2008-7-21 17:47

jc:qiang jc:qiang jc:qiang

查看完整版本: 用VB做通讯录