我明白你的意思了,从listbox里读内容。
下面写一个过程完成这个任务
private sub read_text()
Dim i As Integer
Dim str As String
str = ""
For i = 0 To List1.ListCount - 1 str = str + List1.List(i)
Next
Text1.Text = str
end sub
已成功运行,只需调用过程callread_text
[ 本帖最后由 邵帅 于 2012-9-18 17:25 编辑 ]
Figure out what you like. Try to become the best in the world of it.