当前位置：首页 → 问答吧 → vb6中，字符串转整型的函数是？

vb6中，字符串转整型的函数是？

时间：2007-10-09

来源：互联网

vb6中，字符串转整型的函数是？

作者: booming 发布时间: 2007-10-09

另外，如何限制文本框，只能输入数字，vc可以的

作者: booming 发布时间: 2007-10-09

Private Sub Command1_Click()
Dim x
x = Text1
Print IIf(IsNumeric(x), CLng(Val(x)), False)
End Sub

Private Sub Text1_Change()
If Not IsNumeric(Text1) Then Text1 = ""
End Sub

作者: ayalicer 发布时间: 2007-10-09

在validate事件中检验，如果不是合法数据cancel=true

作者: wxrwan 发布时间: 2007-10-09

"vb6中，字符串转整型的函数是？"
val(string)

作者: xiangfly 发布时间: 2007-10-09

直接使用validate 并不能限制输入非数字的字符串
虽然cancel=true可以限制控件焦点但是不是很符合平常输入习惯
还是自己定义个静态变量保存textbox的最后为数字状态的text属性
Private Sub Text1_Change()
Static strtxt As String
If IsNumeric(Text1) Then
strtxt = Text1
Else
Text1 = strtxt
Text1.SelStart = Len(Text1)
End If
End Sub

作者: ayalicer 发布时间: 2007-10-09

val吧

作者: hui_hui_2007 发布时间: 2007-10-09

可以这样设置文本框：
Private Sub Text1_Validate(Keepfocus As Boolean)
If Not IsNumeric(Text1.Text) Or Val(Left(Text1.Text, 1)) = 0 Then
Keepfocus = True
MsgBox "请输入有效数字！", vbCritical, "Error"
End If
End Sub

作者: wyhlany 发布时间: 2007-10-09

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0

End Sub

这个只能输数字

作者: hychyc_2008 发布时间: 2011-08-18

完全同意楼上的，用ASCII码来判断

作者: get_red_rocket 发布时间: 2011-08-18

val()函数

作者: ningweidong 发布时间: 2011-08-18

引用楼主 booming 的回复:
vb6中，字符串转整型的函数是？

i=cint(s)
i=clng(s)

两个都四舍五入

作者: worldy 发布时间: 2011-08-18