منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود حول حدث KeyPress ، إنشاء حدث عند اكتشاف كتابة شئ محدد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم و رحمه الله و بركاته ..

كيف مثلا عندما يكون البرنامج يعمل و انا مثلا اقوم بمشاهدة المنتدي و قمت بإضافة وليكن مثلا رد علي اي موضوع و ضمن الكتابه "YousefOkasha" علي سبيل المثال ..

فيظهر MsgBox و به مثلا "Hi" ..

و كل ذلك في حد KeyPress او بالإختصار ، إكتشاف ما يكتبة المستخدم ..
فكيف بعمل هذا  Huh
وعليكم السلام ورحمة الله وبركاته.
هل تريد من البرنامج ان يراقب موضوع معين؟
للاسف اخى YousefOkasha
فالموضوع الذى تطلب بخصوصه لا يدل الا على عمل شئ
تخص مراقبة الخصوصية والتعامل بطريقة غير مباشرة

ولكن ليعم الفائدة من حيث السؤال نظرياً للجانب الايجابي
كل الفكرة هو كتابة كود التحقق داخل  KeyPress

وليكن ان يكون التالى
كود :
           Dim Search As String
           Dim Where As Object
           Search = InputBox("YousefOkasha")
           Where = InStr(TextBox1.Text, Search)
           If Where IsNot Nothing Then
               MsgBox("Hi")
           End If

بحيث مع كل حرف يكتب بمجرد تكتمل الجمل او تتواجد فى الـ TextBox
سيقوم بعرض الرسالة Hi

الى هنا قد عممت الفائدة بالايجابي
ولكن لا يمكننى الراد بافادة اكثر من ذلك

فطريقة استخدام الكود عائد اليك
فانا غير مسؤل فى الاستخدام فيما لا يرضي الله

تحياتى لك
وتمنياتى لك التوفيق
صراحا ..
اقوم بعمل برنامج لأخزي الصغير و هو بعمر 6 سنوات ..
فيستخدم جهاز الكمبيوتر في الألعاب كثيرا .. 
و يريد حفظ الكلمات الخاصة بالالعاب و ليكن مثلا لعبه GTA إذا كتبت جملة "hesoyam" فسيزيد من المال و الدم
فعندما يكتب هذه الجملة يظهر msgbox ..