VB6.0 写“查找下一个”功能，帮我看一下为什么不对

答案:1 悬赏:0

解决时间 2021-01-16 09:21

提问者网友：人傍凄凉立暮秋
2021-01-15 09:11

最佳答案

二级知识专家网友：神鬼未生
2021-01-15 10:09

Dim p As Integer

Private Sub Command1_Click()
    p = InStr(Text1, Text2)
    If p Then
        Text1.SelStart = p - 1
        Text1.SelLength = Len(Text2)
        Text1.SetFocus
        Command2.Enabled = True
        Command3.Enabled = True
        Command4.Enabled = True
    Else
        Command2.Enabled = False
        Command3.Enabled = False
        Command4.Enabled = False
        MsgBox "未找到！"
    End If
End Sub

Private Sub Command2_Click()
    If p Then
        If Text1.SelText = Text2 Then
            Text1.SelText = Text3
        Else
            Text1 = Left(Text1, p - 1) & Text3 & Mid(Text1, p + Len(Text2))
        End If
        p = 0
    End If
End Sub

Private Sub Command3_Click()
    Text1 = Replace(Text1, Text2, Text3)
    p = 0
End Sub

Private Sub Command4_Click()
    p = InStr(p + 1, Text1, Text2)
    If p Then
        Text1.SelStart = p - 1
        Text1.SelLength = Len(Text2)
        Text1.SetFocus
        Command2.Enabled = True
        Command4.Enabled = True
    Else
        Text1.SelStart = Len(Text1)
        Text1.SelLength = 0
        Command2.Enabled = False
        Command4.Enabled = False
        MsgBox "已经全部查找完毕！"
    End If
End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！