十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
先构造一个类,属性有姓名性别之类。还是要用数据库,不是要存在文本文件里吧。VB 有类的模板,但是内容还是你自己做吧……才 10 分啊
专注于为中小企业提供成都网站建设、网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业巴彦淖尔免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上千家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
你别侮辱了程式员。
如果你是想学习,我很愿意教你,如果你是所谓的兴趣而已,那么就更应该靠自己。
以上你所说的东西,很容易写,但是从我开始学的时候,你知道我花了多少时间才完成吗?
你不把问题发出来,一个语句一个小问题,那需要多少的实践?
鄙视你。
用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环境下调试通过。
在工程里面建立一个VS自带的本地数据库,用数据库来操作要方便得多,追求性能的话,图片单独创建一个图片目录来存放,数据库里面存入图片链接,如果图片需要保密,那就直接放到数据库。
用Excel操作也是可以的,引用Microsoft.Office.Tools.Excel,然后在VB.NET里面对Exce进行修改,图片的话,创建一个图片目录,Excel存入图片名称,在代码里面对目录下的名称进行匹配,读取到ListView,我电脑上没装Excel没法给你写相关Excel的代码示例!