ورود

View Full Version : مبتدی: بررسی عدد در TextBox


mirage041
چهارشنبه 12 اسفند 1388, 15:11 عصر
سلام خدمت دوستان و اساتید
من چهارتا تکس باکس دارم که می خوام فقط عدد رو بگیرم بعد روشون یک سری اعمال انجام بدم . این بررسی عدد در تکس باکس موندم ؟
تازه کارم؟
aryasoft2872
چهارشنبه 12 اسفند 1388, 15:41 عصر
برای مثال می خوایید دوتا تکست باکس رو جمع بزنید:


Text3.text = Val(Text1.text) + Val(Text2.text)
__barcelona__
جمعه 07 خرداد 1389, 12:49 عصر
سلام دوست عزیزم . من سوالتون رو خوب نفهمیدم
اگه میخوایید تکس باکس فقط عدد بگیره که این کدشه. اگه مشکلت چیزه دیگه ای هست بگو. موفق باشی


Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim StrValid As String
StrValid = "0123456789"
If InStr(StrValid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub