[kafi2030]

بسم الله الرحمن الرحيم

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

تكست بوكس خاص............

بالبرنامج الذي اعمل عليه، سوف يكون هناك عشرات الشاشات، وبالتالي عشرات التكست بوكس، وكلها متشابهة فيما بينها

1- عندما يتم التركيز على التكست بوكس اعمل على مايلي
أ- اغير لون خلفية التكست بوكس الى لون مغاير
ب- اكبر الخط
ج - اغمق الخط
د - انادي للتابع الدي يجعل الادخال على اللغة العربية ( اي ان الكتابة سوف تكون بالعربي)

كود :

Private Sub txt_Beda_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Beda.GotFocus
        set_arabic()
        Me.txt_Beda.Font = New Font(Me.txt_Shra.Font.Name, 14, FontStyle.Bold)
        txt_Beda.BackColor = System.Drawing.ColorTranslator.FromHtml(My_back_Color_tbox)
    End Sub

م - وادا كان التكست بوكس سوف يتم استقبال ارقام فيه
فهنا امنع كتاية اي شي سوى الارقام
اضافة الى تنسيق الرقم

كود :

Private Sub txt_Shra_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_Shra.KeyPress
        If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> ControlChars.Cr AndAlso e.KeyChar <> "." Then
            Beep()
            e.Handled = True
        End If
    End Sub

وعند فقدان التركيز على التكست بوكس
1- اقوم بارجاع الخط الى ماكان عليه
2- ارجاع الخلفية الى اللون الابيض

كود :

Private Sub txt_Beda_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_Beda.LostFocus
        txt_Beda.BackColor = Color.White
        Me.txt_Beda.Font = New Font(Me.txt_Beda.Font.Name, 11, FontStyle.Regular)
    End Sub

لاحظت نفسي انني اقوم بتكرار تلك الاسطر، مثل البغبغاء في كل شاشة من شاشات البرنامج.....علما ان الامور شغالة بسلام

سؤالي :
هل توجد طريقة اطبقها على تكست بوكس واحد، واضع له كل مادكرت

وعندما اريد تكست بوكس ,,,,,,,, اخد من التكست بوكس الجاهز

يعني بدي تكست بوكس زكي، يفهم هلي انا عايزه.........وفق مادكرت اعلاه
لتجنب مئات الاسطر المتشابهة بالبرنامج

والف شكر