level 9
金炎凤凰
楼主
Private Sub CmdSerch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSerch.Click
Dim strCS As String = ""
strCS = InputBox("请输入查找文件中含有的文字", "查找")
If strCS = "" Then
MessageBox.Show("您没有输入或是按了取消,查找自动退出", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
ComboFile.SelectedIndex = ComboFile.FindString(strCS)
End Sub
模糊查找怎么不起作用呢?