[wolf1120]

استفسار عن اداة Winsock1

في زر الارسال

كود :

If Winsock1.State <> 7 Then
   Label8.Caption = "connect"
   Exit Sub
End If

Winsock1.SendData "15" & Trim$(Text1.Text) & Trim$(Text2.Text)

وانا لديا 2 text

كيف اقوم بضبط :زر ارسال بحيث


text=time
text2=date


بحيث text1 يحمل الوقت

و

text2 يحمل التاريخ

انا وضعت كود ارسال بهد الشكل

كود :

Winsock1.SendData "15" & Trim$(Text1.Text) & Trim$(Text2.Text)

لكنه يقوم بارسالهما مع بعض في برنامج العميل

وانا في برنامج العميل لديا 2 textbox


فيظهر في التكست 1 بهد الشكل 14.52 28/05/2013

والتكست 2 يخرج فارغ بحيث التاكست يحمل قيمة التاريخ وحده

والتكست 1 يحمل قيمة الوقت وحده

المطلوب تعديل على كود الارسال هدا

كود :

Winsock1.SendData "15" & Trim$(Text1.Text) & Trim$(Text2.Text)

ليظهر كما في الصورة المرفقة