انتقال محتویات یک ListBox به ListBox ای دیگر

[sAsAn.K]

سلام به همه:لبخند:
میخواستم ببینم در صورتی که یه listbox داریم به نام list1 و یکی دیگه هم به اسم list2 چه جوری میشه تمامی محتویات list1 رو بریزی توی list2؟:متفکر:
تک تک بریزی توی list2 رو خودم بلدم همش با هم چه جوریه؟

[riyahiyan]

یه سوال برام پیش اومد ،مگه تک تک ریختن چه مشکلی بوجود می آره؟

[S_VB.max]

با تابع SendMessageStr و حلقه For محتویات لیست باکس اولی را توی لیست باکس بعدی بریز

[sAsAn.K]

riyahiyan جان برای مدرسه میخوام عزیز.
--------------------------------------------
S_VB.max جان با AddList میخوام باشه.

[yavari]

سلام

امیدوارم به دردتون بخوره
موفق باشید

[S_VB.max]

Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Private Sub Command1_Click()
Dim c As Long
Const LB_GETTEXT = &H189
Const LB_ADDSTRING = &H180

Dim sItemText As String * 255
For c = 0 To List1.ListCount - 1
Call SendMessageStr(List1.hWnd, LB_GETTEXT, c, ByVal sItemText)
Call SendMessageStr(List2.hWnd, LB_ADDSTRING, 0&, ByVal sItemText)
Next
End Sub

[riyahiyan]

ولی همه این روش ها تک تک میریزه

[sAsAn.K]

yavari جون ایول عزیز.
من خودم تو مدرسه همین راه رو رفتم.

[yavari]

سلام دوست عزیز

خوشحالم مشکلتون حل شده