|
如果你平时有许多同学和朋友的信息试试在电脑上编写一个我这样的通讯录很方便的哟 先新建一个工程在工具箱>右键>部件添加Microsoft windows common contr ol 然后在窗体上添加五个标签标题分别为 姓名电话OicqEMail地址 添加一个文本框（text） 然后[复制/粘贴次]使其成为控件数组 添加一个Listview控件（Listview）在其属性框中添加五个列首文本值分别为姓名电话OicqEMail地址查看属性为 lvwReport 选中整行选择取消隐藏选择 添加两个按钮其标题属性分别为添加删除添加如下代码 Option Explicit Dim fileName As String Private Sub Command_Click() 将文本框中的信息添加到列表框中 Dim i As Integer With ListViewListItemsAdd() Text = Text() For i = To SubItems(i) = Text(i) Next i End With End Sub Private Sub Command_Click() 删除列表框中信息 If ListViewListItemsCount > Then If MsgBox(真的要删除吗？ vbQuestion + vbYesNo + vbDefaultButton) = vbYes Then ListViewListItemsRemove ListViewSelectedItemIndex End If End If End Sub Private Sub Form_Load() Dim tpStr As String i As Integer fileName = AppPath & \datatxt If Dir(fileName) <> Then 加载数据 Open fileName For Input As # Do While Not EOF() With ListViewListItemsAdd() For i = To Line Input # tpStr If i = Then Text = tpStr Else SubItems(i) = tpStr End If Next i End With Loop Close # End If End Sub Private Sub Form_Unload(Cancel As Integer) Dim i As Integer Dim tpList As ListItem 保存数据 Open fileName For Output As # For Each tpList In ListViewListItems Print # tpListText For i = To Print # tpListSubItems(i) Next i Next tpList Close # End Sub 本程序已在windows+VB环境下调试通过 |
