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