الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تكفون ياشباب سؤال ذبحني عن اداة winsock

مغلق
بدأه المبرمجة سوسو في 5 أبريل 2006 · 1 رد · 552 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

-waf

لدي برنامجان معمولان بالفيجوال بيسك احدهم كلاينت والاخر سيرفر ولدي في السيرفر عدد 4 check box واريد من الكلاينت ان يقوم بتشغيلها بتغيير قيمها Value=1او Value=0بواسطة كوماند او شيك بوكس بنفس العدد من برنامج الكلاينت واعتقد عن طريق send data

اتمنى وضحت الصورة اللي ابيها ..... :blink:

وهل بامكاني وضع 10 ادوات winsock في فورم البرنامج وكل واحد منهم يستخدم بورت مخصص ولكن بنفس الاي ابي وبنفس الوقت ؟؟؟؟

واه لو اقدر احل هالمشكلة لانها معذبتني وماني قادر احلها .......

ياريت احد منكم يوضح لي بشكل مبسط

:rolleyes: :rolleyes: :rolleyes: :rolleyes:

------------------------------

اجمل مافي الحياة السعادة ... واجمل مافي السعادة الحب ،،،،،،

#2

قم بارسال اسم الكومبو و الValue كالتالي

wsk.SendData chk.Name & "#" & chk.Value

ثم عند استقبالها قم بعملية استقطاع للنص كالتالي

Dim Data() As String, Buffer as String
wsk.GetData Buffer
Data = Split(Buffer,"#")

ثم قم بتعين القيمة للكومبو الذي يحمل نفس الاسم

Dim C as Control
For Each C In Me
If TypeOf C as CheckBox Then
   If Data(0) = C.Name Then
      C.Value = Val(Data(1))
   End If
End If
Next

هذا شرح مبسط للفكرة و الباقي عليك

تم تعديل هذه المشاركة بواسطة سلام الشرجبي في 6 أبريل 2006 في 08:42

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…