Question

在VB中输入查找姓名在下面的文本框中自动选中

要求代码

Answer 1

Private Sub Command1_Click()
    If Text1 = "" Then Exit Sub
    For i = 1 To Len(Text2)
        If Mid(Text2, i, Len(Text1)) = Text1 Then
            Text2.SelStart = i - 1
            Text2.SelLength = Len(Text1)
            Text2.SetFocus
            Exit For
        End If
    Next
End Sub

上面的是text1 下面的是text2 按钮是command1

追问

Len 是神马意思，怎么用的

追答

len 是取文本长度的意思
试过了吗，满足阁下的要求吗

追问

嗯嗯，可以用，只是对原理不太清楚

追答

现在清楚了吗，还有什么不清楚的尽管提出来