你可以定義一個數(shù)組，其中每一個元素都是一個結(jié)構(gòu)，在每一個結(jié)構(gòu)中存放每一個人的姓名、年齡等信息。這需要用到類。
創(chuàng)新互聯(lián)長期為1000多家客戶提供的網(wǎng)站建設(shè)服務(wù)，團隊從業(yè)經(jīng)驗10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為西峰企業(yè)提供專業(yè)的成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計，西峰網(wǎng)站改版等技術(shù)服務(wù)。擁有十余年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。
創(chuàng)建類，然后定義結(jié)構(gòu)中包含的所有數(shù)據(jù)，然后在程序中創(chuàng)建數(shù)組，定義每一個數(shù)組的元素都是一個這樣的類，并且在定義后使用New子句將其實力化.關(guān)于類,你可以參考你的學(xué)習(xí)用書,定義應(yīng)該不成問題,關(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,因為數(shù)組無法使用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
然后根據(jù)ListBox中選中項的Text,使用For.Each(在數(shù)量無法確定的情況下)或者For.do語句,遍歷數(shù)組中每個元素,即結(jié)構(gòu)中的姓名域,如果找到,就把該結(jié)構(gòu)中的其它幾項內(nèi)容分別賦給TextBox的Text,并且用Exit For跳出For語句.
成功!
在工程里面建立一個VS自帶的本地數(shù)據(jù)庫，用數(shù)據(jù)庫來操作要方便得多，追求性能的話，圖片單獨創(chuàng)建一個圖片目錄來存放，數(shù)據(jù)庫里面存入圖片鏈接，如果圖片需要保密，那就直接放到數(shù)據(jù)庫。
用Excel操作也是可以的，引用Microsoft.Office.Tools.Excel，然后在VB.NET里面對Exce進行修改，圖片的話，創(chuàng)建一個圖片目錄，Excel存入圖片名稱，在代碼里面對目錄下的名稱進行匹配，讀取到ListView，我電腦上沒裝Excel沒法給你寫相關(guān)Excel的代碼示例！
用VB做通訊錄 2007-07-10 00:41
分類：軟件編程 字號： 大大 中中 小小 如果你平時有許多同學(xué)和朋友的信息，試試在電腦上編寫一個我這樣的通訊錄。很方便的喲。 先新建一個工程，在“工具箱-右鍵-部件”添加“Microsoft windows common control 6.0”，然后在窗體上添加五個標簽，“標題”分別為 “姓名、電話、Oicq、E-Mail、地址”；添加一個文本框（text1）, 然后[復(fù)制/粘貼4次]使其成為控件數(shù)組；添加一個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
'加載數(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)試通過。
重慶分公司
重慶分公司
