تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
منع الضغط بالماوس داخل الحقول النصية
#1
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

في شاشة حذف ذاتية، اريد ان اجعل تركيز المستثمر على زري ( حذف - الغاء الامر )
اي بمعنى اخر اريد منعه من التنقل عبر الحقول النصية الموجودة على الشاشة

تم استخدام خاصية tabstop للحقول وجعلها على قيمة false
التنقل عبر التاب اصبح غير متاح امام المستخدم، ولكــــــــــــــــــــــن

ماذا لو ضغط بالماوس داخل احد تلك الحقول ؟؟؟

ملاحظة:
ارجو ان لا يكون الحل بجعل خاصية enable للحقول على القيمة false
وذلك من شانه، جعل الحقول رمادية اللون........وانا لا اريد هذا الحل

ارجو تعديل المثال المرفق، في اطار ما ذكرت اعلاه
والف شكر


الملفات المرفقة
.rar   Desktop.rar (الحجم : 373.99 ك ب / التحميلات : 39)
الرد }}}}
تم الشكر بواسطة:
#2
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Integer) As Long



Private Sub txt_Customer_MouseEnter(sender As Object, e As EventArgs) Handles txt_Customer.MouseEnter, txt_fax.MouseEnter, txt_Mobile.MouseEnter, txt_Phone1.MouseEnter, txt_Phone2.MouseEnter, txt_Zatea_id.MouseEnter
SetCapture(Me.Handle)

End Sub
ربما هناك طرق اكثر فعالية ولكن هذا ما وجدته اثناء بحثي قبل فترة لتنفيذ هذا الامر
الرد }}}}
تم الشكر بواسطة:
#3
الف شكر اخي
سنوسي
على اجابتك

فعلا الكود الذي تفضلت به، نجح في منع المستثمر من الضغط على الحقول النصية عن طريق الماوس،
ولكــــــــــــــن
بحاجة الى منع تغيير مؤشر الماوس عند الاقتراب من الحقول النصية، اي ان يبقى المؤشر على شكل سهم
الرد }}}}
تم الشكر بواسطة:
#4
وجدت حل ابسط
ضع الكود
كود :
SendKeys.Send("{TAB}")

في حدث GotFocus للتيكست بوكس
الرد }}}}
تم الشكر بواسطة:
#5
شكرا اخي
سنوسي على تواصلك معي

فعلا الحل الثاني واضح اكثر للفهم، وابسط

ولكن مازالت مشكلة شكل مؤشر الماوس ، الذي يجب ان يبقى على شكل سهم، لا ان يتغير الى الشكل المعتاد i عند الوقوف على النص
الرد }}}}
تم الشكر بواسطة:
#6
من خصائص التكست بوكس غير Cursor الى default
>> ولاحظت انه يمكن الضغط بزر الماوس الايسر غير ShortcutsEnabled من نافذة الخصائص للتكست بوكس الى false
الرد }}}}
تم الشكر بواسطة:
#7

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




من خلال سؤالك وتفاعل الأخ
سنوسي معك له كل التحية والتقدير، فهمت أن هدفك منع المستخدم من نسخ البيانات التي في مربعات النص

فالحل من ناحية
الفأرة (الماوس) قد ذكر الأخ سنوسي في رده الأخير.

ولكن تبقى ناحية
لوحة المفاتيح (الكيبورد)

إذا كنت تريد التطبيق على جميع مربعات النص يكون كالتالي
- من نافذة الخصائص غيّر الخاصية KeyPreview لـ Form إلى True
- ثم ضع هذا الأمر (مع تغيير الاسم
Button1 إذا كان مختلفاً)
PHP كود :
Private Sub Form1_KeyDown(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyEventArgsHandles Me.KeyDown
    Me
.Button1.Focus()
End Sub 


أما إذا كنت تريد التطبيق على بعض مربعات النص وليس الكل فيكون كالتالي (مع إضافة مربعات النص القصودة بعد كلمة
Handles تفصل بينهم بفاصلة)
- ضع هذا الأمر
PHP كود :
Private Sub TextBox_KeyDown(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyEventArgs_
Handles TextBox1
.KeyDown
    
If e.Modifiers Keys.Control Then
        e
.Handled True
        sender
.SelectionLength 0
    End 
If
End Sub 


وإذا كنت متضايقاً من شكل مؤشر الفأرة على مربعات النص فمن نافذة الخصائص غيّر الخاصية
Cursor لمربعات النص إلى Default




السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#8
ابو رائد ردك رائع وتنسيقك للرد أروع
لو سمحت بالله مر على موضوعي اللي تحت هذا
هو موضوعي الوحيد
والله مسبب لي دوخة
ولك الشكر الجزيل
الرد }}}}
تم الشكر بواسطة:
#9
السلام عليكم

شكرا اخوتي
سنوسي
ابو رائد

على اجابتكم الرائعة والمفيدة

بقيت لدي مشكلة وحيدة فقط، موضحة بالصورة المرفقة
وهي تتمثل بامكانية المستثمر من الضغط بالماوس على الليست بوكس المتضمنة ( زبون - مورد - شريك) .....مما يؤدي الى تحريك المؤشر الى ما تم الضغط عليه

رغم انني وضعت في حدث Gotfocus لليست بوكس الكود المذكور senkeytab

هل بالامكان منع المستثمر من الضغط بالماوس داخل حقل الليست بوكس

والف شكر


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 49 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  [سؤال] حفظ النص المكتوب داخل listBox فارس جراح 7 105 15-11-16, 04:00 AM
آخر رد: LoveVb
  [سؤال] تكرار الضغط في مكان ما في الشاشه Test 8 124 06-11-16, 07:09 PM
آخر رد: silverlight
  تشغيل الفورم بتاريخ الضغط علي الزر ddemed 3 119 28-10-16, 10:01 AM
آخر رد: ddemed
  كيفية إضافة فورم داخل بانل في الفورم الرئيسي bidaya 4 122 21-10-16, 04:40 AM
آخر رد: silverlight
  هل يمكن عرض صفحة اكسل داخل نموذج فيجوال بيسيك 2010 walkady 4 151 18-10-16, 07:52 PM
آخر رد: sayedf1
  [سؤال] مشكلة في الحفظ داخل قاعدة البيانات عن طريق Dataadaptor alrawi84 1 81 16-10-16, 11:02 PM
آخر رد: alrawi84
Big Grin كود الضغط على الشاشة J3ffar 1 90 11-10-16, 12:24 PM
آخر رد: myalsailamy
Exclamation [VB.NET] إغلاق الـ Form عند الضغط على زر معين Doctor GME 3 108 07-10-16, 10:54 PM
آخر رد: Doctor GME
Exclamation [VB.NET] البحث عن كلمات داخل Textbox Doctor GME 12 410 21-09-16, 10:00 PM
آخر رد: أبو ناصر

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم