أحتاج كود تحويل الكتابة من صغير لكبير والعكس

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

اقتباس

كيف أخلي المربع النص ما يقبل غير حروف ما يقبل أرقام .

في الحدث KeyPress ضع الكود التالي

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If (Not (Char.IsLetter(e.KeyChar))) Then
            e.Handled = True
        End If
    End Sub

اقتباس

فأحتاج كود اخلي البرنامج إذا كتب الواحد أسمه في Textbox1 بالحروف الصغيرة مجرد ما ينتقل Textbox2 يقوم البرنامج بتحويل الحروف من صغيره إلى كبيرة ... أو العكس لو احتجت أنه يحولها من كبيره إلى صغيرة ممكن أحد يساعدني فيها

في الحدث Leave ضع الكود التالي

Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
        'Convert to uppercase
        TextBox1.Text = TextBox1.Text.ToUpper()
        'Or to lowercase
        'TextBox1.Text = TextBox1.Text.ToLower()
    End Sub

يعطيك ألف عافية أخوي Rose Muhammed وشكرا على التوضيح .... وجربت الكود مرره رائع وأشتغل صح .. بس عندي سؤال أخر ... طبعاً انا جالس اتعلم من كتاب وبعد محاولات عده ما عرفت للكود اللي انت كاتبه لسبب أنه الكتاب كان معطيني التمرين أني اسوي الشغله هذي عن طريق الأمر TextChanged فلما كنت أضغط دبل كلك على textbox كان يفتح لي الأمر التالي اللي هو طالبة مني الكتاب ( المثال بالأسفل )

كما أن الكتاب لمح لي بأستخدم ()UCase ..... هل هناك طريقة أخرى يعني بنفس متطلبات الكتاب أو هي طريقة واحدة التي ذكرتها لي ؟

وشاكر لك على تجاوبك مرره ثانيه ويعطيك ألف عافية

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

اقتباس

يعطيك ألف عافية أخوي Rose Muhammed وشكرا على التوضيح .... وجربت الكود مرره رائع وأشتغل صح .. بس عندي سؤال أخر ... طبعاً انا جالس اتعلم من كتاب وبعد محاولات عده ما عرفت للكود اللي انت كاتبه لسبب أنه الكتاب كان معطيني التمرين أني اسوي الشغله هذي عن طريق الأمر TextChanged فلما كنت أضغط دبل كلك على textbox كان يفتح لي الأمر التالي اللي هو طالبة مني الكتاب ( المثال بالأسفل )

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

البرمجة بحر , نفس الوظيفة تقدر تعملها بكذا طريقةو هذا يعتمد على اسلوبك .

اقتباس

كما أن الكتاب لمح لي بأستخدم ()UCase ..... هل هناك طريقة أخرى يعني بنفس متطلبات الكتاب أو هي طريقة واحدة التي ذكرتها لي ؟

في الحقيقة انا مبرمجة بلغة السي شارب , بس لي محاولات بالفيجوال بيسك :happy: , هذا اللي ذكرته هي الطريقة الي استخدمها دائماً لانه اعتقد الـ Function

UCase() مو موجودة في السي شارب

عموماً انا جربت هذه الوظيفة نفس الشيء , تمرر لها النص ترجع لك النص بالكابيتل اذا استخدمت

UCase('Your Text')

وراح يرجع لك بالسمول اذا استخدمت

LCase("Your Text")

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

اخي جرب الكود التالي في حدث الـ Leave

TextBox1.Text=TextBox1.Text.ToUpper()

VB Helper كتب:

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

اخي جرب الكود التالي في حدث الـ Leave

TextBox1.Text=TextBox1.Text.ToUpper()

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

:mellow: ذكرت ذلك مسبقاً.

:happy:شكرا لك أخي VB Helper ذكرت لي الأخت Rose وجربتها وشغاله صحيح يعطيك العافيه ومانستغني

اختي Rose

جربت الكود السابق

UCase('Your Text') قبل لا انزل الموضوع طبعا هذا الكود يحولها حروف كبيره مباشره وقت الكتابه ولكني واجهت مشكله وهي ان اشارة الماوس لما استعمل الطريقه هذي ما يتحرك من مكانه يبقى في اول box وهذا وجدته مزعج لانك لو غلطت بحرف تظطر تستعمل الماوس وتحرك المؤشر الماوس لأخر حرف عشان تقدر تمسح ..... إلا إذا فيه طريقه تصحح فيها هذي المشكله ز

تحياتي للجميع ولتجاوبكم الرائع:)

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

طيب اذا انت تبغى التحويل مباشرة عند الكتابة -يعني اول ما يكتب حرف على طول يغيره الى كابيتل او سمول - استخدم الحدث KeyPress كما في الكود التالي :

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not (e.KeyChar = Chr(8)) Then ' if not backspace
            If (Char.IsLetter(e.KeyChar)) Then 'check if it's letter
                e.KeyChar = Char.ToUpper(e.KeyChar) ' if so convert it to Upper 
            Else
                e.Handled = True
            End If
        End If
    End Sub

ببساطة في الكود هذا في البداية يفحص اذا كان المدخل ليس BackSpace

اذا كان نعم يفحص اذا كان حرف يحوله مباشرة للكابتل والا لن يتم طباعته.