|
作者: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
For i = 0 To userid.Count - 1
While regular.IsMatch(liuyuaninfo(i).InnerText)
TextBox1.Text += "留言: " & liuyuaninfo(i).InnerText & vbCrLf
TextBox1.Text += "=======================================" & vbCrLf
Exit While
End While
Next ''''现在双击"关键字查询"按钮 ''''输入以下代码(其实和上面的一模一样) 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
For i = 0 To userid.Count - 1
While regular.IsMatch(liuyuaninfo(i).InnerText)
TextBox1.Text += "留言: " & liuyuaninfo(i).InnerText & vbCrLf
TextBox1.Text += "=======================================" & vbCrLf
Exit While
End While
Next ''''好了查询功能完成了,到现在为止,五部分已经全部完成. ''''如果大家有问题请留言. ''''界面如下 
[C语言系列]NET 中C#的switch语句的语法 [系统软件]托拽Explore中的文件到VB.net的窗口
[系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]新配色面板：Paint.Net3.0RC1官方下载
[常用软件]用内建的“Net Meeting”聊天 [VB.NET程序]Henry的VB.NET之旅（三）—共享成员
[VB.NET程序]Henry的VB.NET之旅（二）—构造与析构 [VB.NET程序]Henry的VB.NET之旅（一）—失踪的窗体
[VB.NET程序]在托盘上显示Balloon Tooltip（VB.NET） [VB.NET程序]Henry手记－VB.NET中动态加载Treeview节点（二）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
