求VB高手,帮忙解释一下times = times + 1 以下内容 希望详细些,本人初学者
PrivateSubcmdfind_Click()StatictimesAsIntegerIftimes=0Thenfindstr=InputBox("查找?","查找"...
Private Sub cmdfind_Click()
Static times As Integer
If times = 0 Then
findstr = InputBox("查找?", "查找")
len1 = Len(findstr)
len2 = Len(Text1.Text)
End If
times = times + 1
For I = find1 + 1 To len2 - len1 + 1
If findstr = Mid(Text1.Text, I, len1) Then
find1 = I
Text1.SetFocus
Text1.SelStart = I - 1
Text1.SelLength = len1
Exit Sub
End If
Next I
If I > len2 - len1 + 1 Then
MsgBox "完成全部搜索!"
times = 0
End If
End Sub 展开
Static times As Integer
If times = 0 Then
findstr = InputBox("查找?", "查找")
len1 = Len(findstr)
len2 = Len(Text1.Text)
End If
times = times + 1
For I = find1 + 1 To len2 - len1 + 1
If findstr = Mid(Text1.Text, I, len1) Then
find1 = I
Text1.SetFocus
Text1.SelStart = I - 1
Text1.SelLength = len1
Exit Sub
End If
Next I
If I > len2 - len1 + 1 Then
MsgBox "完成全部搜索!"
times = 0
End If
End Sub 展开
2个回答
展开全部
用来查找,看Text1.text中有没有存在InputBox输入的内容。如果有就在text1中选中这部分内容
For I = find1 + 1 To len2 - len1 + 1
If findstr = Mid(Text1.Text, I, len1) Then ' 主要是这里了,mid函数用于在text1.text I 的位置开始取出字符长度为len1(即在InputBox输入的内容字符长度)个字符与findstr(即在InputBox输入的内容)进行对比,如果不同就进入下一个循环,如果相同那么执行下列语句:
find1 = I '记下findstr在text1.text中出现的开始位置
Text1.SetFocus '在text1中设置焦点
Text1.SelStart = I - 1 '设置在text1中选择文本的起点
Text1.SelLength = len1 '在text1.text选中与findstr相同部分的内容
Exit Sub
End If
Next I
For I = find1 + 1 To len2 - len1 + 1
If findstr = Mid(Text1.Text, I, len1) Then ' 主要是这里了,mid函数用于在text1.text I 的位置开始取出字符长度为len1(即在InputBox输入的内容字符长度)个字符与findstr(即在InputBox输入的内容)进行对比,如果不同就进入下一个循环,如果相同那么执行下列语句:
find1 = I '记下findstr在text1.text中出现的开始位置
Text1.SetFocus '在text1中设置焦点
Text1.SelStart = I - 1 '设置在text1中选择文本的起点
Text1.SelLength = len1 '在text1.text选中与findstr相同部分的内容
Exit Sub
End If
Next I
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub cmdfind_Click()
Static times As Integer
If times = 0 Then
findstr = InputBox("查找?", "查找")
len1 = Len(findstr)
len2 = Len(Text1.Text)
End If
times = times + 1
For I = find1 + 1 To len2 - len1 + 1 //从找到的开始到其余剩下的所有字符进行循环
If findstr = Mid(Text1.Text, I, len1) Then //如果找的字符与文本框中的当前截取的字符一致,则做到End If前的语句,否则继续判断查找。
find1 = I //定位l
Text1.SetFocus //文本框得到焦点
Text1.SelStart = I - 1 //文本框开始点先在定位前
Text1.SelLength = len1 //文本框选中的长度为要找的字符串长度
Exit Sub //查找成功,退出此子过程,times代表的是查找次数
End If
Next I
If I > len2 - len1 + 1 Then
MsgBox "完成全部搜索!"
times = 0
End If
End Sub
Static times As Integer
If times = 0 Then
findstr = InputBox("查找?", "查找")
len1 = Len(findstr)
len2 = Len(Text1.Text)
End If
times = times + 1
For I = find1 + 1 To len2 - len1 + 1 //从找到的开始到其余剩下的所有字符进行循环
If findstr = Mid(Text1.Text, I, len1) Then //如果找的字符与文本框中的当前截取的字符一致,则做到End If前的语句,否则继续判断查找。
find1 = I //定位l
Text1.SetFocus //文本框得到焦点
Text1.SelStart = I - 1 //文本框开始点先在定位前
Text1.SelLength = len1 //文本框选中的长度为要找的字符串长度
Exit Sub //查找成功,退出此子过程,times代表的是查找次数
End If
Next I
If I > len2 - len1 + 1 Then
MsgBox "完成全部搜索!"
times = 0
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询