vb.net通讯录代码 vba通讯

VB.NET用ListView控件制作通讯录的相关问题

在工程里面建立一个VS自带的本地数据库vb.net通讯录代码，用数据库来操作要方便得多vb.net通讯录代码，追求性能的话vb.net通讯录代码，图片单独创建一个图片目录来存放，数据库里面存入图片链接，如果图片需要保密，那就直接放到数据库。

用Excel操作也是可以的，引用Microsoft.Office.Tools.Excel，然后在VB.NET里面对Exce进行修改，图片的话，创建一个图片目录，Excel存入图片名称，在代码里面对目录下的名称进行匹配，读取到ListView，vb.net通讯录代码我电脑上没装Excel没法给vb.net通讯录代码你写相关Excel的代码示例！

相关问答

Q1: 用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环境下调试通过。

Q2: 解释VB通讯录代码

Option Explicit '必须声明变量

Dim fileName As String

Private Sub Command1_Click()

'将文本框中的信息添加到列表框中

Dim i As Integer

With ListView1.ListItems.Add() '在listView控件中添加TEXT1（0）中的信息 ，类似于根目录

.Text = Text1(0)

For i = 1 To 4 '再在listView控件中添加text1(i)四个子项，类似于根目录下的子目录

.SubItems(i) = Text1(i)

Next i

End With

End Sub

Private Sub Command2_Click()

'删除列表框中信息

If ListView1.ListItems.Count 0 Then '如果listView控件中有信息，则删除

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" 'data.txt文件的路径名

If Dir(fileName) "" Then '如果路径名不为空

'加载数据

Open fileName For Input As #1 ‘打开data.txt文件并输入

Do While Not EOF(1) '如果文件不为空时循环

With ListView1.ListItems.Add() '在listView控件中添加信息

For i = 0 To 4

Line Input #1, tpStr '把文件中的一行信息放到TPSTR中

If i = 0 Then '当I=0时在listView控件中添加信息 ，类似于根目录

.Text = tpStr

Else

.SubItems(i) = tpStr ‘在listView控件中添加四个子项，类似于根目录下的子目录

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

Q3: 我想用VB.NET 2005来编一个简单的通讯录软件,向高手请教之

先构造一个类，属性有姓名性别之类。还是要用数据库，不是要存在文本文件里吧。VB 有类的模板，但是内容还是你自己做吧……才 10 分啊

Q4: VB做通讯录！急

Option Explicit

Private Type tongxunlu

MunName As String

tel As String

danwei As String

dizhi As String

End Type

Dim a(9) As tongxunlu

Dim n As Integer

Dim x As Integer

Private Sub Chkdanwei_Click()

If Chkdanwei.Value = 1 Then

Txtdanwei.Text = a(x).danwei

Else

Txtdanwei.Text = ""

End If

End Sub

Private Sub Chkdizhi_Click()

If Chkdizhi.Value = 1 Then

Txtdizhi.Text = a(x).dizhi

Else

Txtdizhi.Text = ""

End If

End Sub

Private Sub ComboName_Click()

x = ComboName.ListIndex

TxtTel.Text = a(x).tel

End Sub

Private Sub Form_Load()

a(0).MunName = "陈高阳": a(0).tel = "131415926001": a(0).danwei = "电气系": a(0).dizhi = "九栋001"

a(1).MunName = "赵世杰": a(1).tel = "131415926002": a(1).danwei = "自动化": a(1).dizhi = "九栋002"

a(2).MunName = "李民维": a(2).tel = "131415926003": a(2).danwei = "无机非": a(2).dizhi = "九栋003"

a(3).MunName = "马英丽": a(3).tel = "131415926004": a(3).danwei = "冶金": a(3).dizhi = "九栋004"

a(4).MunName = "杨广民": a(4).tel = "131415926005": a(4).danwei = "金融": a(4).dizhi = "九栋005"

For n = 0 To 9

ComboName.AddItem a(n).MunName

Next n

ComboName.ListIndex = 0

End Sub

Q5: 设计一个“通讯录”程序vb

首先 在窗体上添加控件 组合框控件命名为：ComboName

显示单位控件：Chkdanwei

显示地址控件：Chkdizhi

电话文本框：TxtTel

单位文本框：Txtdanwei

地址文本框：Txtdizhi

添加人员按钮：默认

然后直接复制下面的代码就OK了

Option Explicit

Private Type tongxunlu

MunName As String

tel As String

danwei As String

dizhi As String

End Type

Dim a(100) As tongxunlu

Dim n As Integer

Dim x As Integer

Private Sub Chkdanwei_Click()

If Chkdanwei.Value = 1 Then

Txtdanwei.Text = a(x).danwei

Else

Txtdanwei.Text = ""

End If

End Sub

Private Sub Chkdizhi_Click()

If Chkdizhi.Value = 1 Then

Txtdizhi.Text = a(x).dizhi

Else

Txtdizhi.Text = ""

End If

End Sub

Private Sub ComboName_Click()

x = ComboName.ListIndex

TxtTel.Text = a(x).tel

End Sub

Private Sub Command1_Click()

a(n).MunName = InputBox("请输入姓名")

a(n).tel = InputBox("请输入电话号码")

a(n).danwei = InputBox("请输入工作单位")

a(n).dizhi = InputBox("请输入家庭地址")

If a(n).MunName = "" Or a(n).tel = "" Or a(n).danwei = "" Or a(n).dizhi = "" Then GoTo 99

ComboName.AddItem a(n).MunName

ComboName.ListIndex = n

n = n + 1

99 End Sub

Private Sub Form_Load()

n = 0

End Sub

关于vb.net通讯录代码和vba通讯的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。