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

(20-09-13, 01:30 AM)ismail2012 كتب : [ -> ]اكتب         TextBox1.Text = CDate(TextBox1.Text).ToShortDateString في حدث TextChanged
ملاحظة الكود من أحد مشاركات الأخ Ramilove

إقتباس :صباح الخير عزيزي


لم يعمل معي الكود

ممكن تشرح المثال اكثر

أو ترفق مثال جاهز حتى اكتشف الخطأ الذي عندي

إقتباس :Private Sub TextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
TextBox1.Text = DateAdd(DateInterval.Day, 0, Date.Now.Date).ToString("yyyy/MM/dd")
End Sub

(20-09-13, 03:45 PM)ismail2012 كتب : [ -> ]

إقتباس :صباح الخير عزيزي


لم يعمل معي الكود

ممكن تشرح المثال اكثر

أو ترفق مثال جاهز حتى اكتشف الخطأ الذي عندي

كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = Now
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = CDate(TextBox1.Text).ToShortDateString
    End Sub
End Class

عملت المثال ويظهر لي الخطأ التالي عند تشغيل المثال
كيف الحل ؟

إقتباس : Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

datee()

End Sub
Public Sub datee()
TextBox1.Text = DateAdd(DateInterval.Day, 0, Date.Now.Date).ToString("yyyy/MM/dd")

End Sub