在WebBrowser里如何提交一个onclick事件呢？

Question

vbwebbrowseronclick

Answer 1

试试：webbrowser1.document.all.item("jq_date_start").click

Answer 2

我测试的可以啊：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ttttt
End Sub
Sub tttt()
    ''写入内容
    Dim w1 As String
    w1 = "<input id='ipt' type='text' readonly onclick='alert(""Hello! World!"")' value='Click Me'>"
    Wb.Document.body.innerhtml = w1
End Sub
Sub ttttt()
    ''模拟单击
    Wb.Document.all.Item("ipt").Click
End Sub

Answer 3

应该模拟tanchukuang函数里执行的语句

Answer 4

Private Sub Form_Load()
    WebBrowser1.Navigate "about:blank"
End SubPrivate Sub Command1_Click()
    ''写入内容
    Dim w1 As String
    w1 = "<input id='ipt' type='text' readonly onclick='alert(""Hello! World!"")' value='Click Me'>"
    WebBrowser1.Document.body.innerhtml = w1
End SubPrivate Sub Command2_Click()
ttttt
End SubSub ttttt()
    ''模拟单击
    WebBrowser1.Document.All.Item("ipt").Click
End Sub喔，谢谢，这段代码运行得很好，我用的是VB6，里面没有Range这个类型
前面我表达得可能不太清楚，回到我最初的意思，http://live.aicai.com一打开显示的是当天的赛程，
那，有没有办法让我只点一个按钮，就能让页面显示2014-6-7的赛程呢？