在工程里面建立一個(gè)VS自帶的本地?cái)?shù)據(jù)庫(kù)，用數(shù)據(jù)庫(kù)來(lái)操作要方便得多，追求性能的話，圖片單獨(dú)創(chuàng)建一個(gè)圖片目錄來(lái)存放，數(shù)據(jù)庫(kù)里面存入圖片鏈接，如果圖片需要保密，那就直接放到數(shù)據(jù)庫(kù)。
創(chuàng)新互聯(lián)自2013年創(chuàng)立以來(lái)，先為郯城等服務(wù)建站，郯城等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為郯城企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問(wèn)題。
用Excel操作也是可以的，引用Microsoft.Office.Tools.Excel，然后在VB.NET里面對(duì)Exce進(jìn)行修改，圖片的話，創(chuàng)建一個(gè)圖片目錄，Excel存入圖片名稱，在代碼里面對(duì)目錄下的名稱進(jìn)行匹配，讀取到ListView，我電腦上沒(méi)裝Excel沒(méi)法給你寫相關(guān)Excel的代碼示例！
用VB做通訊錄 2007-07-10 00:41
分類：軟件編程 字號(hào)： 大大 中中 小小 如果你平時(shí)有許多同學(xué)和朋友的信息，試試在電腦上編寫一個(gè)我這樣的通訊錄。很方便的喲。 先新建一個(gè)工程，在“工具箱-右鍵-部件”添加“Microsoft windows common control 6.0”，然后在窗體上添加五個(gè)標(biāo)簽，“標(biāo)題”分別為 “姓名、電話、Oicq、E-Mail、地址”；添加一個(gè)文本框（text1）, 然后[復(fù)制/粘貼4次]使其成為控件數(shù)組；添加一個(gè)Listview控件(Listview1),在其屬性框中，添加五個(gè)“列首”，“文本”值分別為“姓名、電話、Oicq、E-Mail、地址”，“查看屬性”為 “3-lvwReport”, 選中“整行選擇”，取消“隱藏選擇”；添加兩個(gè)按鈕，其標(biāo)題屬性分別為“添加”、“刪除”。添加如下代碼：
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("真的要?jiǎng)h除嗎？", 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
'加載數(shù)據(jù)
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
'保存數(shù)據(jù)
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環(huán)境下調(diào)試通過(guò)。
首先 在窗體上添加控件 組合框控件命名為：ComboName
顯示單位控件：Chkdanwei
顯示地址控件：Chkdizhi
電話文本框：TxtTel
單位文本框：Txtdanwei
地址文本框：Txtdizhi
添加人員按鈕：默認(rèn)
然后直接復(fù)制下面的代碼就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("請(qǐng)輸入姓名")
a(n).tel = InputBox("請(qǐng)輸入電話號(hào)碼")
a(n).danwei = InputBox("請(qǐng)輸入工作單位")
a(n).dizhi = InputBox("請(qǐng)輸入家庭地址")
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
你可以定義一個(gè)數(shù)組，其中每一個(gè)元素都是一個(gè)結(jié)構(gòu)，在每一個(gè)結(jié)構(gòu)中存放每一個(gè)人的姓名、年齡等信息。這需要用到類。
創(chuàng)建類，然后定義結(jié)構(gòu)中包含的所有數(shù)據(jù)，然后在程序中創(chuàng)建數(shù)組，定義每一個(gè)數(shù)組的元素都是一個(gè)這樣的類，并且在定義后使用New子句將其實(shí)力化.關(guān)于類,你可以參考你的學(xué)習(xí)用書(shū),定義應(yīng)該不成問(wèn)題,關(guān)鍵看這種思路吧.
例如定義類,內(nèi)容:
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,因?yàn)閿?shù)組無(wú)法使用New子句
然后實(shí)例化:
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
然后根據(jù)ListBox中選中項(xiàng)的Text,使用For.Each(在數(shù)量無(wú)法確定的情況下)或者For.do語(yǔ)句,遍歷數(shù)組中每個(gè)元素,即結(jié)構(gòu)中的姓名域,如果找到,就把該結(jié)構(gòu)中的其它幾項(xiàng)內(nèi)容分別賦給TextBox的Text,并且用Exit For跳出For語(yǔ)句.
成功!
重慶分公司
重慶分公司
