摘要:
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 阅读全文
摘要:
可放大缩小的文本 阅读全文
摘要:
引用:http://zhidao.baidu.com/question/44902522.htmlCtrl+T 调出部件对话框 在控件 一栏里 找到 Microsoft Internet Controls 选中应用这时 工具栏就会多一个 控件图标 像使用按钮那样在窗体上画一个 Web控件 就可以使用了 阅读全文