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

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

十多年的濱州網(wǎng)站建設經(jīng)驗，針對設計、前端、開發(fā)、售后、文案、推廣等六對一服務，響應快，48小時及時工作處理。成都營銷網(wǎng)站建設的優(yōu)勢是能夠根據(jù)用戶設備顯示端的尺寸不同，自動調(diào)整濱州建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設計，從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)從事“濱州網(wǎng)站設計”,“濱州網(wǎng)站推廣”以來，每個客戶項目都認真落實執(zhí)行。

創(chuàng)建類，然后定義結(jié)構(gòu)中包含的所有數(shù)據(jù)，然后在程序中創(chuàng)建數(shù)組，定義每一個數(shù)組的元素都是一個這樣的類，并且在定義后使用New子句將其實力化.關(guā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,因為數(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語句.

成功!

VB.NET用ListView控件制作通訊錄的相關(guān)問題

在工程里面建立一個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.NET+sql做一個帶登陸窗體的通訊錄程序

你別侮辱了程式員。

如果你是想學習，我很愿意教你，如果你是所謂的興趣而已，那么就更應該靠自己。

以上你所說的東西，很容易寫，但是從我開始學的時候，你知道我花了多少時間才完成嗎？

你不把問題發(fā)出來，一個語句一個小問題，那需要多少的實踐？

鄙視你。

用VB做通訊錄？有查詢，添加，刪除功能的！

用VB做通訊錄　2007-07-10 00:41

分類：軟件編程 字號： 大大 中中 小小 如果你平時有許多同學和朋友的信息，試試在電腦上編寫一個我這樣的通訊錄。很方便的喲。 先新建一個工程，在“工具箱-右鍵-部件”添加“Microsoft windows common control 6.0”，然后在窗體上添加五個標簽，“標題”分別為 “姓名、電話、Oicq、E-Mail、地址”；添加一個文本框（text1）, 然后[復制/粘貼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)試通過。

個人信息管理系統(tǒng)。 要求用VB.NET做

vb2010.net + SQL2005 簡單搞定。

就是數(shù)據(jù)庫的最基本操作，增加修改刪除！

文章名稱：vbnet通訊錄管理,vb個人通訊錄管理系統(tǒng)
轉(zhuǎn)載注明：http://chinadenli.net/article32/hesssc.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)頁設計公司、App開發(fā)、微信公眾號、網(wǎng)站設計、網(wǎng)站收錄、營銷型網(wǎng)站建設

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)