نمایش نتایج 1 تا 4 از 4

نام تاپیک: عدد

  1. #1
    کاربر تازه وارد آواتار mrs225
    تاریخ عضویت
    شهریور 1390
    محل زندگی
    اسفراین
    سن
    24
    پست
    64

    عدد

    اول سلام
    دوم سوال : چگونه میشه یک تکست داخل فرم گذاشت که عدد فقط قبول که غیر این صورت (مثلا حروف) پیام ظاهر بشه
    سوم : جواب یادتون نره


  2. #2

    نقل قول: عدد

    سلام عليکم
    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 48 Or KeyAscii > 57) And Not KeyAscii = 8 Then KeyAscii = 0
    End Sub

    کد بالا فقط عدد قبول ميکنه
    و کد زير همراه با پيغام که بايد داخل يک کامند بنويسيد
    Private Sub Command1_Click()
    If IsNumeric(Text1) = False Then
    MsgBox "Only Number"
    End If
    End Sub


    موفق باشيد

  3. #3
    کاربر تازه وارد آواتار mrs225
    تاریخ عضویت
    شهریور 1390
    محل زندگی
    اسفراین
    سن
    24
    پست
    64

    نقل قول: عدد

    متشکرم همون بود که میخواستم

  4. #4

    نقل قول: عدد

    درود دوست عزیز این هم یک تابع که این کارو انجام میده

    Public Function Number_Filter(KeyAscii As Integer)
    Dim StrValid As String
    StrValid = "0123456789"
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii > 26 Then
    If InStr(StrValid, Chr(KeyAscii)) = 0 Then
    Number_Filter = 0
    Exit Function
    End If
    End If
    Number_Filter = KeyAscii
    End Function


    اینم مثال برای فراخوانیش


    Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Number_Filter(KeyAscii)
    End Sub
    Everything that has a beginning has an end. ... The End?



قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •