visual basic 2015中列表框的columns属性 求助 ~ 追分~

来源：蜘蛛抓取(WebSpider) 时间：2017-06-09 02:05 标签： visual basic
创建多列列表框(VBA)
来源：& 作者：
要创建多列、多选择列表框，有必要设置列表框的 Columns 和 MultiSelect 属性。下例中用这些属性创建这种列表框。
如图 7.37 所示，在运行应用程序时将会看到，列表框包含两列。
图 7.37 多列列表框
如果绘制的列表框大到可在一列中容纳所有项目，则第二列为空列；只有在列表框长度不够时，其它的项目才换行显示并自动添加水平滚动条。请调整顶端列表框的大小并添加附加的列表项目，以观察 Visual Basic 如何自动处理多个列。
示例中使用 Selected 属性─ 一个包含列表框选定状态的布尔数组─ 判断选定了哪些项目。数组中的每个元素对应一个列表项，选定项目的数组元素值为 True，未选定项目的数组元素值为 False。从列表中选定项目后，代码将检查每个数组元素是否被设置为 True。如果项目的对应数组元素被设置为 True，则用 AddItem 方法将此项目添加到第二个列表（正常的单列列表框）中。
如下图所示，设置示例中控件的属性。
Multiple-Column 列表框
顶端的列表框
NameColumnsMultiSelect
lstTop22-Extended
底部的列表框
第一个命令按钮
NameCaption
cmdTransfer&Transfer
第二个命令按钮
NameCaption
cmdClear&Clear
第三个命令按钮
NameCaption
cmdClose&Close
MultiSelect 属性用来选定列表框中的一组值。如果单击第一个列表项目，然后按 SHIFT 键并单击最后一个项目（或用 SHIFT+ DOWN ARROW 键），则将选定此范围内的所有项目。
多列列表框应用程序中的事件
将下列代码添加到 Form_Load 过程中以初始化顶端的列表，1stTop：Private Sub Form_Load ()
lstTop.AddItem "Paris"
lstTop.AddItem "New Orleans"
lstTop.AddItem "San Francisco"
lstTop.AddItem "Chicago"
lstTop.AddItem "Seattle"
lstTop.AddItem "Toronto"
lstTop.AddItem "New York"
lstTop.AddItem "Tbilisi"
lstTop.AddItem "Moscow"
lstTop.AddItem "Portland"
'选定一对项目。
1stTop.Selected(0) = True
1stTop.Selected(1) = True
注意 向“属性”窗口的 List 属性中输入项目，这样，不必重复使用 AddItem 方法就可在列表框中添加项目。在输入每个项目后按 CTRL+ENTER 键换行。用这种方法就可在多列列表框中输入多个项目。
将下列代码添加到 1stTop_DblClick 事件过程中：Private Sub 1stTop_DblClick ()
cmdTransfer.Value = True
' 按“传送”按钮。
将下列代码添加到“传送”命令按钮的 Click 事件过程中：Private Sub cmdTransfer_Click ()
For n = 0 To (lstTop.ListCount - 1)
'若被选定，则添加到列表中。
If lstTop.Selected(n) = True Then
lstBottom.AddItem lstTop.List(n)
cmdClear.Enabled = True
注意数组索引值以什么方式从 0 开始，并向 ListCount -1 转变。
将下列代码添加到“清除”命令按钮的 Click 事件过程中：Private Sub cmdClear_Click ()
lstBottom.Clear
cmdClear.Enabled = False
将下列代码添加到“关闭”命令按钮的 Click 事件过程中。Private Sub cmdClose_Click ()
阅读： 次录入：
上一篇：下一篇：
相关新闻 & & &
本文评论 & & &
<img src="pic/face9.gif"
<img src="pic/face18.gif"
alt=""/点评：
字数 姓名：
尊重网上道德，遵守中华人民共和国的各项有关法律法规
承担一切因您的行为而直接或间接导致的民事或刑事法律责任
本站管理人员有权保留或删除其管辖留言中的任意内容
本站有权在网站内转载或引用您的评论
参与本评论即表明您已经阅读并接受上述条款
本周热门新闻以下试题来自：
单项选择题在列表框中，当前被选中的列表项的序号由下列(
)属性表示。A) List B) Index C) ListIndex D) TabIndex
为您推荐的考试题库
你可能感兴趣的试题
1A) T=R∩S B) T=R∪S C) T=R×S D) T=R/S2A) 1种 B) 2种 C) 3种 D) 4种3A) Opion Base 0 B) Option ExplicitC) Option Base 1 D) Option Compare4A) 属性描述 B) 关键字描述C) 二维表格描述 D) 实体描述5A) 工具 B) 过程 C) 方法 D) 环境
热门相关试卷
最新相关试卷

我要回帖

更多关于 visual basic 的文章

 

随机推荐