先構造一個類,屬性有姓名性別之類。還是要用數據庫,不是要存在文本文件里吧。VB 有類的模板,但是內容還是你自己做吧……才 10 分啊

專注于為中小企業提供成都網站建設、網站建設服務,電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業巴彥淖爾免費做網站提供優質的服務。我們立足成都,凝聚了一批互聯網行業人才,有力地推動了上千家企業的穩健成長,幫助中小企業通過網站建設實現規模擴充和轉變。
你別侮辱了程式員。
如果你是想學習,我很愿意教你,如果你是所謂的興趣而已,那么就更應該靠自己。
以上你所說的東西,很容易寫,但是從我開始學的時候,你知道我花了多少時間才完成嗎?
你不把問題發出來,一個語句一個小問題,那需要多少的實踐?
鄙視你。
用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環境下調試通過。
在工程里面建立一個VS自帶的本地數據庫,用數據庫來操作要方便得多,追求性能的話,圖片單獨創建一個圖片目錄來存放,數據庫里面存入圖片鏈接,如果圖片需要保密,那就直接放到數據庫。
用Excel操作也是可以的,引用Microsoft.Office.Tools.Excel,然后在VB.NET里面對Exce進行修改,圖片的話,創建一個圖片目錄,Excel存入圖片名稱,在代碼里面對目錄下的名稱進行匹配,讀取到ListView,我電腦上沒裝Excel沒法給你寫相關Excel的代碼示例!
網站名稱:vb點虐
制作通訊錄 vb通訊錄管理系統課程設計
瀏覽路徑:http://www.yijiale78.com/article40/ddgcseo.html
成都網站建設公司_創新互聯,為您提供云服務器、建站公司、外貿網站建設、品牌網站制作、網站收錄、ChatGPT
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯