25-07-17, 10:20 PM
مساء الورد وريحان ل قلوبكم
عزيز الاستاذ جميل علي اشكر لك محاولتك ل مساعدتي ربي يرزقك جنات النعيم حبيبي ..
تم ايجاد الكود المناسب ..
الكود التالي للفائده هو حل تفريغ اداة التاريخ اضعه لتعم الفائده للجميع ..
عزيز الاستاذ جميل علي اشكر لك محاولتك ل مساعدتي ربي يرزقك جنات النعيم حبيبي ..
تم ايجاد الكود المناسب ..
الكود التالي للفائده هو حل تفريغ اداة التاريخ اضعه لتعم الفائده للجميع ..
كود :
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DateTimePicker1.Format = DateTimePickerFormat.Custom
DateTimePicker1.CustomFormat = " "
End Sub
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
If DateTimePicker1.Format = DateTimePickerFormat.Custom AndAlso DateTimePicker1.CustomFormat = " " Then
DateTimePicker1.Format = DateTimePickerFormat.Short
End If
End Sub
End Class