بسم الله الرحمن الرحيم
تكست بوكس خاص............
بالبرنامج الذي اعمل عليه، سوف يكون هناك عشرات الشاشات، وبالتالي عشرات التكست بوكس، وكلها متشابهة فيما بينها
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
لاحظت نفسي انني اقوم بتكرار تلك الاسطر، مثل البغبغاء في كل شاشة من شاشات البرنامج.....علما ان الامور شغالة بسلام
سؤالي :
هل توجد طريقة اطبقها على تكست بوكس واحد، واضع له كل مادكرت
وعندما اريد تكست بوكس ,,,,,,,, اخد من التكست بوكس الجاهز
يعني بدي تكست بوكس زكي، يفهم هلي انا عايزه.........وفق مادكرت اعلاه
لتجنب مئات الاسطر المتشابهة بالبرنامج
والف شكر