vb.net文本查找 vba 查找文本

VB.NET如何在TextBox中搜索文本

If TextBox1.Text.Contains("@") Then

目前创新互联建站已为上千余家的企业提供了网站建设、域名、网络空间、网站托管、服务器租用、企业网站设计、尚义网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

MsgBox("已找到")

Else

MsgBox("未找到")

End If

vb.net 如何用通配符查找文件

步骤如下：

窗体上添加2个列表框，一个按钮：

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyDir As String = "C:\123"

'搜索并显示子文件夹

ListBox1.Items.Clear()

For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)

ListBox1.Items.Add(MySubDir)

Next

'搜索并显示文件

ListBox2.Items.Clear()

For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)

ListBox2.Items.Add(MyFile)

Next

End Sub

End Class

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

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

在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