منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] أريد جعل التاريخ بالمنتصف في DateTimePicker - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] أريد جعل التاريخ بالمنتصف في DateTimePicker (/showthread.php?tid=50248)

أريد جعل التاريخ بالمنتصف في DateTimePicker - F.H.M - 28-08-24

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

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

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

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

RE: أريد جعل التاريخ بالمنتصف في DateTimePicker - Taha Okla - 29-08-24

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


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

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


بالتوفيق ..

RE: أريد جعل التاريخ بالمنتصف في DateTimePicker - F.H.M - 29-08-24

(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

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


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