扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
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
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网