vb.net查找错字 vba查找字符

VB.net怎么才能实现记事本中的查找上一个的功能(在Richtextbox中)？

查找一次后记入查找内容的位置，百查找下一个功能度 这时候的开始位置就是刚才查找内容的位置加上查找内容的长度，版突出显示其实就是选权定文本，富文本框有SelectionStart，SelectionLength 两个属性

相关问答

Q1: vb.net查找未使用的函数

您是想问vb.net查找未使用的函数方法吗？vb.net查找未使用的函数方法是：

1、在VS.NET中右键单击主RESX文件，然后从上下文菜单中选择FindUsages。

2、双击解决方案窗口中的每个匹配项，这将打开包含该资源的源代码窗口。

3、在源代码窗口中重命名此资源，它将弹出ReSharper的“重命名资源”对话框。

4、它将重命名资源和自动生成的C#包装器/访问类。

5、对"Usages“窗口中的所有资源重复上述步骤2、3和4。

6、在VisualStudio的资源编辑器中打开RESX文件，并选择所有不带前缀的文件。

7、您最终得到了一个RESX文件，其中有未使用的函数。

Q2: 在VB.NET中怎么用InputBox实现查找功能

dim str1 ,str2 as string

dim n as integer

str2=inputbox("请输入要查找的字符："）

for n=1 to len(textbox1.text)

str1=mid(textbox1.text,n,1)

if str2=str1 then

msgbox("找到啦！")

exit for

end if

next

if n=len(textbox1.text)+1 then

msgbox("没有你要找的字符！")

end if

Q3: VB查找关键字

Dim number As Long

Private Function FindStr(ByVal SLeft As Long, ByVal SFind As String, ByVal SSFind As String)

If Len(SFind) Len(SSFind) - SLeft Then

FindStr = -1

Exit Function

Else

FindStr = InStr(SLeft + 1, SSFind, SFind) - 1

End If

End Function

Private Sub Command1_Click()

number = FindStr(0, Text1.Text, RichTextBox1.Text)

If number = -1 Then

MsgBox "没有找到"

Command2.Enabled = False

Else

RichTextBox1.SelStart = number

RichTextBox1.SelLength = Len(Text1.Text)

Command2.Enabled = True

End If

End Sub

Private Sub Command2_Click()

number = FindStr(number + Len(Text1.Text), Text1.Text, RichTextBox1.Text)

If number = -1 Then

MsgBox "查找完毕"

Command2.Enabled = False

Else

RichTextBox1.SelStart = number

RichTextBox1.SelLength = Len(Text1.Text)

Command2.Enabled = True

End If

End Sub

注意RichTextBox1.HideSelection要设为false

Q4: 怎么编制vb程序快速的查找文中的错别字

1、找一份词库

2、在“文中”进行分词、匹配

.net和java都有比较成熟的分词和词库，vb实现比较费时

Q5: vb.net DataGridView关于查找问题

遍历datagridview的单元格，判断单元格内的值是否与textbox的text相等。

foreach (DataGridViewRow row in dataGridView1.Rows)

{

foreach(DataGridViewCell cell in row)

{

if(cell.value = textbox1.text) then

cell.focus()

else

msg("没有找到相关信息")

}

}

vb.net查找错字的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba查找字符、vb.net查找错字的信息别忘了在本站进行查找喔。