精华内容
下载资源
问答
  • VB的webbrowser点击网页上的按钮链接问题 2010年01月23日  ///////////////实现点击网页上的按钮  Private Sub Command1_Click()  Dim vDoc, vTag  Dim i As Integer  Set vDoc = WebBrowser1.Document ...
    VB的webbrowser点击网页上的按钮链接问题 
    
    2010年01月23日
      ///实现点击网页上的按钮
      Private Sub Command1_Click()
      Dim vDoc, vTag
      Dim i As Integer
      Set vDoc = WebBrowser1.Document
      For i = 0 To vDoc.All.length - 1
      If UCase(vDoc.All(i).tagName) = "INPUT" Then
      Set vTag = vDoc.All(i)
      If vTag.Type = "submit" And vTag.Value = "百度一下" Then vTag.Click
      End If
      Next i
      End Sub
      ///VB WebBrowser1中如何点击网页文字链接
      Dim vTag As Variant, I As Integer, vCount As Integer
      If Web1.ReadyState = READYSTATE_COMPLETE Then
      Set vTag = WebBrowser1.Document.getElementsByTagName("a")
      vCount = vTag.length
      For I = 0 To vCount - 1
      '以下注释部分为方法之一
      ' If vTag(I).innerText = "首页" Then WebBrowser1.Navigate vTag(I).href
      If vTag(I).innerText = "首页" Then
      Web1.Document.All.Tags("a")(I).Click
      End If
      Next
      End If
    展开全文
  • VB.net MessageBox弹出的确认对话框点击确定按钮 Dim dr As DialogResult = MessageBox.Show(“XX”, “提示”,MessageBoxButtons.OKCancel,MessageBoxIcon.Question) If dr = DialogResult.OK Then xxxx Else xxxx...

    VB.net MessageBox弹出的确认对话框点击确定按钮

    Dim dr As DialogResult = MessageBox.Show(“XX”, “提示”,MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
    If dr = DialogResult.OK Then
    xxxx
    Else
    xxxx
    End If

    展开全文
  • 重新回到《vb.net 教程 3-10 窗体编程 datagridview控件 10 运行时增加按钮列和超链接列 》,当我们增加新的一列按钮或者超链接后,会发现,按钮或者超链接点击后没有反应。那么如果要点击某个按钮弹出一个对话框,...

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

    重新回到《vb.net 教程 3-10 窗体编程 datagridview控件 10 运行时增加按钮列和超链接列 》,当我们增加新的一列按钮或者超链接后,会发现,按钮或者超链接点击后没有反应。那么如果要点击某个按钮弹出一个对话框,或者点击某个超链接,弹出需要的网页,该如何实现呢?

    这就需要借助DataGridView.CellContentClick 事件,当单击单元格的内容时会触发该事件。
    在《vb.net 教程 3-10 窗体编程 datagridview控件 10 运行时增加按钮列和超链接列》中,代码设置了新增的按钮列名称为“button”,新增的超链接列名称为“Link”。当单击单元格的内容时,需要先通过列Name属性判断是否点击的是我们设置的列,如果是则运行相应的代码。
    当然,超链接列并不会点击就跳出网页,而如同LinkLabel控件一样,点击后需要自己设置。
    具体代码如下:

        Private Sub dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellContentClick
    
            '当点击按钮列时
            If dgv.Columns(e.ColumnIndex).Name = "button" Then
                MessageBox.Show("点击了第" & (e.RowIndex + 1) & "行的按钮")
            End If
            '当点击超链接列时
            If dgv.Columns(e.ColumnIndex).Name = "Link" Then
                Process.Start("http://blog.csdn.net/uruseibest")
            End If
    
        End Sub

    当点击按钮时,弹出对话框:

    还可以通过typeof这种更为广泛的来判断是哪种单元格:

        Private Sub dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv.CellContentClick
            If TypeOf dgv(e.ColumnIndex, e.RowIndex) Is DataGridViewButtonCell Then
                MessageBox.Show("点击了第" & (e.RowIndex + 1) & "行的按钮")
            End If
        End Sub

    代码判断了点击单元格的类型是否是datagridviewbuttoncell,如果是的话就运行相应的代码。

    即使是后来修改为了datagridviewbuttoncell的单元格,也能正常运行。

    另外还可以在此基础上判断所在的行、列,做更进一步的细分代码。

     

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

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

    展开全文
  • 控制网页的FORMS行为PrivateSubCommand2_Click()WithWebBrowser1.Document.Forms(0).c2.Checked=1.r1(1).Checked=1EndWithEndSubPrivateSubCommand2_Click()WithWebBrowser1.Document.Forms(0).d1.Options(1).S...

    控制网页的FORMS行为

    Private Sub Command2_Click()

    With WebBrowser1.Document.Forms(0)

    .c2.Checked = 1

    .r1(1).Checked = 1

    End With

    End Sub

    Private Sub Command2_Click()

    With WebBrowser1.Document.Forms(0)

    .d1.Options(1).Selected = 1

    End With

    End Sub

    web.Document.getElementsByName("D1").Item(0).selectedIndex = 1

    ==============================================

    普通

    原创

    转帖

    比如一个网页里有如上代码

    我想选择原创

    webbrowser中怎么写

    Private Sub Command1_Click()

    WebBrowser1.Navigate "c:\ggg.html"

    End Sub

    Private Sub Command2_Click()

    Dim x

    For Each x In WebBrowser1.Document.All("notecome")

    If x.Value = "c" Then

    x.Checked = True

    End If

    Next

    End Sub

    ============================================================================================

    假设你的HTML代码如下:

    function abcd(){

    alert("haha");

    return false;

    }

    ggggg

    VB代码如下:

    Private Sub Command1_Click()

    WebBrowser1.Navigate "http://www.applevb.com/script_test.html"

    End Sub

    Private Sub Command2_Click()

    Dim a, b

    Dim d As IHTMLDocument2

    For Each a In WebBrowser1.Document.All

    Debug.Print a.tagName

    If (a.tagName = "SCRIPT") Then

    End If

    If (a.tagName = "A") Then

    If a.Id = "xxx" Then

    a.FireEvent ("onclick")

    End If

    End If

    Next

    点击Command1浏览这个网页,点击Command2运行其中的脚本abcd。

    ==============================================

    怎么编程把用户名,密码提交到网页上的登录页?

    首先在程序中加入Webbrowser控件并加入引用 Microsoft HTML Object Library。

    假设你的HTML页面表单代码如下:

    请填写下面表单注册(*项为必添项)

    *姓名

    *昵称

    电子邮件

    *密码

    注意其中元素的type、Name、value属性。然后VB中的代码如下:

    Private Sub Command1_Click()

    WebBrowser1.Navigate "http://chen/chat/newuser.htm"

    End Sub

    Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    Dim vDoc, vTag

    Dim i As Integer

    Set vDoc = WebBrowser1.Document

    List1.Clear

    For i = 0 To vDoc.All.length - 1

    If UCase(vDoc.All(i).tagName) = "INPUT" Then

    Set vTag = vDoc.All(i)

    If vTag.Type = "text" Or vTag.Type = "password" Then

    List1.AddItem vTag.Name

    Select Case vTag.Name

    Case "Name"

    vTag.Value = "IMGod"

    Case "NickName"

    vTag.Value = "IMGod"

    Case "Password"

    vTag.Value = "IMGodpass"

    Case "EMail"

    vTag.Value = "IMGod@paradise.com"

    End Select

    ElseIf vTag.Type = "submit" Then

    vTag.Click

    End If

    End If

    Next i

    End Sub

    点击Command1就可以自动填表并提交了。

    =====================================================================================

    调用forms下的Submit控件的Click事件,我会做,但我不想这么做.

    有没有办法直接调用类似于:web1.document.forms.submit,这句语句我怎么写都不成功

    是这个

    Webbrowser1.document.formName.submit()

    不能用,formname为form1所以我调用Webbrowser1.document.form1.submit

    出错类型:对象不支持该属性或方法,

    然后调用Webbrowser1.document.forms(0).submit()

    出错类型同上

    Private Sub Command1_Click()

    WebBrowser1.Navigate "http://localhost/webapplication2/MyLogonPage.aspx"

    End Sub

    Private Sub Command2_Click()

    WebBrowser1.Document.All("Form1").submit

    End Sub

    ......

    我本想把reset的type改成submit 再提交,可出错,type是只读属性,不能修改,我只要有办法把这页面递交出去就行,当然,用POST也不行,参数太多,组合方式太多

    你用下面的代码试一下你的页面:

    Private Sub Command1_Click()

    WebBrowser1.Navigate "http://oakhome.xicp.net/webapplication2/MyLogonPage.aspx"

    End Sub

    Private Sub Command2_Click()

    Dim x

    On Error Resume Next

    For Each x In WebBrowser1.Document.All

    List1.AddItem x.Name

    Next

    End Sub

    看看在List1里面列出来的页面元素的名字有没有Form1

    找到原因了,你的页面是这样的:

    你把name="Submit1" 改成name="Submit"肯定就不会成功了,很不幸的是我要提交的页面中就有这样一句,现在可有办法解决吗???

    =======================================================================

    使用WebBrowser_V1接受消息

    Private WithEvents WebMessage As WebBrowser_V1

    Private Sub Form_Load()

    Set WebMessage = WebBrowser1.Object

    End Sub

    Private Sub WebMessage_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)

    '这里有Flags变量可以取得窗体应有的状态

    End Sub

    具体值需要你自己去试试看。对象浏览器里面没有

    =======================================================================================================

    通过下面的方法遍历页面中的IFrame:

    Sub EnumFrames(ByVal wb As WebBrowser)

    Dim pContainer As olelib.IOleContainer

    Dim pEnumerator As olelib.IEnumUnknown

    Dim pUnk As olelib.IUnknown

    Dim pBrowser As SHDocVw.IWebBrowser2

    Set pContainer = wb.Object.Document

    ' Get an enumerator for the frames

    If pContainer.EnumObjects(OLECONTF_EMBEDDINGS, pEnumerator) = 0 Then

    Set pContainer = Nothing

    ' Enumerate and refresh all the frames

    Do While pEnumerator.Next(1, pUnk) = 0

    On Error Resume Next

    ' Clear errors

    Err.Clear

    ' Get the IWebBrowser2 interface

    Set pBrowser = pUnk

    If Err.Number = 0 Then

    Debug.Print "Frame: " & pBrowser.LocationURL

    End If

    Loop

    Set pEnumerator = Nothing

    End If

    End Sub

    展开全文
  • VB 制作网页浏览器

    千次阅读 2012-04-22 19:49:20
    '如果你希望新打开的网页出现在同一个窗口,可以这样做 Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1 Private Sub Form_Load() Set Web_V1 = WebBrowser1.Object WebBrowser1.Navigate2 ...
  • Public Function HtmlStr$(URL$) '提取网页源码函数  Dim XmlHttp  Set XmlHttp = CreateObject("Microsoft.XMLHTTP")  XmlHttp.Open "GET", URL, False  XmlHttp.Send  If ...
  • ``` (function(that){ durexCheck(function(){changeDBOnline(that,'PAID')}, '#J_changeDB_durex') })(this) " href="javascript:void(0)" data-spm-anchor-id="a1z09.1.9.3"> 等待 ...
  • 版权声明:本文为博主原创...按钮列的增加同前面所讲述的文本列和复选框列类似,具体代码如下: '增加一列按钮 Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click Dim ne...
  • VB自动关闭网页广告窗口 经常上网冲浪的人,在打开网页的时候经常遇到同时弹出多个广告窗口的情况,不但影响视线,还会影响网速。如果用鼠标一个个关闭,实在很麻烦。我经过观察分析,找到了解决的办法,可以让你...
  • vb 添加URL快捷方式到收藏夹、开始菜单和桌面上
  • 控件的鼠标事件,动态改变其显示相关属性,即可模拟出网页链接的效果。而且在事件中可以加入更多的效果,比 LinkLabel 控件更绚丽。 下面介绍实现的过程。 首先打开 VS.NET ,创建项目,选择项目类型为类库,...
  • vb.net2005 获取网页链接,并提示

    千次阅读 2007-10-04 23:00:00
    =用按钮设置WEBBROWSER的内容================================Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System....
  • 后台自动登录网页vb脚本实例代码

    千次阅读 2009-08-13 18:55:00
    set IE=createobject("Internetexplorer.application")IE.Visible = TrueIE.Navigate "https://www.xxx.com/login.htm" ‘等待网页加载完成While IE.busy Or IE.readystateWend 从网页元素中找到设置的元素,并...
  • 一款VB环境适用的文本编辑器,有点像网页版的HTML编辑器,功能挺不错,不过调用时需要引入多个外部控件,比如使用了JCButton控件美化了编辑器工具栏内的按钮。这个WinForm版的文本编辑器可设置字体样式、超级链接、...
  • 命令按钮、单选按钮、复选框上都有Picture属性,可选项: a、...VB实现点击命令按钮将对单选(复选)按钮的选择状态Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim fuxuan As ...
  • 我正在编写一个程序,它可以获取带有视频的网页的源代码。然后它使用正则表达式来隔离该视频的下载链接。那么它使用httpwebrequest和httpwebresponse下载视频。我的问题出现在某些网站有一个页面,您必须点击“继续...
  • VB 精典适用源代码

    2021-04-28 01:50:35
    查找方法:按ctrl+f,输入要查找的问题关键字即可每...////////////////////////////////////////////////////////////////////////////////////如何用VB建立快捷方式Private Declare FunctionfCreateShellLinkLib"...
  • VB6.0学习笔记

    2021-08-25 08:22:20
    style属性:改为graphical,这样就可以使用picture属性,以及==按钮的背景颜色== VB按钮如何设置颜色和按钮文字设置颜色? 首先command的style要设为1,否则无法改变,然后在backcolor设置颜色,按钮的字体颜色不能改...
  • vb.net 教程 目录

    万次阅读 多人点赞 2017-04-07 23:03:24
    vb.net 教程 5-19 拓展:制作一个QQ大家来找茬和美女找茬辅助工具 (2019-11-25 16:29:53)vb.net 教程 5-20 拓展 论坛图片批量转换 (2019-11-25 16:19:31)vb.net 教程 5-21 拓展 如何给IE浏览器截图2019年11月25...
  • 制作VB安装程序问答(一)制作安装程序往往是程序设计的最后一步,同时也是重要的一步,因为运行安装程序往往是用户的第一个操作。有不少读者询问这方面的问题,《答疑解惑》将分两期介绍一些制作Visual Basic安装程序...
  • 15.3 VB 应用程序的 Internet 扩展 * 在VB里,用户直接使用集成的动态HTML语言...DHTML的编程与VB编程有所不同,前者以窗体为基本界面,后者则使用Web页,但还是有很大的相似性。 VB使用DHTML应用程序设计器来开...
  • VB.NET 教程_01_基础语法

    万次阅读 多人点赞 2018-08-08 00:48:58
    VB.Net是一种简单,现代,面向对象的计算机编程语言,由微软开发,将.NET Framework和公共语言运行库的强大功能与作为Visual Basic标志的生产力优势相结合。 Visual Basic .NET(VB.NET)是在.NET Framework上...
  • VB程序破解

    千次阅读 2016-04-02 16:03:34
    VB程序的破解思路总结、编译方式vs破解工具 比较 把一个简单的VB计时器程序研究透了,对于VB破解应有较大帮助,如有错误欢迎指出。 VB程序也是一个非常有趣的东西,你去看VB的主程序,是用Microsoft Visual ...
  • 各位大神,我现在做好了一个VB程序,但是要与前台的PHP页面链接(我不懂PHP,所以不是很会连接),所以我就想当页面上的一个按钮被我们点击之后,直接触发我的VB事件,这个应该怎么做?是用winsock,还是webbrowser...
  • VB自动关闭网页广告窗口

    千次阅读 2007-09-24 09:51:00
    经常上网冲浪的人,在打开网页的时候经常遇到同时弹出多个广告窗口的情况,不但影响视线,还会影响网速。如果用鼠标一个个关闭,实在很麻烦。我经过观察分析,找到了解决的办法,可以让你的屏幕从此清爽起来。 网页...
  • linklabel_VB.NET LinkLabel

    2020-09-11 06:28:43
    linklabel LinkLabel, new in Visual Basic .NET, is a standard control that lets you embed web-style links in a ... Like a lot of VB.NET controls, this one doesn't do anything that you couldn't do bef...
  • VB.NET 教程_04_高级教程

    千次阅读 2018-08-08 01:05:04
    VB.Net - 正则表达式   正则表达式是可以与输入文本匹配的模式。 .Net框架提供了允许这种匹配的正则表达式引擎。 模式由一个或多个字符文字,运算符或构造组成。   定义正则表达式的构造 有各种类别的字符,...
  • 1.WebBrowser打开网站代码为:WebBrowser1.Navigate "网址"如打开百度代码:WebBrowser1.Navigate "http://baidu.com"如打开主页代码:WebBrowser1.Navigate "about:blank"2.IE相关命令按钮刷新:WebBrowser1....

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,013
精华内容 1,605
关键字:

vb按钮链接网页