首页 学校介绍 新闻动态 BENET(网络)课程 ACCP(软件)课程 师资力量 就业广场 在线咨询 学员天地 证书查询 技术论坛
免费讲座
日期: 周三、周五19:00、周日15:00
地点: 南山科技园深南花园
内容: IT职业规划
主讲: 宁方明(高级讲师)
电话: 0755-26953168
0755-26952668
开班计划
开班时间 类型 状态
6月25日 周日班 热招
6月20日 脱产班(S2) 热招
6月18日 脱产班 热招
6月15日 晚班 热招
6月10日 晚班 已满
5月22日 脱产班 已满
 

全方位透视万兆铜缆以太网布线

如果你平时有许多同学和朋友的信息,试试在电脑上编写一个我这样的通讯录。很方便的哟。   先新建一个工程,在“工具箱->右键->部件”添加“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环境下调试通过。

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。

无标题文档
网站导航 招聘信息 联系我们 设为首页 收藏本站 学校位置
 
版权所有: 北大青鸟APTECH(深圳中青)授权培训中心
学校地址: 南山区学府路西部电子时代广场四楼(一校区)
南山区科技园深南花园C座三楼317-322 (二校区)
咨询热线: 0755-26953168 26952668   传真: 0755-26747580
就业推荐: 0755-26075577  朱老师 sj13509863401@126.com
咨询邮箱: 唐老师 txm_benet@126.com  
  刘老师 naomibao@sohu.com
  覃老师 szqll@126.com
  粤ICP备06033100      QQ:574223402