第1个回答 2014-05-25
在点击command1的事件click里添加上对应的代码就能实现。
先读list1里的数据,再修改,再添加到list2里就可以了。
第2个回答 2014-05-25
Private Sub Command1_Click()
Dim i As Integer
Dim str As String
For i = 0 To List1.ListCount - 1
str = List1.List(i)
'下面空行对str进行修改'
str = str & " 11" '此行是我举个修改的例子
List2.AddItem str
Next
End Sub本回答被网友采纳
第3个回答 2014-05-25
在点击command1的事件click里添加上对应的代码就能实现。
先读list1里的数据,再修改,再添加到list2里就可以了。
第4个回答 2014-05-25
Private Sub Command1_Click()
Dim i As Integer
Dim str As String
For i = 0 To List1.ListCount - 1
str = List1.List(i)
'下面空行对str进行修改'
str = str & " 11" '此行是我举个修改的例子
List2.AddItem str
Next
End Sub本回答被网友采纳