vb.net中的list怎样用数组添加列表项

list1.additem j 意思就是把j添加至list1列表中,这是在一个for 循环中，循环了10次，添加了10次 j，即 list1 中 有10列分别为：1,3,6,10,15,21,28,36,45,55

下面又来了一个循环， list1.removeitem 删除列，删除的是 list1.listcount - i ，list1.listcount 就是总列数为10，减去 i ，i 是1到4，即10-1，9-2，8-3，7-4 每减掉一次，list1.listcount 就少了一条记录。

(注意，list1.listcount-1 是最后一条记录)

减掉了第 9，7，5，3列

剩余为 1,3,6,15,28,45

结果为：3,15,28

'ListCount返回列表框中的项目总数

'ListCount-1是列表框中最后一个项目的索引号

'亏你提醒了，我写错了，上面修改了，第一个索引为0，最后一个为9.

'也就是，问题所问的第二列的索引为1，第四列的索引为3...

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

If List1.Selected(i) = True Then

List2.AddItem List1.List(i)

如果换行就 加个 End If

If List1.Selected(i) = True Then

List2.AddItem List1.List(i)

End If

要不就写在一行

If List1.Selected(i) = True Then List2.AddItem List1.List(i)

那样的话 代码应该是没问题的，在VB里运行实现了添加到list2中，

楼主要的效果是不是要从list1中删除掉选中项

'将list1中选中项转移到list2中

Private Sub Command1_Click()

List2.Clear

Dim i As Integer

For i = List1.ListCount - 1 To 0 Step -1

If List1.Selected(i) = True Then

List2.AddItem List1.List(i), 0

List1.RemoveItem i

End If

Next i

End Sub

另外,虚机团上产品团购,超级便宜

---