PDA

View Full Version : انتخاب لیست به دلخواه کاربر و برگشت آن



sinas1386
سه شنبه 21 خرداد 1387, 11:14 صبح
با سلام خدمت دوستان عزیز

دوستان لطف کنند و نمونه فرم را نگاه کنند آیا امکان دارد که مثلا کاربر از لیست سمت راست انتخاب و انتقال آن به لیست سمت چپ (به دلخواه ) و بالعکس و هنگام انتقال هر کدام از لیست یک پیغام طاهر شود مبنی بر راینکه لیست به سمت چپ انتقال داده شد

لطفا کمک کنید

shaghaghi
سه شنبه 21 خرداد 1387, 14:25 عصر
سلام


Private Sub cmdAdd_Click()
If Nz(List0.Value) = vbNullString Then Exit Sub
List2.RowSource = List0.Value & ";" & List2.RowSource
List0.RemoveItem List0.Value
List0.Value = ""
End Sub

Private Sub cmdRemove_Click()
If Nz(List2.Value) = vbNullString Then Exit Sub
List0.RowSource = List2.Value & ";" & List0.RowSource
List2.RemoveItem List2.Value
List2.Value = ""
End Sub

mahdif123
چهارشنبه 22 خرداد 1387, 09:21 صبح
با سلام

به اين لينك هم مراجعه كن خواسته ات را برآورده مي كند . تايپيك اميرزاده برنامه اي جامع را گذاشته اند مي تواني دانلود كني .
نام فرم frmDragDropListBoxes مي باشد .
--------------------------------
http://barnamenevis.org/forum/showthread.php?t=87658

dadsara
چهارشنبه 22 خرداد 1387, 11:06 صبح
باسلام خدمت جنابعالی
دوست عزیز فکر کنم لینک را اشتباه نوشته ای

mahdif123
چهارشنبه 22 خرداد 1387, 11:18 صبح
با سلام

لينك اشتباه نيست . اگر قسمت ((نمونه فرم جامع براي نحوه كار كردن با فرمها)) بروي و لينك مربوطه را دانلود كني و فرمي كه گفتم را باز كني ، مي تواني از آن استفاده كني .