摘要: Private Sub Command1_Click() Dim wb Set wb = WebBrowser1.Document For i = wb.All.length - 1 To 0 Step -1 If LCase(wb.All(i).tagname) = "a" Then If wb.All(i).className = "d1" Then wb.All(i).Click End If End If NextEnd SubPrivate Sub Form_Load() WebBrowser1.Navigate "http://st 阅读全文
posted @ 2011-11-02 14:19 镇水古月 阅读(168) 评论(0) 推荐(0) 编辑
摘要: 可放大缩小的文本 阅读全文
posted @ 2011-11-02 10:16 镇水古月 阅读(128) 评论(0) 推荐(0) 编辑
摘要: 引用:http://zhidao.baidu.com/question/44902522.htmlCtrl+T 调出部件对话框 在控件 一栏里 找到 Microsoft Internet Controls 选中应用这时 工具栏就会多一个 控件图标 像使用按钮那样在窗体上画一个 Web控件 就可以使用了 阅读全文
posted @ 2011-11-02 09:43 镇水古月 阅读(187) 评论(0) 推荐(0) 编辑