• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'maskedtextbox1'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 1 نتيجة

  1. السلام عليكم تنسيق MaskedTextBox1 لكي يظهر بالشكل التالي :  "00/00/0000" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.MaskedTextBox1.Mask = "00/00/0000" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ddd, mmm, yyy As String ddd = Mid(MaskedTextBox1.Text, 1, 2) If Len(Trim(ddd)) < 2 Then ddd = "0" & Trim(ddd) End If mmm = Mid(MaskedTextBox1.Text, 4, 2) If Len(Trim(mmm)) < 2 Then mmm = "0" & Trim(mmm) End If yyy = Mid(MaskedTextBox1.Text, 7, 4) If Len(Trim(yyy)) < 4 Then MsgBox("الرجاء ادخال السنة بالتاريخ الصحيح") Else Dim rr As Date rr = CDate(ddd & "/" & mmm & "/" & yyy) MaskedTextBox1.Text = Format(rr, "dd/MM/yyyy") End If   code.txt