vb.net文本搜索 vbs 搜索文件

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

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

            MsgBox("已找到")

        Else

            MsgBox("未找到")

        End If

vb.net关键字搜索文件

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

代码如下：

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

Dim MyDir As String = "C:\123"

Dim MyFilter As String = "*" TextBox1.Text "*"

ListBox1.Items.Clear()

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

ListBox1.Items.Add(MyFile)

Next

End Sub

在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

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文本搜索的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs 搜索文件、vb.net文本搜索的信息别忘了在本站进行查找喔。