查找文本框中字符实例演示

卡西达

1. '------------------------------------------------------
   
2. '过程功能：查找文本框中字符串
   
3. 'objTextBox 要搜索的文本所在的文本框控件
   
4. 'strSearch 要搜索的字符串
   
5. '------------------------------------------------------
   
6. Sub sFindStr(objTextBox As TextBox, strSearch As String)
   
7. Dim intWhere As Integer
   
8. With objTextBox
   
9. '指定一字符串在另一字符串中最先出现的位置
   
10. intWhere = InStr(.Value, strSearch)
    
11. If intWhere Then
    
12. '查找
    
13. .SetFocus
    
14. .SelStart = intWhere - 1
    
15. .SelLength = Len(strSearch)
    
16. Else
    
17. '如未有指定字符，提示.
    
18. MsgBox "未找到你所查找的字符串！", vbOKOnly + vbInformation, "系统提示："
    
19. End If
    
20. End With
    
21. End Sub
    
22. 
    

复制代码

附件下载：查找文本框中字符实例演示.rar