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

ألغاء أمكانية مسح النص لنصوص محددة مثل ال Console

مغلق
بدأه AmR EiSa في 2 أبريل 2006 · 6 رد · 574 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أعمل حاليا في مشروع و أحتاج بعض المساعدة من أخواني الكرام , الموضوع أني الأن أقوم بتصميم UserControl للمشروع و هذا ال UserControl يحتوي علي Textbox و كل م أريده هو كيف يمكن أن أثبت نص معين بدون أن يمسح يعني علي سبيل المثال كيف يمكن أن يكون كال Console يعني يثبت قيمة نصية مثل c:\windows و لا تمسح , كيف يمكن هذا ؟؟؟؟

عمرو عيسي

#2

اخي root هناك خاصية من خصائص التكست اسمها read only اجعل هذه الخاصية true وسوف تحل المشكلة ان شاء الله

تعلم:كيف تشغل برنامجك (قبل) ما يشتغل ال explorer, مثل ال check desk في الوندوز 98 و me

اللهم عطر يومنا بالايمان وانر قلبنا بالقرآن ورزقنا من حيث لانحتسب واجعل لنا سكينة تطمئن بها روحنا واحفظنا من كل سوء اللهم بارك لنا في رجب وشعبان وبلغنا رمضان آمين يارب العالمين

ranneh.com

#3

أعرف هذا يا أخي الكريم و لكن أنا أريد ال read only هذه لبعض مناطق من التكست و سؤالي هو كيف ؟؟؟

#4

السلام عليكم,

حدد مكان النص المطلوب ومداة حتي نتوصل لنتجية

حل مؤقت حتي الغد ان شاء الله

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        e.Handled = True
    End Sub

تم تعديل هذه المشاركة بواسطة Moudey في 3 أبريل 2006 في 01:23

مواضيع متنوعة

#5

و أنا في الأنتظار أن شاء الله و قد أكون توصلت لحل بفضل الله ثم مساعدتك و لكني أنتظرك و الساعة متأخرة عندي الأن و أريد أن أنام ;)

و جزاك الله خيرا أخي الكريم

أخوك عمرو عيسي

#6
    Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox1.KeyPress
        ' التحقق من وجود النص المطلوب
        If TextBox1.TextLength < 11 Then
            ' إيقاف فاعلية لوحة المفاتيح
            e.Handled = True
            MsgBox("Require begin:   'C:\WINDOWS\'")
            ' إاعادة كتابة النص من جديد  
            TextBox1.Text = "C:\WINDOWS\"
            ' تحديد مكان الكتابة الجديدة
            TextBox1.Select(11, 11)
            ' تفعيل لوحة المفاتيح
            e.Handled = False
        Else
            e.Handled = False
        End If
    End Sub

مواضيع متنوعة

#7

جزاك الله خيرا :) أخي الكريم

عمرو عيسي

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

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

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

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

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

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