最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
用XML写的留言录(vb.net)(五)
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
作者:fx_blog(CSDN)
日期:2005-5-22
标题:威人留言录(v1.8)
注意:转贴一定注明作者及出处
'*****************************************开始****************************
'现在来完成第五部分,留言查询*******
'首先新建一个窗体
'大家自己建吧,现在应该是form6了
'双击"查询留言"按钮
'写入以下代码(Form6内的控件都要设置好)
'
If TextBox3.Text = "" Then
MessageBox.Show("请输入搜索关键字")
Exit Sub
End If
Dim searchform As New Form6
searchform.TextBox1.Text = Me.TextBox3.Text
searchform.Show()
'现在回到Form6窗体
'首先进入Form6_Load(...)
'写入以下代码....
Me.Text = "查询留言-关键字: " & TextBox1.Text
Dim doc As XmlDocument = New XmlDocument
doc.Load("info.xml")
Dim match As String
match = TextBox1.Text
Dim regular As Regex = New Regex(match)
Dim liuyuaninfo As XmlNodeList
liuyuaninfo = doc.GetElementsByTagName("userliuyuan")
Dim i As Integer
TextBox1.Text += "以下是相似的记录" & vbCrLf
TextBox1.Text += "==================================" & vbCrLf
-
上一个: XML简明教程(三)
-
下一个: 设置默认打印机
相关文章
- C#复制数组的两种方式及效率比较解读 10-24
- ASP.NET Identity用法解析 10-24
- ASP.NET MVC使用Identity增删改查用户介绍 10-24
- C语言中atoi函数模拟实现介绍 10-18
- .Net反向代理组件Yarp用法介绍 10-10
- .NET使用YARP通过编码方式配置域名转发实现反向代理教程 10-10