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

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

創新互聯自2013年創立以來，先為郯城等服務建站，郯城等地企業，進行企業商務咨詢服務。為郯城企業網站制作PC+手機+微官網三網同步一站式服務解決您的所有建站問題。

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

設計一個“通訊錄”程序vb

首先 在窗體上添加控件 組合框控件命名為：ComboName

顯示單位控件：Chkdanwei

顯示地址控件：Chkdizhi

電話文本框：TxtTel

單位文本框：Txtdanwei

地址文本框：Txtdizhi

添加人員按鈕：默認

然后直接復制下面的代碼就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("請輸入姓名")

a(n).tel = InputBox("請輸入電話號碼")

a(n).danwei = InputBox("請輸入工作單位")

a(n).dizhi = InputBox("請輸入家庭地址")

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

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

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

創建類，然后定義結構中包含的所有數據，然后在程序中創建數組，定義每一個數組的元素都是一個這樣的類，并且在定義后使用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通訊錄代碼 vba通信教程
本文網址：http://vcdvsql.cn/article12/doicggc.html

成都網站建設公司_創新互聯，為您提供標簽優化、ChatGPT、網站收錄、軟件開發、品牌網站建設、網站改版

廣告

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