求高手编程

来源：百度知道 编辑：UC知道 时间：2024/05/29 22:05:50
在窗体上分别画一个列表框、文本框和命令按钮，将列表框LIST1中选中的多个项目移动到文本框TEXT1中，每项占一行。左边是列表框；右边是执行结果。要求能连续分批移动，直到将LIST中的内容移完。

'在设计过程将List1.MultiSelect=1, text1.MultiLine=true

Private Sub Command1_Click()
Dim i%

Do Until i = List1.ListCount
If List1.Selected(i) = True Then
Text1 = Text1 & List1.List(i) & vbCrLf
List1.RemoveItem (i)
Else
i = i + 1
End If
Loop
End Sub

Private Sub Form_Load()
Dim i%
For i = 1 To 15
List1.AddItem "这是测试的第" & i & "行"
Next
Text1 = ""
Command1.Caption = "转移"
End Sub

问题还没有怎么说清楚...

窗体上有三个控件，list1,text1,command1
将list1的style属性设为1给列表框加上复选按钮。
将text1的multiline属性设为true文本框是否可以显示多行文本.
将text1的scrollbars属性设为2文本框加上上下滚动条
程序运行时选中列表框中的项点命令按钮，将列表框的项添加到文本框，并从列表框中将该项删除
代码如下：

Private Sub Command1_Click()
Dim i As Integer
i = 0
Do While i < List1.ListCount '将列表框所有项检查一遍有没有选中
If List1.Selected(i) Then