نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: تکست باکس سفارشی

  1. #1


    آخرین بازدید
    2016/10/09
    تاریخ عضویت
    September 2013
    نوشته ها
    27
    امتیاز
    13
    سپاس
    20
    سپاس شده
    10 در 10 پست
    تعیین سطح نشده است

    تکست باکس سفارشی

    با سلام
    آیا می شود
    1-با زدن دکمه * در textBox به جای تایپ * سه تا صفر 000 تایپ کنه؟
    2-فقط بتوان عدد تایپ کرد و از پذیرفتن حرف جلوگیری کند؟
    3-فقط بتوان حرف تایپ کرد و از پذیرفتن عدد جلوگیری کند؟
    4-بیش از 8 کارکتر نپذیرد؟
    5-کمتر از 5 کارکتر نپذیرد؟
    6-وقتی عدد وارد می کنیم بعد از 4تا کارکتر اول و دو کارکتر بعدش به صورت خودکار علامت / بگذارد (برای درج تاریخ 18/07/1393 )
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام
    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")
    در یادگیری سیر نشوید

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

  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2017/01/31
    تاریخ عضویت
    April 2013
    محل سکونت
    بابل
    نوشته ها
    22
    امتیاز
    23
    سپاس
    2
    سپاس شده
    44 در 10 پست
    تعیین سطح نشده است

    tosco3652 به Yahoo ارسال پیام
    با سلام
    دوست عزیز شما با استفاده از کد زیر هم میتوانی مشکلت را حل نمایی.

    کد:
    If Len(ActiveControl.Value) = 8 Then ActiveControl.Value = Format(ActiveControl.Value, "####/##/##")



اطلاعات موضوع

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

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

تکس باکس سفارشی

بررسی مقدار در تکست باکس

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد