كيف أختار كلمة من بين جملة؟؟؟؟؟؟؟

مغلق

بدأه TreasureMaster في 20 يوليو 2005 · 13 رد · 912 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#120 يوليو 2005 في 11:25 صاحب الموضوع

كيف أظهر الكلمة التي يمر عليها المؤشر في لابلر معين عن النقر الأيمن عليها؟؟؟؟؟

ولاحظ أنني لا أريد أن أظهر كل الجملة ولكن الكلمة فقط.

إن كان ذلك مستحيل في الفيجوال بيزيك أخبروني رجاءاً!!!!!!

#220 يوليو 2005 في 20:21

جميلة كلمة (مستحيل) دي..

مفيش داعي لكلمة مستحيل..لأنها أمور بسيطة ولا ايه؟

/index.ph...topic=68530&hl=

تم تعديل هذه المشاركة بواسطة Pharaonic_Guy في 20 يوليو 2005 في 20:23

Islam Religion

#320 يوليو 2005 في 21:22

مشكور أخي ولكن

هذا إن كانت الكلمة في مربع نص :angry:

ولكن ما لو كانت الكلمة ضمن جملة مكتوبة كـ Caption لـ Label فهل إذا وقف المستخدم على هذا اللابل وضغط بالزر الأيمن للفأرة هل من الممكن أن تظهر الكلمة في لابل آخر لوحدها؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

رجاءاً ساعدني :(

#420 يوليو 2005 في 21:45

أعطني الجملة الموجودة في ال Label والكلمة التي تريد استخلاصها منه؟

Islam Religion

#521 يوليو 2005 في 14:51

يوجد في البرنامج الذي أقوم به لابلز كثيرة وأريد إذا ضغط المستخدم بالزر الأيمن للماوس على أي منها أن يقوم البرنامج بقراءة الكلمة التي ضغط عليها المستخدم والتي هي داخل لابلر (أي جزء من جملة في لابلر) ولعمل ذلك أحتاج أن يعرف البرنامج ما الكلمة التي ضغط عليها المستخدم علماً بأن الجمل تتغير باستمرار.

#621 يوليو 2005 في 23:44

طيب

هل المطلوب مني الآن أن أعطيك الإجابة الشافية .. نتيجة للإضافات التي زالت الغموض تماما ؟

بالله عليك... ماذا أستفدت عندما أضفت وقلت لي ( علماً بأن الجمل تتغير باستمرار. ) ..

فإذا كنت تريد حل لهذا الموضوع.. فأرجو إرفاق مشروعك هنا - أو جزء منه إذا كان مشروع سري ويتبع البنتاجون- ..

لأنني لا أعلم أصلا فيما تستخدم تلك ال Labels الكثيرة ...وما هي الجمل الموجودة بها .. والتي سبق وأن طلبتها منك..

Islam Religion

#722 يوليو 2005 في 02:48

بسم الله الرحمن الرحيم

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

اولا اود ان اشكر بحق الاخ Pharaonic_Guy الذي لا افتح مشاركة يسأل فيها سائل عن امر يحتاجه إلا ووجدت الاخ Pharaonic_Guy اول المعينين له ... فجزاه الله كل الخير عنا اجمعين.

و بالنسبة لك عزيزي TreasureMaster فيبدو انك تريده في شيىء مثل برنامج مسابقة او لعبة او ما شابه ... و اظن شيئا مثل هذا الكود سيفيدك بإذن الله تعالى :

Function GetWord(lbl As Label, ByVal xPos As Long) As String
    Dim Wdt As Long: Wdt = -1
    Dim Idx As Long, I As Long
    
    If lbl.RightToLeft Then xPos = lbl.Width - xPos
    
    For I = 1 To Len(lbl)
        If Mid(lbl, I, 1) = " " Then
            Idx = Idx + 1
        Else
            Wdt = Me.TextWidth(Left$(lbl, I))
            If Wdt > xPos Then Exit For
        End If
    Next
    
    Dim Words: Words = Split(lbl, " ")
    
    If UBound(Words) >= Idx Then
        GetWord = Words(Idx)
    End If
End Function

الدالة التي كتبتها سابقا تحتاج الى مدخلين يمرران لها .. الاول هو الـ Label الذي تم النقر عليه و الثاني هو الموقع X الذي نقر عليه وسوف تعيد بإذن الله تعالى الكلمة التي تم النقر عليها

و شترط شيئين لعمل الدالة بشكل سليم الاول ان تكون الخاصية AutoSize لكل Label تساوي True و كذلك الخاصية RightToLeft تكون True بالنسبة للنصوص العربية او False لما سواه.

و على العموم كمثال بسيط تجد في الملف المرفق برنامج بسيط يوضح الفكرة بإذن الله تعالى .

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

RgheedLabelWord.zip

مواضيع برمجية تقنية جديدة

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

• إستغلال خدمة الـ 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.NET VB6.0)

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

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

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

#822 يوليو 2005 في 14:27

شكراً لكم جميعاً على هذا التعاون الإيجابي

وعلى العموم هذا هو المثال ليفهم الجميع ما أقصد

Project.zip

#922 يوليو 2005 في 18:03

بسم الله الرحمن الرحيم

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

اخي العزيز يمكنك ان تقوم بنقل الدالة سابقة الذكر الى البرنامج الذي وضعته في مشاركتك السابقة و سوف تعمل بإذن الله تعالى.

على العموم في الملف المرفق مع هذه المشاركة و ضعت نفس مثالك بعد تطبيق الدالة التي و ضعتها في مشاركتي السابقة عليه ... و بإذن الله تعالى تعمل كما ينبغي لها عند النقر على احد الـ Labels السوداء في البرنامج.

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

Project.zip

مواضيع برمجية تقنية جديدة

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

• إستغلال خدمة الـ 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.NET VB6.0)

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

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

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

#1023 يوليو 2005 في 10:19

عزيزي رغيد الطيب الملف المرفق لايعمل

جزاك الله خيرا

منتديات كوكب الكمبيوتر

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

#1123 يوليو 2005 في 12:31

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

جزاك الله كل الخير اخي العزيز seaprince46 على التنبيه .... وهنا نسخة اخرى من الملف

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

Project.zip

مواضيع برمجية تقنية جديدة

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

• إستغلال خدمة الـ 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.NET VB6.0)

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

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

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

#1224 يوليو 2005 في 17:22

:rolleyes: شكر وتقدير لك أخي رغيد

أعانك الله على إعانة الناس

#1324 يوليو 2005 في 20:35

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

الحمد لله تعالى اخي الحبيب على قضاء حاجتك انه هو السميع المجيب

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

مواضيع برمجية تقنية جديدة

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

• إستغلال خدمة الـ 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.NET VB6.0)

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

• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)

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

#1424 يوليو 2005 في 21:25

فكرة الكود الذي وضعه أستاذي رغيد الطيب رائعة للغاية وأشكره عليها كثيرا , وأنا عن نفسي أستفدت منها..

Islam Religion

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

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

كيف اختار بين تقريرين report viewer4 رد · 1 نوفمبر 2013
كيف احذف كلمة في جملة ؟9 رد · 5 أكتوبر 2007
كيف تجزء كلمة او جملة الى احرفها-- مهم2 رد · 24 مايو 2002
كيف أكتب جمله SQL تقرئ من بين تاريخي بواسطه DATATIMEPICKER3 رد · 18 سبتمبر 2006
كيف اختار الوضع على okاو Cancel فى5 رد · 13 مارس 2006
كيف أختار الانكودنج المناسب للغة المناسبة؟7 رد · 15 فبراير 2009