正文
vbnet通讯录,vb telnet
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
用VB做通讯录？有查询，添加，删除功能的！
用VB做通讯录 2007-07-10 00:41
分类：软件编程 字号： 大大 中中 小小 如果你平时有许多同学和朋友的信息，试试在电脑上编写一个我这样的通讯录。很方便的哟。 先新建一个工程，在“工具箱-右键-部件”添加“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环境下调试通过。
相关问答
Q1: 我想用VB.NET+sql做一个带登陆窗体的通讯录程序
你别侮辱了程式员。
如果你是想学习，我很愿意教你，如果你是所谓的兴趣而已，那么就更应该靠自己。
以上你所说的东西，很容易写，但是从我开始学的时候，你知道我花了多少时间才完成吗？
你不把问题发出来，一个语句一个小问题，那需要多少的实践？
鄙视你。
Q2: 我想用VB.NET 2005 编一个通讯录软件,请教几个问题
你可以定义一个数组，其中每一个元素都是一个结构，在每一个结构中存放每一个人的姓名、年龄等信息。这需要用到类。
创建类，然后定义结构中包含的所有数据，然后在程序中创建数组，定义每一个数组的元素都是一个这样的类，并且在定义后使用New子句将其实力化.关于类,你可以参考你的学习用书,定义应该不成问题,关键看这种思路吧.
例如定义类,内容:
Public Class VarClass
Public Class Student
Public Name As String
Public NamePass As String
Public Number As UInt16
Public Dis, Stu As New Collection
Public ToDis, ToStu As Decimal
End Class
End Class
然后在程序代码中:Public People(10) As Object
注意一定要先定义Object,因为数组无法使用New子句
然后实例化:
For a = 0 To (My.Forms.Form1.StuNum - 1)
People(a) = New VarClass.Student
Next
定义完成!
For a=0 to 10 do
If People(a).Name=Name(选中的名字) then
textbox1.text=People(a).Age
exit for
End if
然后根据ListBox中选中项的Text,使用For.Each(在数量无法确定的情况下)或者For.do语句,遍历数组中每个元素,即结构中的姓名域,如果找到,就把该结构中的其它几项内容分别赋给TextBox的Text,并且用Exit For跳出For语句.
成功!
Q3: VB.NET 制作一个带登录窗口的通讯录小程序
你是在问怎么做还是找人帮你做？
那你的窗体和控件什么的都创建好了吗？数据库有建立好吗？你的这个是一个完整功能的程序而不是一个功能模块。这需要很多代码的，在百度知道里我想是没法回答你，除非你把你会做的都做了比如创建好窗体和里边的控件，建立好数据库。如果登录窗体的验证密码功能你不会我可以帮助你写代码。这个样子的问题才能回答，你现在要问整个程序怎么做.....
如果你一点也不会的话，我建议你先从一些基本的VB.NET知识开始学起，不要一开始就做一个这么多功能的程序。
Q4: 我用vb做了一个通讯录，希望能实现显示每个人的在照片，请问该怎么做
有几种解决方案，一是存放在文件里面，一是存到数据库中二进制字段里面。
方案1：
为你的每一个人设置一个唯一ID，在保存文件的时候将这个文件拷贝到你程序的目录里面，并为这个ID为文件重命名。这个路径是你设置的，那么你也能在程序中需要显示他照片的地方loadpictrue，重新显示。
方案2：
假设你的每个人的信息都是存在一个数据库文件的某条记录里面，该条记录有一个二进制类型字段专门存放二进制数据。将你需要保存的图片文件用二进制方式读到输组，然后用RS().Appendchunk()函数添加到这个二进制类型的字段里面，需要调用时用getChunk函数，读取到数组后写成一个临时文件，然后loadpictrue。
