عدم درج کارکتر space(فضای خالی) در MaskedTextBox

با سلام خدمت دوستان عزیز
من یک MaskedTextBox رو تو برنامه ام استفاده میکنم که فرمتش تاریخ هست با استفاده از سال جاری و ماه جاری پر می کنم حالا مشکل اینجاست که برای بار اول که می خوای روز رو وارد کنی مشکلی نیست کلید ثبت رو می زنم و میخوام رکورد بعدی رو ثبت کنم تو قسمت روز یک کارکتر خالی می زنه . هر کاری می کنم درست بشو نیست.

دوستان می تونن راهنمایی کنن
کدهایی که باهاش ماسک رو پرمی کنم این هست

 Public Function MiladiToShamsi(ByVal MDate As Date) As String

        MiladiToShamsi = ""

        Dim pc As New Globalization.PersianCalendar

        Dim Sal As Integer = pc.GetYear(MDate)

        Dim Mah As Integer = pc.GetMonth(MDate)

        Dim Roz As Integer = pc.GetDayOfMonth(MDate)

        MiladiToShamsi = Format(Sal, "0000") & "/" & Format(Mah, "00") & "/"

        Return MiladiToShamsi

 

    End Function

MaskedTextBox1.Text = MiladiToShamsi(Now())

هم با "/" و هم بدون "/" استفاده کردم همین مشکل وجود داره باز

احتمالا مشکل شما از این نیست که تاریخ ماه و یا روز رو در صورتی که یک رقمی هست اینجوری می نویسه مثلا 2 بجای 02 ؟

نه دوست عزیز
شما کد روملاحضه کنید فرمت دقیقا توش رعایت شده

نقل قول:

---

نوشته شده توسط سینا2010

نه دوست عزیز
شما کد روملاحضه کنید فرمت دقیقا توش رعایت شده

---

 Public Function MiladiToShamsi(ByVal MDate As Date) As String

        MiladiToShamsi = ""

        Dim pc As New Globalization.PersianCalendar

        Dim Sal As Integer = pc.GetYear(MDate)

        Dim Mah As Integer = pc.GetMonth(MDate)

        Dim Roz As Integer = pc.GetDayOfMonth(MDate)

        MiladiToShamsi = Format(Mah, "0000") & "/" & Format(Sal, "00") & "/"

        Return MiladiToShamsi



    End Function

نقل قول:

---

نوشته شده توسط bnnoor

 Public Function MiladiToShamsi(ByVal MDate As Date) As String

MiladiToShamsi = ""

Dim pc As New Globalization.PersianCalendar

Dim Sal As Integer = pc.GetYear(MDate)

Dim Mah As Integer = pc.GetMonth(MDate)

Dim Roz As Integer = pc.GetDayOfMonth(MDate)

MiladiToShamsi = Format(Mah, "0000") & "/" & Format(Sal, "00") & "/"

Return MiladiToShamsi

 

End Function

---

ببخشید متوجه نشدم؟
میشود لطف کنید توضیح بدهید. مخصوصا در مورد خط زیر یعنی چی ؟ ماه 4 رقم سال 2 رقم؟

MiladiToShamsi = Format(Mah, "0000") & "/" & Format(Sal, "00") & "/"

نقل قول:

---

نوشته شده توسط سینا2010

ببخشید متوجه نشدم؟
میشود لطف کنید توضیح بدهید. مخصوصا در مورد خط زیر یعنی چی ؟ ماه 4 رقم سال 2 رقم؟

MiladiToShamsi = Format(Mah, "0000") & "/" & Format(Sal, "00") & "/"

---

با این تغییرات درست نشد؟

نه دوست عزیز.

عزیزان کسی نمی تونه کمک کنه ؟

نقل قول:

---

نوشته شده توسط سینا2010

عزیزان کسی نمی تونه کمک کنه ؟

---

دوست عزیز با اون تغییراتی که انجام دادم مشکل برای من حل شد.

نمی دونم بخدا دیگه اعصابم رو خرد کرده درست نمی شه که نمی شه. همه جورش رو دیده بودم الا این مدل

نقل قول:

---

نوشته شده توسط سینا2010

نمی دونم بخدا دیگه اعصابم رو خرد کرده درست نمی شه که نمی شه. همه جورش رو دیده بودم الا این مدل

---

شما اصل کد رو اینجا ضمیمه کن تا بررسی کنیم

آقا پیدا شد
من تو رویداد KeyDown این کد رو اضافه کرده بودم
e.SuppressKeyPress = True
برای همین اینجوری می شد. برش داشتم درست شد.

ممنون