你可以定義一個(gè)數(shù)組，其中每一個(gè)元素都是一個(gè)結(jié)構(gòu)，在每一個(gè)結(jié)構(gòu)中存放每一個(gè)人的姓名、年齡等信息。這需要用到類。
十多年的濱州網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。成都營銷網(wǎng)站建設(shè)的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整濱州建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“濱州網(wǎng)站設(shè)計(jì)”,“濱州網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。
創(chuàng)建類，然后定義結(jié)構(gòu)中包含的所有數(shù)據(jù)，然后在程序中創(chuàng)建數(shù)組，定義每一個(gè)數(shù)組的元素都是一個(gè)這樣的類，并且在定義后使用New子句將其實(shí)力化.關(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,因?yàn)閿?shù)組無法使用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ù)量無法確定的情況下)或者For.do語句,遍歷數(shù)組中每個(gè)元素,即結(jié)構(gòu)中的姓名域,如果找到,就把該結(jié)構(gòu)中的其它幾項(xiàng)內(nèi)容分別賦給TextBox的Text,并且用Exit For跳出For語句.
成功!
在工程里面建立一個(gè)VS自帶的本地?cái)?shù)據(jù)庫，用數(shù)據(jù)庫來操作要方便得多，追求性能的話，圖片單獨(dú)創(chuàng)建一個(gè)圖片目錄來存放，數(shù)據(jù)庫里面存入圖片鏈接，如果圖片需要保密，那就直接放到數(shù)據(jù)庫。
用Excel操作也是可以的，引用Microsoft.Office.Tools.Excel，然后在VB.NET里面對(duì)Exce進(jìn)行修改，圖片的話，創(chuàng)建一個(gè)圖片目錄，Excel存入圖片名稱，在代碼里面對(duì)目錄下的名稱進(jìn)行匹配，讀取到ListView，我電腦上沒裝Excel沒法給你寫相關(guān)Excel的代碼示例！
你別侮辱了程式員。
如果你是想學(xué)習(xí)，我很愿意教你，如果你是所謂的興趣而已，那么就更應(yīng)該靠自己。
以上你所說的東西，很容易寫，但是從我開始學(xué)的時(shí)候，你知道我花了多少時(shí)間才完成嗎？
你不把問題發(fā)出來，一個(gè)語句一個(gè)小問題，那需要多少的實(shí)踐？
鄙視你。
用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)試通過。
vb2010.net + SQL2005 簡單搞定。
就是數(shù)據(jù)庫的最基本操作，增加修改刪除！
重慶分公司
重慶分公司
