منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عمل قاموس للترجمة من صفحة الانترنت ومواقع التواصل الاجتماعي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175)
+--- قسم : قسم اسئلة C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=176)
+--- الموضوع : عمل قاموس للترجمة من صفحة الانترنت ومواقع التواصل الاجتماعي (/showthread.php?tid=21448)



عمل قاموس للترجمة من صفحة الانترنت ومواقع التواصل الاجتماعي - saad.abu - 21-08-17

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

أريد تصميم قاموس يعمل كما يلي:
البرنامج الرئيسي يتم تشغيله عند بدء الويندوز ويتم تصغيره عند الساعة 
عندما يقوم المستخدم بفتح صفحة انترنت ويقوم بتحديد نص معين والضغط على زر معين مثلا ( Ctrl + Mouse Right click ) يتم هنا فتح التطبيق بشكل آلي ويتم وضع النص الذي تم تحديده من قبل المستخدم ويتم وضع هذا النص داخل Textbox داخل التطبيق بحيث يتم بعد فتح التطبيق البحث عن الكلمة التي تم تحديدها في قاعدة البيانات واستخراج المعنى المرادف لها

الموضوع المطلوب المساعدة فيه هو فقط كيف يتم تحديد النص واستدعاء التطبيق المصغر بجوار الساعة وجلب النص المحدد إلى التطبيق داخل Textbox 
والباقي سأكمله وحدي 
ولكم جزيل الشكر والتقدير


RE: عمل قاموس للترجمة من صفحة الانترنت ومواقع التواصل الاجتماعي - سعود - 22-08-17

وعليكم السلام ورحمة الله وبركاته
مارايك بفحص الحافظة ان توفر فيها نص يتم تنفيذ المذكور؟

الكود بفيجوال بيسك لان المطلوب الفكرةSmile
كود :
 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Dim txt As String = Clipboard.GetText
       If IsNothing(txt) = False Then
           If TextBox1.Text.Contains(txt) = False Then
               TextBox1.Text = txt
           End If
       End If
   End Sub



RE: عمل قاموس للترجمة من صفحة الانترنت ومواقع التواصل الاجتماعي - saad.abu - 22-08-17

(22-08-17, 01:24 AM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
مارايك بفحص الحافظة ان توفر فيها نص يتم تنفيذ المذكور؟

الكود بفيجوال بيسك لان المطلوب الفكرةSmile
كود :
 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Dim txt As String = Clipboard.GetText
       If IsNothing(txt) = False Then
           If TextBox1.Text.Contains(txt) = False Then
               TextBox1.Text = txt
           End If
       End If
   End Sub


شكرا جزيلا
هذا الكود يعمل بعد نسخ نص معين
وأنا أريد أن يتم نقل النص بعد عملية التحديد والضغط على مفاتيح معينة ليتم فتح التطبيق بنفس الأمر 
يعني يتم تحديد نص والضغط على مفتاح معين وبهذا المفتاح يتم فتح التطبيق وبنفس الوقت وضع النص المحدد في textbox في التطبيق
أرجو أن يكون مطلبي واضح 

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


RE: عمل قاموس للترجمة من صفحة الانترنت ومواقع التواصل الاجتماعي - سعود - 24-08-17

إقتباس :وأنا أريد أن يتم نقل النص بعد عملية التحديد والضغط على مفاتيح معينة ليتم فتح التطبيق بنفس الأمر
أظن و الله اعلم أنك بحاجة لبرمجة أداة تعمل كإضافة في المتصفح.


RE: عمل قاموس للترجمة من صفحة الانترنت ومواقع التواصل الاجتماعي - saad.abu - 24-08-17

(24-08-17, 01:53 AM)سعود كتب :
إقتباس :وأنا أريد أن يتم نقل النص بعد عملية التحديد والضغط على مفاتيح معينة ليتم فتح التطبيق بنفس الأمر
أظن و الله اعلم أنك بحاجة لبرمجة أداة تعمل كإضافة في المتصفح.

وعلى الأغلب هذا هو الحل 
لكن كيف يتم ذلك