就是说，在文本框里输入了“你、我、他”之后我想把“我”字删除。。请问怎么才能实现呀？

删除键......

用"" REPLACE

N多方法

Private Sub Command1_Click()
    If Text1.Text <> "" Then
        Dim a As Integer
        a = Len(Text1.Text)
        Dim i As Integer
        Dim str As String
        For i = 1 To a
            If Mid(Text1.Text, i, 1) <> "我" Then
                str = str & Mid(Text1.Text, i, 1)
            End If
        Next
        Text1.Text = str
    End If
End Sub

[此贴子已经被作者于2005-7-24 16:29:51编辑过]

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的所以好多东西不懂，别见怪.)

上面Marer那个程序好象运行都没有什么反映啊,是不是那里错了!?我按照哪个程序建立了一个文本框,一个按钮,然后把代码放进去,但是没有反映!

Private Sub Command1_Click()
   If Text1.Text &lt;&gt; "" Then
        Dim a, i, ii As Integer
        a = Len(Text1.Text)
        ii = Len(Text2.Text)
    For i = 1 To a
      If Mid(Text1.Text, i, ii) = Text2.Text Then
        Text1.SelStart = i - 1
        Text1.SelLength = ii
        Text1.SelText = ""
      End If
    Next i
End If
End Sub

jionjion,marer这两位师傅谢谢了~~~~我的问题解决了

为什么要搞的很复杂呢? Private Sub Command1_Click() Text1.Text = Replace(Text1.Text, "我", "") End Sub