如何在textbox里实现查找冠词("a","an","the")的功能?在线等待

focus315 2003-11-18 03:27:59
如何在textbox里实现查找冠词("a","an","the")的功能?并且可以实现查找下一个,在找到后以高亮度显示
...全文
26 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
captainivy 2003-11-18
  • 打赏
  • 举报
回复
Public po As Long
Function find(key As String, Text1 As TextBox)
s = Text1.Text
t = key
Indexs = InStr(po, s, t)
If Indexs > 0 Then
With Text1
.SelStart = Indexs - 1
.SelLength = Len(t)
.SetFocus
End With
po = Indexs + 1
Else
MsgBox "没有找到你寻求的串"
po = 1
End If
End Function

Private Sub Command1_Click()
t = find("an", Text1)
End Sub

Private Sub Form_Load()
po = 1
End Sub

Private Sub Text1_Change()
po = 1
End Sub

7,771

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧