最近2018中文字幕在日韩欧美国产成人片_国产日韩精品一区二区在线_在线观看成年美女黄网色视频_国产精品一区三区五区_国产精彩刺激乱对白_看黄色黄大色黄片免费_人人超碰自拍cao_国产高清av在线_亚洲精品电影av_日韩美女尤物视频网站

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間:8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
vb點虐 制作通訊錄 vb通訊錄管理系統(tǒng)課程設(shè)計

我想用VB.NET 2005來編一個簡單的通訊錄軟件,向高手請教之

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

專注于為中小企業(yè)提供成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)巴彥淖爾免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動了上千家企業(yè)的穩(wěn)健成長,幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。

我想用VB.NET+sql做一個帶登陸窗體的通訊錄程序

你別侮辱了程式員。

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

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

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

鄙視你。

用VB做通訊錄?有查詢,添加,刪除功能的!

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

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

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點虐 制作通訊錄 vb通訊錄管理系統(tǒng)課程設(shè)計
網(wǎng)址分享:http://fisionsoft.com.cn/article/ddgcseo.html