Question

vb中list的用法

我想使用三个LIST控件
在第一个里选择一个后 在LIST2中出现对应的选项

然后在LIST2选择后 在LIST3显示 结果

Answer 1

1.对控件及其属性的基本应用，比如移动位置，放大缩小，隐藏显示

2.文本修改，文本的大小，字号，字体，字形效果

3.基本控制语句的使用

4.基础算法，初中水平的数学题（加减乘除）

1.常用控件

form，command，timer，text，label，list，combo1，scroll，option，check，frame，shape，line，image，picture

2.常用控件的属性

常用通用属性：

tabindex：设置tab键序

name（名称）：设置当前控件的名称

caption：当前控件的标题

backcolor：背景颜色

按钮的背景颜色需要将style属性设置为1

forecolor：前景颜色（常用于字体颜色）

enabled：事件是否可用

font：字体对话框

fillcolor：填充色

height：设置当前控件的高度

width：设置当前控件的宽度

left：左边距

top：顶边距

visible：控件是否可见

index：下标（索引）

各类控件的常用属性：

form窗体

autoredraw：自动重绘

border-style：边框样式

icon：设置当前窗体的图标

maxbutton：最大化按钮

minbutton：最小化按钮

picture：设置窗体的背景tup

starupposition：设置窗体在屏幕中的位置

command按钮

cancle：设置是否响应esc键

default：设置按钮是否为缺省按钮

缺省按钮：

即当焦点不在按钮类控件上时，缺省按钮会响应enter（回车键）

缺省：即系统默认状态

style：设置是否显示图形

当其值设置为1时，按钮可以设置背景颜色和背景图片（pciture属性）

label标签：

autosize：自动大小

backstyle：设置背景样式是否透明

textbox文本框：

alignment：文字对齐方式

passwordchar：设置密码字符

text：文本属性

multiline：是否可以多行显示文本

maxlength：设置内容最大长度

scrollbars：设置文本框滚动条（multiline为true）

locked：设置文本是否可以编辑

frame框架：

无特殊属性，使用框架时注意复制的控件是在框架内还是在窗体内，类似于嵌套窗体，相当于form内的一个新的窗体，其主要作用就是当容器

checkbutton多选按钮：

value：返回设置当前多选框的状态，0，选中，1，未选中，2，不可选

optionbutton单选按钮：

value：返回布尔值，true时选中，false时未选中

有关按钮的属性多数参照command的属性

combobox：组合框

list：返回设置组合框的项，项的索引从0开始，可通过list（索引）的方式访问项

style：返回设置组合框的类别，其值为0，1，2

1.下拉式组合框（系统默认，框内可以输入值）

2.简单式组合框

height属性可以修改，其他两种默认为300缇（1twip=15px）

3.下拉列表式组合框（框内不可以输入值）

listbox：列表框

multiselect：设置列表框是否可以多选

selected（x）（隐藏属性）:判断索引为x的项是否被选中，返回布尔值

scrollbars滚动条：

分垂直和水平两种，在这里列举通用的属性

max：上限

min：下限

value：当前滑块所在位置的value值

largechange：单击滑块空白区域增加的value值

smallchange：单击滑块两边箭头增加的value值

timer时钟：

interval：设置时钟每多少毫秒执行一次timer事件

image图像框：

stretch：设置图像是否自动调整大小

picture图片框：

autosize：设置图像是否自动调整大小

picture：图片对话框

Answer 2

我只做了list1和list2的,你需要可以添加更多数组以及代码来实现list3的..

Dim l1, l2, l3

Private Sub Form_Load()
Dim s$, i%
s = "颜色 星期 运动"
l1 = Split(s)
For i = 0 To UBound(l1)
List1.AddItem l1(i)
Next

s = "红色 绿色 黑色 蓝色 黄色"
l1 = Split(s)

s = "周一 周二 周三 周四 周五 周六 周日"
l2 = Split(s)

s = "羽毛球 网球 乒乓球 足球 排球"
l3 = Split(s)
End Sub

Private Sub List1_Click()
Dim i%
If List1.ListIndex = 0 Then
List2.Clear
For i = 0 To UBound(l1)
List2.AddItem l1(i)
Next
ElseIf List1.ListIndex = 1 Then
List2.Clear
For i = 0 To UBound(l2)
List2.AddItem l2(i)
Next
ElseIf List1.ListIndex = 2 Then
List2.Clear
For i = 0 To UBound(l3)
List2.AddItem l3(i)
Next
End If
End Sub

Answer 3

两种方法，第一种如楼上所言：
list1.additem "新增的项目1"
list1.additem "新增2"

第二：在list的属性框中添加，按ctrl+enter 换行

删除某一行:
Private Sub Command1_Click()
List1.RemoveItem 1 '删除第二行
End Sub

从鼠标单击选中的那一行获取行中数据:
Private Sub List1_Click()
MsgBox List1.Text 'List1.Text就是选中那行的数据
End Sub

Answer 4

If List1.ListIndex <> -1 Then 注释：（当list1的内容没被选中事，不做此事件"也就不会报错"）
List2.AddItem List1.Text 注释：（list2的内容 是 list1选中的内容）
List1.RemoveItem List1.ListIndex 注释：（将list1中选中的内容删除）
End If