[F.H.M]

الأخوة الأعزاء

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

هل من الممكن جعل التاريخ بالمنتصف في الأداة DateTimePicker

المثال بالمرفقات

[Taha Okla]

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


قم بإضافة كلاس جديد (Class)
اجعل اسمه  : (tDateTimePicker)
امسح ما فيه : ثم انسخ الكود التالي وضعه فيه  : 

كود :

Public Class tDateTimePicker
   Inherits DateTimePicker

   Public Sub New()
       SetStyle(ControlStyles.UserPaint, True)
   End Sub

   Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
       e.Graphics.DrawString(Text, Font, New SolidBrush(ForeColor), ClientRectangle, New StringFormat With {
           .Alignment = StringAlignment.Center,
           .LineAlignment = StringAlignment.Center
       })
   End Sub
End Class

اعمل اعادة بناء للمشروع - أو قم تشغيل المشروع :
ثم قم بإغلاقه ..
اظهر النافذة ..
اذهب لقائمة الأدوات .. 
ستجد أنه تم إضافة أداة جديدة اسمها : tDateTimePicker

انقلها للنافذة عندك ثم اذهب للخصائص  وشكلها كما تشاء ..


بالتوفيق ..

[F.H.M]

(29-08-24, 12:32 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته


قم بإضافة كلاس جديد (Class)
اجعل اسمه  : (tDateTimePicker)
امسح ما فيه : ثم انسخ الكود التالي وضعه فيه  : 

كود :

Public Class tDateTimePicker
   Inherits DateTimePicker

   Public Sub New()
       SetStyle(ControlStyles.UserPaint, True)
   End Sub

   Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
       e.Graphics.DrawString(Text, Font, New SolidBrush(ForeColor), ClientRectangle, New StringFormat With {
           .Alignment = StringAlignment.Center,
           .LineAlignment = StringAlignment.Center
       })
   End Sub
End Class

اعمل اعادة بناء للمشروع - أو قم تشغيل المشروع :
ثم قم بإغلاقه ..
اظهر النافذة ..
اذهب لقائمة الأدوات .. 
ستجد أنه تم إضافة أداة جديدة اسمها : tDateTimePicker

انقلها للنافذة عندك ثم اذهب للخصائص  وشكلها كما تشاء ..


بالتوفيق ..

الله يعطيك العافية ماقصرت