هل من طريقه لارسال Listbox عن طريق الوينسوك؟

والله يا أخي أنا تعاملت مع الوينسوك بسيط جداً لأنني لا أملك شبكة سوي للتجربة فقط !!

لكن رأيي الشخصي ، فكرة إرسال قيمة من ListBox تتم مثلما يتم إرسال صورة شخصية وذلك حسب !!!!

أولاً ، إذا كانت القائمة ListBox بياناتها محدودة أو صغيرة فيمكنك دمج محتوياتها علي متغير من نوع String وتقسيمها علي مصفوفة Array كما يلي :

S = ""
For X = 0 To List1.ListCount - 1
	S = S & List1.ItemData(X) & ":" & List1.List(X) & ","
Next

ومن ثم إرسال المتغير S عبر الوين سوك ( إبحث بالمنتدي ستجد العديد من الأمثلة ) ، وفي الجهاز الـ Clint يتم إستقبالها وتقسيمها كما يلي :

Dim strArray() As String
strArray = Split(S,",")
For X = 0 To UBound(strArray)
	List2.AddItem "--"
	List2.ItemData(X) = Left(strArray(X),InStr(strArray(X),":") - 1)
	List2.List(X) = Mid(strArray(X),InStr(strArray(X),":") + 1)
Next

ثانياً ، إذا كانت مربع النص يحمل بيانات كبيبة فإرسل قيمة عنصر عنصر

For X = 0 To List1.ListCount - 1
   S = List1.ItemData(X) & "," & List1.List(X)
Next

وفي هذه الحالة يتم إستقبال الـ Clint جزء جزء من مربع القائمة

والله أعلم

شكراً

الف شكر اخي كايرو على مجهودك معى

وإن شاء الله هجرب طريقتك

وهديك ردي لكن هيكون متاخر شويه عشان انا هطبقو بعد بكره

والف الف شكر لك

تحياتي....................

فؤاد سعد