重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
步骤如下:
创新互联网站建设10余年坚持,服务企业网站设计、响应式网站等网站建设服务。1000+企业的合作经验,帮助我们为服务企业不断提升价值。为企业建设开发网站和维护,主推个性化定制型网站设计
窗体上添加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
str1是数字类型而strrow是文字类型,所以出错。。
把str1转成string就可以了。。。
可以这样做啊。button单击事件里边获取textbox的值,传回到数据库
sql语句如下
select
*
from
表名
where
匹配的列
like
'%参数%'
得到的结果就是包含查询内容的所有结果了
窗体上添加一个文本框,一个列表框,一个按钮:
代码如下:
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