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

專注于為中小企業(yè)提供成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)巴彥淖爾免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動了上千家企業(yè)的穩(wěn)健成長,幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
你別侮辱了程式員。
如果你是想學(xué)習(xí),我很愿意教你,如果你是所謂的興趣而已,那么就更應(yīng)該靠自己。
以上你所說的東西,很容易寫,但是從我開始學(xué)的時候,你知道我花了多少時間才完成嗎?
你不把問題發(fā)出來,一個語句一個小問題,那需要多少的實踐?
鄙視你。
用VB做通訊錄 2007-07-10 00:41
分類:軟件編程 字號: 大大 中中 小小 如果你平時有許多同學(xué)和朋友的信息,試試在電腦上編寫一個我這樣的通訊錄。很方便的喲。 先新建一個工程,在“工具箱-右鍵-部件”添加“Microsoft windows common control 6.0”,然后在窗體上添加五個標(biāo)簽,“標(biāo)題”分別為 “姓名、電話、Oicq、E-Mail、地址”;添加一個文本框(text1), 然后[復(fù)制/粘貼4次]使其成為控件數(shù)組;添加一個Listview控件(Listview1),在其屬性框中,添加五個“列首”,“文本”值分別為“姓名、電話、Oicq、E-Mail、地址”,“查看屬性”為 “3-lvwReport”, 選中“整行選擇”,取消“隱藏選擇”;添加兩個按鈕,其標(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("真的要刪除嗎?", 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)試通過。
在工程里面建立一個VS自帶的本地數(shù)據(jù)庫,用數(shù)據(jù)庫來操作要方便得多,追求性能的話,圖片單獨(dú)創(chuàng)建一個圖片目錄來存放,數(shù)據(jù)庫里面存入圖片鏈接,如果圖片需要保密,那就直接放到數(shù)據(jù)庫。
用Excel操作也是可以的,引用Microsoft.Office.Tools.Excel,然后在VB.NET里面對Exce進(jìn)行修改,圖片的話,創(chuàng)建一個圖片目錄,Excel存入圖片名稱,在代碼里面對目錄下的名稱進(jìn)行匹配,讀取到ListView,我電腦上沒裝Excel沒法給你寫相關(guān)Excel的代碼示例!
網(wǎng)站名稱:vb點(diǎn)虐
制作通訊錄 vb通訊錄管理系統(tǒng)課程設(shè)計
瀏覽路徑:http://chinadenli.net/article40/ddgcseo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供云服務(wù)器、建站公司、外貿(mào)網(wǎng)站建設(shè)、品牌網(wǎng)站制作、網(wǎng)站收錄、ChatGPT
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)