يا اخوة كيف يمكن تلوين الكلام عن طريق الوينسوك
ويصل اللون الى برنامج العميل بنفس اللون الذى اخترته
تلوين الكلام عن طريق الوينسوك
مغلق
هذا ليس عن طريق الوينسك و لكن عن طريق الكود فكر في الأمر علي النحو التالي سوف أضيف كود يخبر البرنامج علي أن التكست القادم ملون و التكست الذي سوف يعرض ملون
أخوك عمرو عيسي
جزاكم الله خير يا اخى بس باله عليك لو تعرف الفكرة اشرحها لنا ويبقى لك جزيل الشكر
كما قال الاخ R0OT مشكورا ان هذه الخاصية ليست بعلاقة مع الوين سوك ،
هي مجرد ارسال كود الرقم مع الرسالة وعند الكلاينت يتم تلوين الرسالة باللون المرسله معها ، وهذا كما يحدث في برامج المحادثة .
مثال :
عند ارسال الرسالة تكون كالتالي:
<Hello mohammed|255|Tahoma|9>
حيث تكون > هي بداية الرسالة و < هي نهاية الرسالة وما بينهما الرسالة وموصفاتها مثلا 255 هو لون الرسالة و الـTahoma هو نوع الخط و 9 هو حجم الخط وهكذا ، ويتم الفصل بينهما برمجيا عند الكلاينت .
لفحص وصول الرسالة بالكامل :
Dim M_FullMessage As String Dim M_MessageParam() As String Dim M_Msg As String, M_Color As String Dim M_Font As String, M_FontSize As String P1 = InStr(1, Text1.Text, "<") P2 = InStr(2, Text1.Text, ">") If P1 > 0 And P2 > 0 Then '*** M_FullMessage = Mid(Text1.Text, P1 + 1, (P2 - P1) - 1) M_MessageParam = Split(M_FullMessage, "|") M_Msg = M_MessageParam(0) M_Color = M_MessageParam(1) M_Font = M_MessageParam(2) M_FontSize = M_MessageParam(3) End If '***
تحياتي لكم جميعا
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
وهذا مثال عملي افضل من الحكي :)
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
جزاك الله خير يا اخى والله مش عارف كيف اشكرك
ربنا يجازيك خير
هذا الموضوع مغلق.