أخي الكريم
جميع الشركات تقريبا تعتمد على قواعد بيانات فيها إحداثيات كل آية ، ويتناقلون بينهم هذه الإحداثيات بشكل عام ، وإن كان بعض الشركات لديها عملها الخاص ، وعن طريق هذه الإحداثيات يتم رسم الخط أو تظليل الآيات التي تقرأ ، بشرط أن يكون كل مقطع فيه إحداثية مرتبط بملف صوتي ، أو نحو ذلك
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
إن كان المطلوب من المثال الذي وضعه الاخ العزيز صصصص أن يتم تحويله بحيث يمكن تمييز Pharaonic_Guy و الذي ناقشناه مسبقا على الرابط
فيمكن تعديل الدالة GetWord قليلا حتى تعيد الكلمة التي ثم النقر عليها و كذلك موقعها في الليبل و بالتالي يمكن ان نضع ليبل آخر عليه بلون مختلف و يحتوي على الكلمة المراد تحديدها فقط ... و بهذا تصبح شفرة الدالة كالتالي :
Function GetWord(lbl As Label, ByVal xPos As Long, WordPos As Long) As String
Dim Pos As Long, I As Long
Dim Words, word: Words = Split(lbl, " ")
If lbl.RightToLeft Then xPos = lbl.Width - xPos
Dim SpaceSize As Long: SpaceSize = Me.TextWidth(" ")
Dim txt As String
For I = 0 To UBound(Words) ' To 0 Step -1
word = Words(I)
Dim Size As Integer: Size = Me.TextWidth(Words(I) + " ")
txt = txt + Words(I) + " "
Pos = Me.TextWidth(txt)
If Pos > xPos Then
Pos = lbl.Width - Pos + Me.TextWidth(" ") '+ Size
WordPos = Pos + lbl.Left
GetWord = word
Exit Function
End If
Next
End Functionاعتذر عن عدم الخوض في التفاصيل لضيق الوقت قليلا و لكن يمكن الرجوع للرابط السابق لشيء من التوضيح
السلام عليكم و رحمة الله و بركاته
مواضيع برمجية تقنية جديدة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج للبحث في الملفات ومحتواياتها (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
مواضيع برمجية تقنية قديمة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NETVB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
الأستاذ الكريم زغيد الطيب
المثال فعلا جميل جدا
لكني لا حظت أنه عند تكبير الخط لا ينفع , وقد كبرت خط الأداتين معا طبعا
كما أنها لا تصلح إلا لسطر واحد من الليبل فقط
عموما إذا تيسر لك الوقت فحول أن تحل لنا هذه المشكلة
وجزاك الله خيرا
مجرد إنسان كتب:أخي الكريمجميع الشركات تقريبا تعتمد على قواعد بيانات فيها إحداثيات كل آية ، ويتناقلون بينهم هذه الإحداثيات بشكل عام ، وإن كان بعض الشركات لديها عملها الخاص ، وعن طريق هذه الإحداثيات يتم رسم الخط أو تظليل الآيات التي تقرأ ، بشرط أن يكون كل مقطع فيه إحداثية مرتبط بملف صوتي ، أو نحو ذلك
هذا أمر متعب جدا جدا
جزاك الله خيرا أخي الكريم
إذا هذه المسألة فقدنا فيها الأمل
بقيت مشكلة عرض الرواة في الحديث وهذه هي الأهم بالنسبة لي , وسأتعابعها معكم في موضوعها
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
اخي العزيز حبذا لو جعلت حجم الخط في كلا من الفورم و الليبلين بنفس الحجم و النوع لان الكود المرفق يعتمد على حجم و نوع خط الفورم و ذلك لاستخدامي الدالة TextWidth التابعة للفورم.
فكرة قد تكون مفيدة جدا و هي ان تستخدم RichTextBox ففيها من الامكانيات ما سيساعدك كثيرا مثل تغير الخط و اللون
السلام عليكم و رحمة الله و بركاته
مواضيع برمجية تقنية جديدة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج للبحث في الملفات ومحتواياتها (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
مواضيع برمجية تقنية قديمة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NETVB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
الأستاذ الفاضل رغيد الطيب
غيرت الفونتات جميعها ونجحت معي والحمد لله
جزاك الله خيرا
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…