marer先谢谢了!不过我还有一个问题就是
Private Sub Command1_Click()
If Text1.Text <> "" Then
Dim a As Integer
Dim b As String
a = Len(Text1.Text)
b = Text2.Text
Dim i As Integer
Dim str As String
For i = 1 To a
If Mid(Text1.Text, i,
1) <> b Then
str = str & Mid(Text1.Text, i,
1)
End If
Next
Text1.Text = str
End If
End Sub
我这样改了一下就只能删除一个字,就像text1.text="text1",text2.text="te"这样没有反应,只有输入一个"t"字才能删除t字怎么才能删除text2输入的内容呢？我试过用str(text2.text)这样说声明重复,那个红色1字我也试过改成2也不行，我查过MSDN他里面说"length"这个是
被替换的字符数我试过不用不过还是不行，我想是查找只有一个字符，不过又找不到方法，请指教。
(我是刚学VB的所以好多东西不懂，别见怪.)
2005-07-24 02:29
