2.工具:vb6。
3.具體實現代碼如下:
選擇權？明確的
私人的？Sub？Command1_Click（）
暗淡？搜索，？在哪裏？？聲明變量。
？獲取要查找的字符串。
搜索？=?文本1。文本
在哪裏？=?儀器（文本3。文本，？搜索）？？在文本中查找字符串。
如果？在哪裏？然後呢？？如果妳找到了，
短信3。SetFocus
短信3。SelStart？=?在哪裏？-?1?？設置選定的開始位置，並
短信3。塞倫思？=?Len（搜索）？？設置選定的長度。
其他
MsgBox？“弦？不是嗎？找到了。”？？發出通知。
結束？如果
結束？潛水艇
私人的？Sub？Command2_Click（）
如果？短信3。SelText？& lt& gt？""?然後
短信3。SelText？=?文本2。文本
結束？如果
結束？Sub4，註意:搜索的文本框需要首先獲得焦點（Text3。SetFocus
），然後就可以操作了。