[color=blue]قرار دادن تاریخ در text box[/color]

[emad1498]

سلام بر همه دوستان
می خواستم بدانم چگونه می شود کاربر در یک text box تاریخ را به صورتی وارد نماید که ممیز های بین سال و ماه و روز ثابت بمانند و تاریخ را به صورت صحیح از کاربر دریافت نماید مثلا در ماه بیشتر از عدد 12 را نگیرد و ...
البته من ocx آن را دیده ام و لی نیاز به سورس آن دارم .


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

[Vahid_Nasiri]

'easy way for entering farsi date:

Public Sub Farsi_Date_MaskedEdit_FormLoad(maskedEditName As MaskEdBox)
'From ProjectMenu->Components... Choose MS Masked Edit Control.
'usage:
'Private Sub Form_Load()
' Call Farsi_Date_MaskedEdit_FormLoad(MaskEdBox1)
'End Sub

maskedEditName.Font = "v_Zar" 'My dastkari shodeh Font!
maskedEditName.Font.Size = 12
maskedEditName.Width = (maskedEditName.Font.Size + 2) * maskedEditName.MaxLength
maskedEditName.Mask = "##/##/##"
maskedEditName.PromptChar = "*"
End Sub

[emad1498]

آقای نصیری سلام
از شما بابت این سورس خیلی متشکرم
اگر زحمتی نیست می خواستم بدانم چگونه می شود تاریخ را به صورت هوشمند وارد کرد .
یعنی ماه را بیشتر از 12 نگیرد و روز را بیشتر از 31 .
اگر کمی توضیح دهید خیلی ممنون می شوم .
باتشکر. :P

[SH_Zahra]

مال من اجرا نمیشه ::نوشتن::