ارسال پاسخ 
 
امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
محدود نمودن داده ورودی به عدد
نویسنده پیام
CPSD Admin آفلاین
مدیر سایت
*******

ارسال‌ها: 176
تاریخ عضویت: تير ۱۳۸۹
اعتبار: 0
ارسال: #1
Lightbulb محدود نمودن داده ورودی به عدد
با سلام

یکی از مواردی که گاهاً مد نظر قرار میگیرد , محدود نمودن ورود داده های عددی توسط کاربر در داخل یک فیلد میباشد , به طور مثال در حالتی که بخواهیم کاربر تنها مجاز به ورود عدد به داخل یک فیلد باشد

Idea جهت انجام این امر راه حل های متفاوتی وجود دارد که هر یک به تناسب میتواند مورد استفاده قرار گیرد , به طور مثال در داخل یک فرم فرضی و با در نظر گرفتن نام فیلد به عنوان SampleField میتوان از کدهای زیر استفاده نمود :
کد:
Private Sub SampleField_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii
      Case Asc("0") To Asc("9"), vbKeyBack
      Case Else
        KeyAscii = 0
    End Select

End Sub
و یا :

کد:
Private Sub SampleField_KeyUp(KeyCode As Integer, Shift As Integer)
    
    If KeyCode = vbKeyReturn Then Exit Sub

    If IsNumeric(SampleField.Text) = False Then MsgBox "Only Number"

End Sub
میتوان با توجه به شرایط و صورت مساله مطرح شده , از تلفیق دو روش فوق نیز استفاده به عمل آورد

درگاه : وب سايت | فروشگاه | وبلاگ
۶ بهمن ۱۳۹۱ ۰۲:۰۹ عصر
مشاهده‌ی وب سایت کاربر یافتن تمامی ارسال‌های این کاربر نقل قول این ارسال در یک پاسخ
ارسال پاسخ 


پیام‌های داخل این موضوع
محدود نمودن داده ورودی به عدد - CPSD Admin - ۶ بهمن ۱۳۹۱ ۰۲:۰۹ عصر

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Information نکاتی در خصوص دریافت ورودی CPSD Admin 0 5,071 ۵ اسفند ۱۳۸۹ ۱۰:۱۴ عصر
آخرین ارسال: CPSD Admin

پرش به انجمن:


‍CPSD.ir Website

وب سايت      |      وبلاگ      |      فروشگاه

 

Center Point SD - Software Developer

Yaldex PopUp