ایجاد محدودیت برای ورود عدد در یک text در زبان vb6

[javad75]

سلام من الان یک کادر text دارم می خواهم داخل این کادر فقط مقدار عددی بین 0 تا 20 را قبول کنه و اگه بیشتر شد پیغام بده
همین

باتشکر

[ashkan1234]

سلام من الان یک کادر text دارم می خواهم داخل این کادر فقط مقدار عددی بین 0 تا 20 را قبول کنه و اگه بیشتر شد پیغام بده
همین

باتشکر
سلام!
اینو تو اونت Change تکست باکست بنویس!
If Not Text1.Text <= 20 Then MsgBox "Not"

موفق باشی

[mehran901]

از رویداد change استفاده کنید
Private Sub Text1_Change()
If (Not Val(Text1.Text) < 20 Or Not Val(Text1.Text) > 0) And Not Text1.Text = Empty Then
MsgBox "Error", vbCritical + vbOKOnly
End If
End Sub

[Mr'Jamshidy]

یک پروژه جدید بساز و یک تکست باکس بهش اضافه کن و کد زیر رو تو فرم کپی کن

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const ES_NUMBER = &H2000&

Private Sub SetNumber(NumberText As TextBox, Flag As Boolean)
Dim curstyle As Long
Dim newstyle As Long

curstyle = GetWindowLong(NumberText.hwnd, GWL_STYLE)

If Flag Then
curstyle = curstyle Or ES_NUMBER
Else
curstyle = curstyle And (Not ES_NUMBER)
End If

newstyle = SetWindowLong(NumberText.hwnd, GWL_STYLE, curstyle)
NumberText.Refresh
End Sub

Private Sub Form_Load()
SetNumber Text1, True
End Sub

نتیجه میشه :
98761

[m2011kh]

دم مستر جمشیدی رو گم که فک نکنم تا حالا جوابی داده باشه که کمتر از ده خط کد بوده باشه؟؟؟ماشاء الله هزار ماشاء الله آدم تو کدای ایشون گم میشه:کف:.
اینم یه راه دیگه:
if len(text1.text) => 20 or len(text1.text <= 0 then
msgbox "Error"
end if
و یا:
Dim k$
k = len(text1.text)
if len(k) => 20 or len(k) <= 0 then
msgbox "Error"
end if
مستر جمشیدی جسارت نشه ها منظوری نداشتم.
MMD

[Mr'Jamshidy]

فدای سرت ولی همیشه اینو به خاطر داشته باش هر کاری که میکنی اصولی انجام بده

منم یک زمانی از روش شما استفاده میکردم تا یکی منو از اشتباهم آگاه کرد یادم نیست مال خیلی وقت پیشه ولی فکر کنم H2 بود که این روش رو بهم یاد داد

[m2011kh]

من نمیدونم شما چند ساله برنامه نویسی کار میکنید.ولی خود من 14 سالمه و سه ساله شروع کردم.شما زیاد سخت نگیر ما هنوز اول راهیم.
شما خیلی تجربه تون از ما بیشتره ولی بین با سابقه ها هم کدای شما طولانی تر و پیچیده تره نسبت به بقیه.