vb中怎么才能从一个字符串中提取一个字符？

Question

我要用VB6.0做一个计算器，写按钮“.”的代码时遇到了问题。其他的数字按钮的代码如下：text1.text=text1.text+"1",但是我不能把“.”的代码也这样写吧，那样的话多按几下“.”就会出现TEXT1.TEXT=“1....”的现象。所以我想如果TEXT1.TEXT中包含有“.”的话就实现按钮不执行任何操作。所以我想知道怎么才能在TEXT1.TEXT中提取“.”。C语言中好象是 “%.%”。

Answer 1

方法有很多，下面给两个简单点的你。 我不是网上搜索的，因为我本身就懂VB，这种问题也很简单。 天籁梓轩 的方法是最没有效率的。 我的代码: Private Sub Command1_Click() If Text1.Text Like "*.*" Then Exit Sub Text1.Text = Text1.Text & "." End Sub '或者这个也行 Private Sub Command2_Click() If InStr(1, Text1.Text, ".") > 0 Then Exit Sub Text1.Text = Text1.Text & "." End Sub