1- در رویداد keyup مربوط به textbox با استفاده از یک شرط مقدار keycode را بررسی کن، در صورتی که با مقدار vbKeyMultiply برابر بود به انتهای متن، صفرها رو قرار بده
3-این دستورات باید در رویداد KeyUp مربوط به textbox قرار داده بشه
کد:
If KeyCode >= vbKeyA And KeyCode <= vbKeyZ Then
TextBox1.SelStart = Len(TextBox1.Text) - 1
TextBox1.SelLength = 1
TextBox1.SelText = ""
End If
2- برای جلوگیری از تایپ عدد باید از دستورات بالا با جایگزینی مقادیر ثابت به جای vbkeya و vbkeyz با مقادیر مرتبط با اعداد استفاده کنی.
4- خاصیت maxlenght رو برابر 8 قرار بده
5- در رویداد exit مربوط به textbox با استفاده از یک شرط و با استفاده از تابع len، تعداد کارکترهای قرار داده شده در خاصیت text مربوط به textbox رو بشمار و در صورت کمتر بودن از 4 پیغام بدی و دوباره textbox رو انتخاب کنه.
6- از دستور زیر استفاده کن:
کد:
TextBox1.Text = Format(TextBox1.Value, "0000/00/00")
علاقه مندی ها (Bookmarks)