If TextBox1.Text.Contains("@") Then
目前创新互联建站已为上千余家的企业提供了网站建设、域名、网络空间、网站托管、服务器租用、企业网站设计、尚义网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
MsgBox("已找到")
Else
MsgBox("未找到")
End If
步骤如下:
窗体上添加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
查找一次后记入查找内容的位置,百查找下一个功能度 这时候的开始位置就是刚才查找内容的位置加上查找内容的长度,版突出显示其实就是选权定文本,富文本框有SelectionStart,SelectionLength 两个属性
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
分享名称:vb.net文本查找 vba 查找文本
标题来源:https://www.cdcxhl.com/article48/ddospep.html
成都网站建设公司_创新互联,为您提供面包屑导航、响应式网站、网站内链、网站排名、手机网站建设、ChatGPT
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联