منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : أريد جعل التاريخ بالمنتصف في DateTimePicker
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الأخوة الأعزاء

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

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

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


قم بإضافة كلاس جديد (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

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


بالتوفيق ..
(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

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


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