[سمير1404]

الاخوة الكرام تحية طيبة للجيمع وكل عام وانتم بخير وتقبل طاعاتكم 



احتاج كود او طريقة تجعل النص داخل الكمبوبوكس متوسط  اي في الوسط ، الخيار الوحيد هو من اليمين الى اليسار او العكس عن الغاءه وجزاكم الله خيراً

[aljzazy]

الطريقة ان تقوم باضافة كلاس جديد لمشروع تضيف من خلاله اداة كمبوبوكس بالمواصفات التي تريدها

---

قم بانشاء كلاس جديد في مشروعك واضف اليه الكود النالي

كود :

Public Class CenteredComboBox
 Inherits ComboBox
 Sub New()
   Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
   Me.DropDownStyle = ComboBoxStyle.DropDownList
 End Sub

 Private Sub CenteredComboBox_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
   e.DrawBackground()
   Dim txt As String = ""
   If e.Index >= 0 Then txt = Me.Items(e.Index).ToString
   TextRenderer.DrawText(e.Graphics, txt, e.Font, e.Bounds, e.ForeColor, TextFormatFlags.HorizontalCenter)
   e.DrawFocusRectangle()
 End Sub
End Class

الان قم بعمل build  للمشروع ستجد انه تم اضافة ادارة كمبوبوكس جديد استخدمها ستجد ان النص بالمنتصف

[سمير1404]

اخي aljzazy اسال الله لك التوفيق
نجحت معي ما تفضلت به علي .

[aljzazy]

(25-04-20, 06:22 PM)سمير1404 كتب : اخي aljzazy اسال الله لك التوفيق
نجحت معي ما تفضلت به علي .

حياك الله اخي الكريم
امنيات التوفيق
وكل عام وانت بالف خير

[مصمم هاوي]

(25-04-20, 06:02 PM)aljzazy كتب : الطريقة ان تقوم باضافة كلاس جديد لمشروع تضيف من خلاله اداة كمبوبوكس بالمواصفات التي تريدها

---

قم بانشاء كلاس جديد في مشروعك واضف اليه الكود النالي

كود :

Public Class CenteredComboBox
 Inherits ComboBox
 Sub New()
   Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
   Me.DropDownStyle = ComboBoxStyle.DropDownList
 End Sub

 Private Sub CenteredComboBox_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
   e.DrawBackground()
   Dim txt As String = ""
   If e.Index >= 0 Then txt = Me.Items(e.Index).ToString
   TextRenderer.DrawText(e.Graphics, txt, e.Font, e.Bounds, e.ForeColor, TextFormatFlags.HorizontalCenter)
   e.DrawFocusRectangle()
 End Sub
End Class

الان قم بعمل build  للمشروع ستجد انه تم اضافة ادارة كمبوبوكس جديد استخدمها ستجد ان النص بالمنتصف

جزاك الله كل خير أخي الحبيب فقد جربت الكلاس ونجح معي بشكل ممتاز

[أبو خالد الشكري]

أرجو أن تشرحوا لي طريقة الاستفادة من الكود ،
مثلا : لو كان عندي في المشروع كمبوبوكس اسمه Combo4Test
فكيف يمكنني أن أطبق عليه الكود الذي في الكلاس ؟

[مصمم هاوي]

(24-08-25, 12:44 AM)أبو خالد الشكري كتب : أرجو أن تشرحوا لي طريقة الاستفادة من الكود ،
مثلا : لو كان عندي في المشروع كمبوبوكس اسمه Combo4Test
فكيف يمكنني أن أطبق عليه الكود الذي في الكلاس ؟

حيَّاك اللهُ أخي الحبيب
أولاً: قمت بإضافة Class1
ثانياً: قم بنسخ الكود في Class1
ثالثاً: قم بعمل build  للمشروع
رابعاً: من  ToolBox قم بسحب الأداة CenteredComboBox1 إلى الفورم
خامساً: لو استدعيت البيانات من قاعدة البيانات ستجد أنها في الوسط
وهذا مثال بسيط جداً

وهذه كل السالفة .... ابتسامة

  WindowsApplication1.rar (الحجم : 76.26 ك ب / التحميلات : 20)

[أبو خالد الشكري]

(24-08-25, 01:35 AM)مصمم هاوي كتب :

(24-08-25, 12:44 AM)أبو خالد الشكري كتب : أرجو أن تشرحوا لي طريقة الاستفادة من الكود ،
مثلا : لو كان عندي في المشروع كمبوبوكس اسمه Combo4Test
فكيف يمكنني أن أطبق عليه الكود الذي في الكلاس ؟

حيَّاك اللهُ أخي الحبيب
أولاً: قمت بإضافة Class1
ثانياً: قم بنسخ الكود في Class1
ثالثاً: قم بعمل build  للمشروع
رابعاً: من  ToolBox قم بسحب الأداة CenteredComboBox1 إلى الفورم
خامساً: لو استدعيت البيانات من قاعدة البيانات ستجد أنها في الوسط
وهذا مثال بسيط جداً

وهذه كل السالفة .... ابتسامة

شكرا جزيلا لك ، ما قصرت
وفقك الله وبارك فيك .