vb6怎样获得其它应用程序中LISTBOX中的内容？？

Question

已经得到应用程序窗口句柄及LISTBOX的句柄，怎样获得和编辑LISTBOX中的内容？？？？
请详细指教下（附带完整代码最好），谢谢！

Answer 1

http://zhidao.baidu.com/question/44880007.html

Answer 2

http://www.programfan.com/club/showpost.asp?id=12496
baidu一下，可以搜到很多类似的代码

Answer 3

,简单的操作,你参考下把listbox1 listbox2的演示Private Sub Command10_Click()'右全选
Dim i As Integer
For i = List2.ListCount - 1 To 0 Step -1
List2.Selected(i) = True
Next i
End SubPrivate Sub Command5_Click()'随即插入数据作演示用
Dim a As Integer
For i = 1 To 10
a = Int(Rnd * 1000) + 10
List1.AddItem a
Next i
End SubPrivate Sub Command6_Click() '右移
Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then List2.AddItem List1.List(i): List1.RemoveItem i
Next iEnd Sub
Private Sub Command7_Click() '左移
Dim i As Integer
For i = List2.ListCount - 1 To 0 Step -1
If List2.Selected(i) Then List1.AddItem List2.List(i): List2.RemoveItem i
Next iEnd SubPrivate Sub Command8_Click()'清除
List1.Clear
List2.ClearEnd SubPrivate Sub Command9_Click()'左边全选
'List1.MultiSelect = 2
Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1
List1.Selected(i) = True
Next i
End Sub

Answer 4

用SendMessge API函数，先发送LB_GETCOUNT消息获取条目数，然后逐条发送LB_GETTEXT条目的文字