用XML写的留言录(vb.net)(五)

原创 2005年05月31日 14:54:00

作者: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

'好了查询功能完成了,到现在为止,五部分已经全部完成.

'如果大家有问题请留言.

'界面如下

用XML写的留言录(vb.net)(四)

作者:fx_blog(CSDN)日期:2005-5-22标题:威人留言录(v1.8)注意:转贴一定注明作者及出处**********************这一部分我们来完成用户注册信息修改的功能**...
  • fx_blog
  • fx_blog
  • 2005年05月22日 02:56
  • 1624

用XML写的留言录(vb.net)(三)

作者:fx_blog(CSDN)日期:2005-5-22标题:威人留言录(v1.8)注意:转贴一定注明作者及出处***************这一部分我们来完成修改与删除留言功能***********...
  • fx_blog
  • fx_blog
  • 2005年05月22日 02:23
  • 1794

用XML写的留言录(vb.net)(二)

作者:fx_blog(CSDN)日期:2005-5-22标题:威人留言录(v1.8)注意:转贴一定注明作者及出处******************************************开始...
  • fx_blog
  • fx_blog
  • 2005年05月22日 01:45
  • 2720

用XML写的留言录(vb.net)(一)

作者:fx_blog(CSDN)日期:2005-5-22标题:威人留言录(v1.8)注意:转贴一定注明作者及出处*****************************************开始*...
  • fx_blog
  • fx_blog
  • 2005年05月22日 01:04
  • 1971

VB.net学习笔记(二十一)XML流的读写

System.Xml名称空间支持XML的处理,为了生成和浏览XML文档,使用两种访问方式: 一、读写方式     (一)基于流的方式     特点:速度快,可连续读写,缺点不能作为节点、元素等进...
  • dzweather
  • dzweather
  • 2016年05月22日 12:07
  • 4189

java微信订阅号(公众号)开发案例

个人微信订阅号开发基本步骤和代码解析
  • j086924
  • j086924
  • 2016年11月22日 11:31
  • 2186

使用vb.net向xml文件添加节点

今天研究了好久如何用vb.net想xml文件中添加节点 确实在网上写了很多相关的文章,但就是无法理解透彻 刚刚终于找到了一篇文章,使用了极其简单的方式向xml文件中加入了节点 -----------...
  • u010052030
  • u010052030
  • 2013年10月04日 15:12
  • 1114

SSH整合之入门级例子:简易留言板(完整源码)

一.环境说明 ※Windows 10 ver 1703 ※IDEA 2017 2.5 ※JDK 1.8 ※MySQL 5.7 ※Maven 3.5 二.框架说明 ※Spring 4.3.11 ※Spr...
  • cslucifer
  • cslucifer
  • 2017年10月11日 19:36
  • 555

node.js使用(五):网站访问、搭建服务器及留言功能的实现

1、用nodejs实现留言功能。新建message.js文件const http = require('http'); const qs = require('querystring'); cons...
  • sinat_37390744
  • sinat_37390744
  • 2017年07月06日 15:06
  • 227

Vue制作简易留言板!

更新我的第一篇博客,第一篇博客跟大家分享的是自己用Vue写的一个简易留言板             整个页面由HTML(结构),CSS(表现),Js(行为)组成。             首先第一...
  • wwwwr0621
  • wwwwr0621
  • 2017年07月09日 12:08
  • 485
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用XML写的留言录(vb.net)(五)
举报原因:
原因补充:

(最多只允许输入30个字)