我想用VB.NET 2005 編一個通訊錄軟件,請教幾個問題

你可以定義一個數組，其中每一個元素都是一個結構，在每一個結構中存放每一個人的姓名、年齡等信息。這需要用到類。

創新互聯長期為1000多家客戶提供的網站建設服務，團隊從業經驗10年，關注不同地域、不同群體，并針對不同對象提供差異化的產品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯網生態環境。為西峰企業提供專業的成都網站建設、網站設計，西峰網站改版等技術服務。擁有十余年豐富建站經驗和眾多成功案例,為您定制開發。

創建類，然后定義結構中包含的所有數據，然后在程序中創建數組，定義每一個數組的元素都是一個這樣的類，并且在定義后使用New子句將其實力化.關于類,你可以參考你的學習用書,定義應該不成問題,關鍵看這種思路吧.

例如定義類,內容:

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,因為數組無法使用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

然后根據ListBox中選中項的Text,使用For.Each(在數量無法確定的情況下)或者For.do語句,遍歷數組中每個元素,即結構中的姓名域,如果找到,就把該結構中的其它幾項內容分別賦給TextBox的Text,并且用Exit For跳出For語句.

成功!

VB.NET用ListView控件制作通訊錄的相關問題

在工程里面建立一個VS自帶的本地數據庫，用數據庫來操作要方便得多，追求性能的話，圖片單獨創建一個圖片目錄來存放，數據庫里面存入圖片鏈接，如果圖片需要保密，那就直接放到數據庫。

用Excel操作也是可以的，引用Microsoft.Office.Tools.Excel，然后在VB.NET里面對Exce進行修改，圖片的話，創建一個圖片目錄，Excel存入圖片名稱，在代碼里面對目錄下的名稱進行匹配，讀取到ListView，我電腦上沒裝Excel沒法給你寫相關Excel的代碼示例！

用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環境下調試通過。