vb中list的用法

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：图片对话框

两种方法，第一种如楼上所言：

list1.additem "新增的项目1"

list1.additem "新增2"

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

有两个问题：

1、你在Command1中给List1添加选项时，For循环的i是从1到5，也就是说总共添加了5个选项，但是在Command2中把偶数项移到List2时，For的i是从0到5，也就是循环6次，这样到第6次时，已经超过List1的选项总数范围了（或者说List1中并不存在第6个选项），所以出错。

2、当用RemoveItem删除List1中的某个选项时，List1的选项总数也会同时减1，这样当循环继续运行，到最后也一样会出现上面所说的第一个问题（除非所有选项中只有最后一项是偶数，其他都是奇数）

解决方法：应该从List1的最后一项往上逆向搜索偶数并移动，这样就不会出现问题：

Private Sub Command2_Click()

For i = 4 To 0 Step -1  '从4到0逆向循环，总共循环5次

    '里面的其他代码不变

Next i

End Sub

---