منتديات المنة

منتدى خاص بالأورجات شراء - بيع - تبادل أصوات
 
الرئيسيةالبوابةمكتبة الصورالتسجيلدخول

شاطر | 
 

 منع اللصق في الحقول

اذهب الى الأسفل 
كاتب الموضوعرسالة
mefayed
مدير عام المنتدى
مدير عام المنتدى
avatar

عدد الرسائل : 495
تاريخ التسجيل : 07/11/2006

مُساهمةموضوع: منع اللصق في الحقول   الجمعة ديسمبر 15, 2006 8:05 pm

منع اللصق في الحقول

السلام عليكم
طلب منى اكتر من مرةكود لمنع اللصف في التكست بوكس
وكان الرد عند السؤال على هذا الأمر هذا الكود
Private Sub Timer1_Timer()
Clipboard.
Clear
End Sub

ولكن هذا سيجعلك لاتستطيع نسخ اي شيئ أثناء عمل البرنامج أو بمعني أدق طالما ان التايمر شغال
ولذلك فكرت في حل اخر والحمد لله اشتغل معايا تمام

وهو :
هنحط تايمر على الفورمة ونحط فيه الكود السابق عادي جدا زي كده
Private Sub Timer1_Timer()
Clipboard.
Clear
End Sub

ونخلي خاصية Enabled قيمتها False
ونيجي في حدث الـ GotFocus الخاص بالتكست بوكس ونحط الكود كده
Private Sub Text1_GotFocus()
Timer1.Enabled =
True
End Sub
وبعدين نيجي في حدث LostFocus الخاص بنفس التكست بوكس ونضع الكود كده
Private Sub Text1_LostFocus()
Timer1.Enabled =
False
End Sub
وبكده لما يجي يحاول يكتب في التكست بوكس هيشتغل التايمر ويمسح الموجود في الحافظة بتاعت الويندوز وبالتالي مايبقاش في حاجة يقدر المستخدم يحطها وتفشل عملية النسخ
ولما يشيل المؤشر من التكست بوكس هيتنفذ الكود التاني واللي بدوره هيقوم بوقف التايمر
وبكده يتم منع اللصق داخل التكست بوكس فقط بينما تقدر تنسخ وتلص داخل او خارج البرنامج بشكل طبيعي جدا
وماننساش طبعا نعطي للتايمر قيمة في الـ Interval علشان يطبق الكود
أتمنى يكون الموضوع سهل
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://mady.niceboard.com
مروى
مشرفة منتدى المرأة


عدد الرسائل : 87
تاريخ التسجيل : 22/11/2006

مُساهمةموضوع: رد: منع اللصق في الحقول   الأحد يوليو 15, 2007 6:02 pm

لماذا كانت الاستفادة من موضوعات البيزك صعبة هكذا

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

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات المنة :: قسم التكنولوجيا المتطورة :: منتدى الفيجوال بيزك-
انتقل الى: