还有啊
我这个文本框里还能输入字母 和 汉字啊，我在网上找了一下可以解决禁止输入字母的方法，可是输入汉字这个是怎么解决的啊


If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 46 Then
KeyAscii = 0
end if

在文本框里加这个代码就可以防止输入字母，但是输入汉字怎么解决，大家看看啊。。。

我在网上看到别人在这段代码，帮我看看什么意思

Private Sub Command9_Click()
Text1.FontSize = 26
If InStr(Text1.Text, "年") <> 0 Or InStr(Text1.Text, "点") Then
Text1Text = "".
End If
End Sub

这中间的是什么意思 。。。

if val(result) < 0 then
result="0" + result
end if

To 11楼:

你可以试试看：那个代码里，汉字已经禁用了吧，你还能输入汉字？


InStr：传回字串里某个字串在第几个字的位置

InStr(Text1.Text, "年") ：判断“年”在text1.text内位置，如text1.text内没有“年”返回0

给你地址，这也是置顶贴，里面有很多教程
http://bbs.bc-cn.net/viewthread.php?tid=136933

在什么环境下发生此类错误？是VB6.0　还是VB.NET

我在VS2005下测试没有问题。

哇，14楼地我顶你

To 8楼

不行啊
我添加了 Text3.Text = format(text3.text,"#0.#")
但是只是解决了除法的问题 加减乘的都没有解决呢。。。

[此贴子已经被作者于2007-7-25 16:43:50编辑过]

那就同样加format函数啊。
但是format(text3.text,"#0.#")只显示小数点后一位，只能说勉强解决
我在VB6.0里没出现该问题

我的就是VB6.0
添加了Text3.Text = format(text3.text,"#0.#")
这个只对除法可行
其他的用同样的语句不行 不能实现功能