السلام عليكم ورحمة الله وبركاتة
اخواني انا مبتدئ في الدوت نت وواجهتني مشكلة لم استطع التغلب عليها فيا حبذا لو اجد احد يقوم بالتعديل على هذا الكود ،
المشكلة هي عندما ادخل بمربع النص اي معلومه غير التاريخ يعطيني غلط وينقلني للكود واذا كتبت تاريخ يعمل بشكل مناسب ..
اريد اذا كتبت اي شي لا يدل على تاريخ يعطيني رساله ..
تحياتي
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Mydate As Date
Mydate = Me.TextBox1.Text
If IsDate(Mydate) Then
MsgBox(Mydate)
Else
MsgBox("the value is not a date")
End If
End Sub