28-08-24, 10:45 PM
29-08-24, 12:32 AM
وعليكم السلام ورحمة الله وبركاته
قم بإضافة كلاس جديد (Class)
اجعل اسمه : (tDateTimePicker)
امسح ما فيه : ثم انسخ الكود التالي وضعه فيه :
اعمل اعادة بناء للمشروع - أو قم تشغيل المشروع :
ثم قم بإغلاقه ..
اظهر النافذة ..
اذهب لقائمة الأدوات ..
ستجد أنه تم إضافة أداة جديدة اسمها : tDateTimePicker
انقلها للنافذة عندك ثم اذهب للخصائص وشكلها كما تشاء ..
بالتوفيق ..
قم بإضافة كلاس جديد (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, 06:27 PM
(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
انقلها للنافذة عندك ثم اذهب للخصائص وشكلها كما تشاء ..
بالتوفيق ..