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

وجدت موبايل للبالونات اريده بالعربية

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

وجدت كود يظهر النص المراد اظهاره عندما يكون الموشر

فوق الاداة علي شكل بالون

المشكة انه لا يقبل العربية

فهل من حل الرجاء التعديل علي الملف

وتحياتي للجميع

tooltips.rar

#2

السلام عليكم ورحمة الله وبركاته

اخي

انا غيرت محتوى التكست الى انجليزية ولكن ظهرت الكتابة غير معروفة

اظن ان الكود لا يظهر محتوى التكست

startingprogremmer.jpg
#3

ابحث في داخل المشروع عن

Function CustomTipProc

ثم جد السطر

' create and select the font to be used

الان ضع السطر التالي

lf.lfCharSet = 178

وسيظهر العربي بشكل صحيح

#4

بالفعل أخي الكريم TariqVB ، ولكن هناك مشكلة أخري في عملية التعريب وهي

RightToLeft ، فالنص المكتوب يكون يسار البلونة التعليمية وليست يمينها !!!

فما هو حل هذه المشكلة

علي فكرة الكود دة معايا بقالة فترة ولم أجد حل جزري لمشكلة التعريب الجيد للبلونة التعليمية

وشكراً

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#5

والحل وفي ترميز اللغة

وهذا الملف بعد التعديل

tooltips.rar

#6

لجعل النص على اليمين وليس RightToLeft من خلال

الثابت DT_VCENTER يمكن تغييره قيمته بدل 4 الى 2 او اضافة متغير بدل منه واستبدال هذا الثابت بالثابت الجديد مثل

const DT_VRight =&H2

تم تعديل هذه المشاركة بواسطة TareqVB في 3 نوفمبر 2007 في 15:21

#7

أشكرك أخي الكريم TariqVB

ولو أني عارف نفسي بأنني متعب كثير وأحب دائماً أن أنظر للموضوع من جميع جوانبة فآسف جداً إذا كنت مذعج لك وإسمحلي بسؤال آخر !!!

أولاً : البلونة التعليمية جميلة جداً لكن كيف أضع عليها ألوان متعددة مثل لون الخلفية ولون الخط وحجم الخط و .... الي آخرة .

ثانياً : لا أحب البلونة التعليمية التي تتجة بإتجاة واحد ، لاحظ أخي أن البلونة التعليمية تكون أسفل الآداة ( Text1 ) ، ولكنني أرغب في وضعها أعلي الآداة ( Text1 ) كأن هناك شخص يتحدث .

شكراً مرة أخري أخي الكريم علي مساعدتك الجميلة لأعضاء المنتدي الكرام

مع الشكر

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#8

الاخوة الاعزاء لدي طلب

هل يمكن حصر البالونة داخل حدود الفورم

بحيث يتغر موقعا حسب مكان الاداة المراد اضهار نصها

وتكون داخل حدود الفورم

هل يمكن ذلك

#9
اقتباس
البلونة التعليمية جميلة جداً لكن كيف أضع عليها ألوان متعددة مثل لون الخلفية ولون الخط وحجم الخط

نوع الخط سهلة فقط ابحث عت font او كما وضعنا lf.lfCharSet = 178 j توجد عندها بقية الخصائص من نوع الخط وحجمه والى اخره الي غير خصائص lf .

الالوان يعتمد على GetSysColorBrush(COLOR_INFOBK) وهي الوان النظام وليس الالوان العادية اي تعتمد على الالوان في جهازك و لتغيير اللون يجب استخدام دالة اخرى والتي هي

Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

والان استبدل GetSysColorBrush(COLOR_INFOBK

بـ

CreateSolidBrush(RGB(200, 120, 111))

بالنسبة لموقع التلميحات يمكن التحكم بها من خلال الدالة ToolTip_DrawBalloon فهي اساس الرسم حيث يوجد الدالة

GetClientRect hwndTip, rc

حيث يوضع موقع الداة في RC لذلك يمكن التحكم بالقيم من خلالها مثلا وضع قيم جديدة

مثل rc.top=1

rc.left=4

وهكذا

بحاجة الى بذل قليل من الجهد حتى نصل الى نتيجة

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

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

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

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

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

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