[kafi2030]

شكرا اخي sooriaty
على تواصلك معي

بارك الله فيك

وارجو ان يكون لديك رحابة صدر ومزيد من الوقت، لمزيد من الاسئلة حول الموضوع

1- تم نسخ الكود الى كلاس جديد، والضغط على F5 , وفعلا اصبحت الاداة ضمن صندوق الادوات، وتم سحبها وهي تعمل

ان الدي تفضلت به حضرتك قريب الى حد كبير مما اردت، ولكني ارغب بشدة بتعلم ان اقوم انا بالتصميم
ففي المثال الدي قمت بارفاقه في المشاركة السابقة، يحتوي على اداة التكست بوكس والاكواد المتعلقة باحدات التركيز وفقدان التركيز وهي

كود :

Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
        set_arabic()
        Me.TextBox1.Font = New Font(Me.TextBox1.Font.Name, 14, FontStyle.Bold)
        TextBox1.BackColor = System.Drawing.ColorTranslator.FromHtml(My_back_Color_tbox)
        TextBoxMargin(TextBox1, 0, 5)
    End Sub

كود :

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        TextBox1.BackColor = Color.White
        Me.TextBox1.Font = New Font(Me.TextBox1.Font.Name, 11)
        TextBoxMargin(TextBox1, 0, 5)
    End Sub

فكما تلاحظ اخي الكريم، انه في حال التركيز على التكست بوكس، يكون اللون وفق ماهو مخزن بالمتحول العام ( متحول يسند اليه قيمة اللون الست عشرية عند فتح البرنامج، وتتم قراءته من قاعدة البيانات)

قمت بانشاء كلاس جديد، ونسخت كل الاكواد المذكورة الى صفحة الكلاس من اجل ان احصل على اداة من تصميمي، الا انه على ما يبدو ان الموضوع قد فشل معي

ارجو تصويب كيفية تحويل الاكواد التي كتبتها انا والموجودة بالمثال المرفق الى اداة خاصة بي
بصراحة انا بصدد ان اصمم اداتين للتكست بوكس، واحدة تقبل ارقام فقط، والاخرى تقبل كل شي
والف الف شكر