| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1608 人关注过本帖
标题:请教VB操作webbrowser代码改vfp代码,谢谢
取消只看楼主 加入收藏
wxzd123
Rank: 2
等 级:论坛游民
帖 子:394
专家分:69
注 册:2012-9-6
结帖率:87.76%
收藏
已结贴  问题点数:20 回复次数:9 
请教VB操作webbrowser代码改vfp代码,谢谢
根据id直接click
<button id="wordsearchbtn" class="btn">查询</button>
此按钮的点击方法
Webbrowser1.Document.GetElementsByTagname("button")("wordsearchbtn").Click
如何把上面代码改成vfp代码,谢谢
搜索更多相关主题的帖子: vfp webbrowser button VB 代码 
2023-02-22 07:13
wxzd123
Rank: 2
等 级:论坛游民
帖 子:394
专家分:69
注 册:2012-9-6
收藏
得分: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>
2023-02-22 14:58
wxzd123
Rank: 2
等 级:论坛游民
帖 子:394
专家分:69
注 册:2012-9-6
收藏
得分:0 
回复 3楼 吹水佬
自己写的按钮
2023-02-22 14:59
wxzd123
Rank: 2
等 级:论坛游民
帖 子:394
专家分:69
注 册:2012-9-6
收藏
得分:0 
回复 6楼 吹水佬
版主这样没反应
网页代码:
<button onclick="playPause()" id="button1">播放/暂停</button>

vfp代码
 Thisform.Web1.Document.getElementById('button1').click
2023-02-22 15:58
wxzd123
Rank: 2
等 级:论坛游民
帖 子:394
专家分:69
注 册:2012-9-6
收藏
得分:0 
回复 8楼 吹水佬
版主好,实在找不到有参考的东东,版主辛苦一下给一段示例代码,谢谢
2023-02-22 19:33
wxzd123
Rank: 2
等 级:论坛游民
帖 子:394
专家分:69
注 册:2012-9-6
收藏
得分:0 
回复 10楼 吹水佬
版主你好
看了WebView2代码
    * html代码(web测试代码)
TEXT TO htmlCode TEXTMERGE NOSHOW PRETEXT 7
<!DOCTYPE html>
<html>
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>vfp运行web代码</title>
    <script>
        var e = document.createEvent("MouseEvents");
        e.initEvent("click", true, true);
        
        function test()
        {
            alert("点击了test按键");
        }
    </script>
</head>
<body>
    <pre>
    <h2>vfp运行web代码</h2>
    <button id="vfprun" onclick="test()">test</button>
    </pre>
</body>
</html>
ENDTEXT

WebView_NavigateHtml(STRCONV(htmlCode+0h00,5))                  && 打开html
INKEY(1)                                                        && 因 Navigate 是异步的,此时要中断一下
jsCode = [document.getElementById("vfprun").dispatchEvent(e);]  && 执行点击按键
WebView_ExecuteScript(STRCONV(jsCode+0h00,5))                   && 解释html之后执行
这里的.dispatchEvent(e)和WebView_ExecuteScript(STRCONV(jsCode+0h00,5)) 是不是和您做的myWebViewDll.dll有关,这个WebView2看着用起来太复杂,我用的是webbrowser,请版主指导一下,辛苦了,谢谢
2023-02-23 08:18
wxzd123
Rank: 2
等 级:论坛游民
帖 子:394
专家分:69
注 册:2012-9-6
收藏
得分:0 
回复 13楼 吹水佬
版主不是照搬,参考不了,好像有些东西在dll中,这是这行代码中少点什么?
Thisform.Web1.Document.getElementById('button1').?.click
'button1'是网页代码中的id,这个?应该是什么不知道
2023-02-23 10:28
wxzd123
Rank: 2
等 级:论坛游民
帖 子:394
专家分:69
注 册:2012-9-6
收藏
得分:0 
回复 16楼 吹水佬
谢谢版主
webbrowser不支持这行代码
var e = document.createEvent("MouseEvents");
图片附件: 游客没有浏览图片的权限,请 登录注册
2023-02-23 16:11
wxzd123
Rank: 2
等 级:论坛游民
帖 子:394
专家分:69
注 册:2012-9-6
收藏
得分:0 
哈哈,落伍了,请问版主有支持低版本的命令代替吗?
2023-02-23 16:58
wxzd123
Rank: 2
等 级:论坛游民
帖 子:394
专家分:69
注 册:2012-9-6
收藏
得分:0 
上面是在win7下测试,我又拷贝到win10机器,结果一样
2023-02-23 18:43
快速回复:请教VB操作webbrowser代码改vfp代码,谢谢
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020776 second(s), 12 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved