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

كيف أستطيع أخذ كلمة من نص عن طريق مؤشر الماوس

مغلق
بدأه HMS في 20 ديسمبر 2004 · 7 رد · 686 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لو إفترضنا أنه يوجد عندي TextBox وفيه نص طويل، أريد طريقة تمكنني من أخذ كلمة من الكلمات بمجرد تحليق مؤشر الماوس فوقها، فمثلاً لو كان النص:

اقتباس
HI, How are you doing today?

فإنه بمجرد مرور المؤشر على كلمة you فإنه البرنامج يأخذها ويضعها في متغير String،وكذلك الامر بالنسبة للكلمات الأخرى، والحاجة الى ذلك هو أنه يوجد لدي قاعدة بيانات جاهزة عبارة عن مرادفات للكلمات بلغتين أجنبيتين وأريد أن أعمل قاموساً بتلك الصورة.

علماً بأنني إطلعت على برامج كثيرة تقوم بالأمر نفسه، فهل يستدعي الأمر إستخدام API؟ وإن كان الجواب "نعم" فما هي؟ وهل من طريقة مباشرة في ال NET.

أشكر لكم تعاونكم مسبقاً.

Learn Japanese :>>> http://www.nouben.com/

#2

السلام عليكم

الأخ العزيز هارون

بالطبع يجب إستخدام دوال API و قد قمت بعمل مثل هذه الخاصيه من قبل و لكن بفيجوال بيسيك 6 لو أردت لارسلت لك المثال وقد إستخدمت 3 ملفات Dll لذلك الغرض لا أعلم ما أصلهم لكن أحدهم أعطاهم لي و هذه هي التعريفات لدوال هذه الوظيفه و أسماء الملفات موضحه

Public Declare Function BL_SetFlag9X Lib "nhw9X.dll" Alias "BL_SetFlag32" (ByVal nFlag As Integer, ByVal hwnd As Long, ByVal MouseX As Integer, ByVal MouseY As Integer) As Long
Public Declare Function BL_GetText9X Lib "nhw9X.dll" Alias "BL_GetText32" (ByVal lpszCurWord As String, ByVal nBufferSize As Integer, lpWordRect As RECT) As Long
Public Declare Function BL_SetFlagNT Lib "nhwNT.dll" Alias "BL_SetFlag32" (ByVal nFlag As Integer, ByVal hwnd As Long, ByVal MouseX As Integer, ByVal MouseY As Integer) As Long
Public Declare Function BL_GetTextNT Lib "nhwNT.dll" Alias "BL_GetText32" (ByVal lpszCurWord As String, ByVal nBufferSize As Integer, lpWordRect As RECT) As Long
Public Declare Function SetNHWNT Lib "nhwNT.dll" Alias "SetNHW32" () As Boolean
Public Declare Function ResetNHWNT Lib "nhwNT.dll" Alias "ResetNHW32" () As Boolean

تم تعديل هذه المشاركة بواسطة khabini.com في 20 ديسمبر 2004 في 11:46

#3

أخي khabini.com،

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

شكراً عزيزي ثانية على جوابك ومساعدتك.

أخوك

هارون

Learn Japanese :>>> http://www.nouben.com/

#4

تفضل أخي الكريم

هذه هي الملفات

و أتمنى أن تتحف أعضاء المنتدى بدرس عن كيفية إستخدامها

و أنا مستعد أساعدك في أي حاجه

بس المشكله ان طريقة إلقائي مش كويسه علشان كده أتمنى أن تفييد انت أعضاء المنتدى و تشرحها لهم

الملفات.rar

#5

شكراً أخي الحبيب، وسأعمل بإذن الله ما تفضلت به من شرح حال تمكنني من فهم المكتبات الثلاث.

شكراً ثانية.

تم تعديل هذه المشاركة بواسطة HMS في 21 ديسمبر 2004 في 02:21

Learn Japanese :>>> http://www.nouben.com/

#7

أشكر لطفك أخي khabini.com،

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

إسم الكتاب: Subclassing and Hooking with VB and VB Net

رابط المكتبة:

/index.php?showtopic=52429

Learn Japanese :>>> http://www.nouben.com/

#8

أنا بحاول أرد جزء ضئيل من جمايلك عليه و على المنتدى كله

بس مش عارف

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

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

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

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

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

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