壹般語句,變量需要在使用前定義。
將文件名標註為字符串
用於存儲文件路徑的變量。
私有子命令1_Click()
單擊Command1的事件代碼。
功能:增加壹條新的通訊記錄,其屬性分別是五個文本框的內容。
將I標註為整數
用ListView1。ListItems.Add()
為ListView1添加新的列表項。
。Text = Text1(0)
將ListView1的text屬性設置為文本框數組中第0個文本框的內容。
對於i = 1到4
。子項(i) = Text1(i)
通過循環給新增列表項的四個屬性賦值,它們的值就是text1數組的其他四個文本框的內容。
接下來我
以…結尾
末端接頭
私有子命令2_Click()
單擊Command2的事件代碼。
功能:刪除選中的通訊記錄。
如果ListView1。ListItems . Count & gt那麽0
如果當前ListView中的列表項數大於0,即不為空。
如果MsgBox("真的要刪除嗎?",VB question+VB yes no+vbdefaultbutton 2)= VB yes Then
顯示壹個對話框詢問是否刪除,如果用戶選擇是,那麽
列表視圖1。移除ListView1。選擇編輯項目.索引
刪除選定的列表項。
如果…就會結束
如果…就會結束
末端接頭
私有子窗體_Load()
表單加載的事件代碼
函數:初始化窗體標題欄和文本框數組,從文件中讀取通訊記錄並顯示在ListView1中。
Dim tpStr為字符串,I為整數,j為整數
我。Caption = "地址簿"
更改當前表單的標題欄以顯示地址簿。
對於j = 0到4
Text1(j)。文本= " "
清空5個文本框。
下壹個j
文件名=應用程序。路徑與路徑。" \data.txt "
給fileName賦值,作為當前程序所在目錄中data.txt的路徑。
如果目錄(文件名)& lt& gt”“那麽
如果當前程序所在的目錄中存在data.txt文件。
打開文件名作為#1輸入
在工作區1中以只讀方式打開此文件。
Do While Not EOF(1)
如果文件沒有讀完。
用ListView1。ListItems.Add()
為ListView1添加新的列表項。
對於i = 0到4
線路輸入#1,tpStr
從文件中讀取字符串。
如果i = 0,那麽
。Text = tpStr
如果第1個讀數,它被賦給listview的text屬性。
其他
否則,將其分配給相應的子項。
。分項(i) = tpStr
如果…就會結束
接下來我
以…結尾
環
關閉#1
閱讀後關閉文件。
如果…就會結束
末端接頭
私有子窗體_Unload(取消為整數)
程序退出的事件代碼。
功能:保存添加和刪除的通訊錄,退出程序。
將I標註為整數
將tpList標註為ListItem
打開文件名作為#1輸出
通過寫入在工作空間1中打開data.txt。
對於ListView1中的每個tpList。列表項
對ListView1中的每個列表項執行下列操作。
打印編號1,tpList。文本
將列表項的text屬性寫入文件。
對於i = 1到4
打印編號1,tpList。分項目(壹)
循環將列表項的四個子項屬性的值寫入文件。
接下來我
下壹個tpList
關閉#1
完成後關閉保存的文件。
末端接頭