请教VB操作webbrowser代码改vfp代码，谢谢 - VFP论坛

已结贴√ 问题点数：20 回复次数：23

请教VB操作webbrowser代码改vfp代码，谢谢

根据id直接click
<button id="wordsearchbtn" class="btn">查询</button>
此按钮的点击方法
Webbrowser1.Document.GetElementsByTagname("button")("wordsearchbtn").Click
如何把上面代码改成vfp代码，谢谢

第 2 楼

得分:10

thisform.Webbrowser1.Document.GetElementByID("wordsearchbtn").click 试试

第 3 楼

得分:0

用代码直接执行对象的click，如果html不是自己写的有可能不会触发click事件。

第 4 楼

得分:0

回复 2楼 cjc1010

点击没有反应

测试.rar (302.93 KB)

直接用鼠标点击webbrowser上的网页按钮可用，点击表单上的就没有反应
Thisform.Web1.Document.getElementById('button1').click()
网页代码
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <meta charset="UTF-8">
    <meta http-equiv="X-UA-Compatible" content="IE=edge">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">

<title>Document</title>
</head>
<body>

<div style="text-align:center">
  <button onclick="playPause()" id="button1">播放/暂停</button>
  <button onclick="makeBig()">放大</button>
  <button onclick="makeSmall()">缩小</button>
  <button onclick="makeNormal()">普通</button>
  <br>
  <video id="video1" width="420">
    <source src="movie.mp4" type="video/mp4">
    您的浏览器不支持 HTML5 video 标签。
  </video>
</div>

<script>
var myVideo=document.getElementById("video1");

function playPause()
{
    if (myVideo.paused)
      myVideo.play();
    else
      myVideo.pause();
}

    function makeBig()
{
    myVideo.width=560;
}

    function makeSmall()
{
    myVideo.width=320;
}

    function makeNormal()
{
    myVideo.width=420;
}
</script>

</body>
</html>