VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 119|回复: 4

[求助] 红色部分 能否全部匹配 才提示

[复制链接]
发表于 2018-7-5 13:46:06 | 显示全部楼层 |阅读模式
下面 红色部分 能否全部匹配 才提示 现在只是 有两个字符匹配 就提示。多谢


Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub

Private Sub Timer1_Timer()
Call Command1_Click
End Sub

Private Sub webbrowser1_documentcomplete(ByVal pDisp As Object, URL As Variant)
Text1.Text = WebBrowser1.Document.body.innertext
End Sub
Private Sub Command1_Click()

Dim i%, temp$
For i = 1 To Len(Text1.Text)
If InStr("标准答案", Mid(Text1.Text, i, 1)) Then temp = temp & Mid(Text1.Text, i, 1)
If InStr("标准答案", Mid(Text1.Text, i + 1, 1)) = 0 Then temp = temp & ""
Next i
Text1.Text = temp
If Text1.Text = "" Then
Label1.Visible = False
'MsgBox ("未找到")
Else
'Timer1.Interval = 0
PlaySound "D:\新建文件夹\chimes.wav", 0, 1
'MsgBox ("找到")
Label1.Visible = True
End If

End Sub
发表于 2018-7-5 18:08:10 | 显示全部楼层

If instr(text1.text,"标准答案")  Then
Label1.Visible = False
'MsgBox ("未找到")
Else
'Timer1.Interval = 0
PlaySound "D:\新建文件夹\chimes.wav", 0, 1
'MsgBox ("找到")
Label1.Visible = True
End If
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2018-7-5 14:58:59 | 显示全部楼层
有高手帮我看看吗
谢谢了
回复 支持 反对

使用道具 举报

发表于 2018-7-5 15:52:26 | 显示全部楼层
自己用的话用 strcmp ,如果是作业的话 用left和instr搭配用
回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-7-8 09:08:56 | 显示全部楼层
zxrobin 发表于 2018-7-5 18:08
If instr(text1.text,"标准答案")  Then
Label1.Visible = False
'MsgBox ("未找到")

感谢高手 我试试!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-7-19 15:53

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表