View Full Version : انتقال محتویات یک ListBox به ListBox ای دیگر
sAsAn.K
پنج شنبه 07 اردیبهشت 1385, 20:00 عصر
سلام به همه:لبخند:
میخواستم ببینم در صورتی که یه listbox داریم به نام list1 و یکی دیگه هم به اسم list2 چه جوری میشه تمامی محتویات list1 رو بریزی توی list2؟:متفکر:
تک تک بریزی توی list2 رو خودم بلدم همش با هم چه جوریه؟
riyahiyan
پنج شنبه 07 اردیبهشت 1385, 22:37 عصر
یه سوال برام پیش اومد ،مگه تک تک ریختن چه مشکلی بوجود می آره؟
S_VB.max
جمعه 08 اردیبهشت 1385, 10:04 صبح
با تابع SendMessageStr و حلقه For محتویات لیست باکس اولی را توی لیست باکس بعدی بریز
sAsAn.K
شنبه 09 اردیبهشت 1385, 16:13 عصر
riyahiyan جان برای مدرسه میخوام عزیز.
--------------------------------------------
S_VB.max جان با AddList میخوام باشه.
yavari
شنبه 09 اردیبهشت 1385, 20:07 عصر
سلام
امیدوارم به دردتون بخوره
موفق باشید
S_VB.max
یک شنبه 10 اردیبهشت 1385, 06:06 صبح
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
دوشنبه 11 اردیبهشت 1385, 11:43 صبح
ولی همه این روش ها تک تک میریزه
sAsAn.K
سه شنبه 12 اردیبهشت 1385, 16:00 عصر
yavari جون ایول عزیز.
من خودم تو مدرسه همین راه رو رفتم.
yavari
سه شنبه 12 اردیبهشت 1385, 22:10 عصر
سلام دوست عزیز
خوشحالم مشکلتون حل شده
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.