vb.net 教程 12-4 msHtml 5 偷梁换柱

原创 2017年08月07日 22:13:53
这节学习如何替换网页的javascript语句。。。。
代码简单,主要是使用mshtml的 HTMLWindow2.execScript()方法。
直接上代码:
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Dim strScript As String = ""
        strScript &= "function check()"
        strScript &= "{"
        strScript &= "  if (sampleform.studentname.value.length <2)"
        strScript &= "  {"
        strScript &= "      alert(""姓名长度不符合"");"
        strScript &= "      return false;"
        strScript &= "  }"
        strScript &= "  if (sampleform.studentage.value.length <2)"
        strScript &= "  {"
        strScript &= "      alert(""年龄太小"");"
        strScript &= "      return false;	"
        strScript &= "  }"
        strScript &= "  sampleform.submit();"
        strScript &= "}"

        Dim win As mshtml.HTMLWindow2
        win = wbMain.Document.Window.DomWindow

        win.execScript(strScript, "javascript")
    End Sub
原来网页上的check()代码:
function check()
{
	if(sampleform.studentname.value=="")
	{
		alert("姓名没有填写");
		return false;
	}
	if(sampleform.studentage.value.length>2)
	{
		alert("年龄长度超过2位");
		return false;	
	}
	sampleform.submit();
}

直接修改后的代码:
function check()
{
  if (sampleform.studentname.value.length <2)
  {
      alert("姓名长度不符合");
      return false;
  }
  if (sampleform.studentage.value.length <2)
  {
      alert("年龄太小");
      return false;
  }
  sampleform.submit();
}

看看效果:
使用前:

使用后:
如果原来的网页中没有check()呢?自然会创建一个。

由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

学习更多vb.net知识,请参看 vb.net 教程 目录




版权声明:本文为博主原创文章,转载请显著位置标明出处,未经博主允许不得用于商业目的。

相关文章推荐

vb.net 教程 12-4 msHtml 2

窗体设计界面: “转到”按钮的代码: Private Sub btnGoto_Click(sender As Object, e As EventArgs) Handles btnGoto....

vb.net 教程 12-4 msHtml 3

相比之前学习的HtmlDocument类和HtmlElement类,mshtml还提供了网页元素更详细的分类,比如 IHTMLScriptElement :脚本元素 IHTMLStyleSheet :...

vb.net 教程 12-4 msHtml 1

MSHTML是微软公司的一个COM组件,该组件封装了HTML语言中的所有元素及其属性,通过其提供的标准接口,可以访问指定网页的所有元素。 MSHTML提供了丰富的HTML文档接口,有IHTMLDocu...

vb.net 教程 5-12 绘图实例之统计图 4 注意事项

窗体上我们设置了4个按钮,还有一个就是将绘制的统计图保存下来: Private Sub btnSave_Click(sender As Object, e As EventArgs) Hand...

vb.net 教程 5-12 绘图实例之统计图 1 柱状图

前面几篇介绍了如何使用graphics绘制图像,这几篇准备介绍如何使用graphics提供的方法绘制统计图。 包括:柱状图、折线图、饼图。 假设知道某个公司1-4季度的盈利情况,我们来看看如何完成统计...

vb.net 教程 5-12 绘图实例之统计图 2 折线图

继续上一期《绘图实例之统计图1》,继续讲解如何绘制折线图: 当按下“折线图”按钮时,调用三个函数,分别是绘制坐标轴、绘制折线、显示到窗口: Private Sub btnLineChart_C...

vb.net 教程 12-2 HtmlDocument类 4

本节内容谈谈 HtmlDocument的ExecCommand()方法。 实际在html文档中也常常采用document.ExecCommand()方法来执行一些固定命令 HtmlDocument.E...

vb.net 教程 12-3 HtmlElement类 4

在上一节提供的网页代码中有两个文本框, name分别是 studentname 和 studentage,分别模拟学生姓名和年龄,由于本教程并不是讲 html和javascript方面的, 所以我们并...

vb.net 教程 3-4 窗体编程 公共控件9 ListView 5

继续讨论列标题 上一节讨论了列标题的添加,本节谈谈列标题的移除。 实际上,ListView的Columns是一个ColumnHeaderCollection,实际就是一个或者多个ColumnHeade...

vb.net 教程 5-13 图像处理之像素处理 4

这一篇介绍的是仅有红色、绿色或者蓝色分量的特效: 仅红色时候: RNew=R GNew=0 BNew=0 仅绿色时候: RNew=0 GNew=G BNew=0 仅蓝色时候: RNew=0 GNew=...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb.net 教程 12-4 msHtml 5 偷梁换柱
举报原因:
原因补充:

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