问题讨论:程序 C/C++ Java GUI编程 ASP Php Shell Perl Web开发 软件工程 三大件 机箱 存储设备 光存储 音频设备 视频设备 外设 购机
asp php java C CGI .net vb delphi unix|linux sql Word Excel WPS OutLook Powerpoint Dreamweaver FPage/Golive CSS/HTML DOM/JS
热门词:流程图 excel 入侵检测 vss Windows 安全漏洞 QQ空间 事件编程 MFC

 编程开发 > vb教程 

用Visual Basic做列表框的应用技巧

[2006-11-3 18:51:39] [来源: 百家电脑学院] [我要投稿]

一、程序设计界面:
  用VB做一个列表框向另外的列表框中添加选项并不是一件复杂的事情,在此向各位初学者(包括自己在内^_^)介绍一下如何用列表框的属性和事件来实现这个功能。
  新建一个标准EXE工程,在屏幕上会出现一个空白的窗体,向窗体上添加两个ListBox控件、二个Frame控件、四个CommandButton控件和二个OptionButton控件,添加控件后的窗体如图1所示。
  

  
图1
  二、控件属性及设置列表:
  

  
图2
  提示:MultiSelect设置为“2-Extended”就实现用Ctrl键和Shift键来选择列表中的内容。
  三、程序的代码分别如下:
  '1.开始执行程序时,调用程序声明段中的代码:
Dim flag(100) As Boolean, ff As Boolean
Dim i, g As Integer
  '2.双击控件Command1,在代码窗口中的光标就会自动的跳转到控件Command1的 
Command1_Click()事件处,在该事件中添加下列代码:
Private Sub Command1_Click() '添加…>>
If ff = True Then
For i = 0 To List1.ListCount - 1
If flag(i) = 0 And List1.Selected(i) Then '判断选项的选中状态
List2.AddItem List1.List(i) '向控件list2添加选项
flag(i) = 1
Call mun '调用统计列表个数
End If
Next i
End If
If ff = False Then
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then '判断选项的选中状态
List2.AddItem List1.List(i) '向控件list2添加内容
List1.RemoveItem (i)
Call mun '调用统计列表个数
End If
Next i
End If
End Sub
  '3.双击Command2控件,并输入如下代码:
Private Sub Command2_Click() '全部添加
If ff = True Then
For i = 0 To List1.ListCount - 1
If flag(i) = 0 Then
List2.AddItem List1.List(i) '将已选项追加到list2中
flag(i) = 1
Call mun
End If
Next i
End If
If ff = False Then
For i = List1.ListCount - 1 To 0 Step -1
List2.AddItem List1.List(i) '将已选项追加到list2中
List1.RemoveItem (i) '删除已选项
Call mun
Next i
End If
End Sub
  '4.双击Command3控件,并输入如下代码:
Private Sub Command3_Click() '全部删除
If ff = True Then
For i = 0 To List2.ListCount - 1
flag(i) = 0
Call mun
Next i
List2.Clear
End If
If ff = False Then
For i = List2.ListCount - 1 To 0 Step -1
List1.AddItem List2.List(i)
List2.RemoveItem (i)
Call mun
Next i
End If
End Sub
  '5.双击Command4控件,并输入如下代码:
Private Sub Command4_Click() '删除

图3
  

图4

此文发布于:百家学院 (http://www.9php.com),复制请保留此行.

·看过 用Visual Basic做列表框的应用技巧 文章的还看过:

·百家学院 | 最新评论·

评论内容:不能少于5个字,请自觉遵守互联网相关政策法规。

用户名: 验证码: 验证码,看不清楚?请点击刷新验证码