gpt4 book ai didi

javascript - 单击浏览器 html 页面中的链接时显示 VB6 表单

转载 作者:搜寻专家 更新时间:2023-10-31 22:05:04 26 4
gpt4 key购买 nike

我正在使用 VB6 WebBrowser,这里我需要在用户单击 WebBrowser 的任何特定链接时打开一个 vb6 表单

在 HTML 中

<html>
<head>
<body>
<a href="--show vb6 form--">Click To show VB6 Form2</a>
</body>
</html>

我不知道该怎么做。我想有时它可以完成第三个文本文件,例如单击链接时会在文本文件中写入像 002 这样的鳕鱼。

而在 vb 中,定时器会每秒检查一次文件,当定时器检测到文件包含 002 时,它会显示表格。

这个方法可以吗?或者我能做的更短的事情?

最佳答案

选择一个更好的命名方案,例如:

<a href="#vb-showform2">Click To show VB6 Form2</a>
<a href="#vb-waffles">Waffles</a>

然后通过 BeforeNavigate2 事件拦截链接点击,查看 url,如果它匹配 #vb-* 运行你的代码:

Private Sub WebBrowserCtrl_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)

'// get #vb-XXX command from url
Dim pos As Long: pos = InStrRev(URL, "#vb-")

If pos Then
Cancel = True '// stop default navigation

URL = Mid$(URL, pos + 4)

Select Case LCase$(URL)
Case "showform2": Form2.Show
'...
Case "waffles": MsgBox "Waffles."
Case Else: MsgBox "Unknown Command " & URL
End Select
End If

End Sub

关于javascript - 单击浏览器 html 页面中的链接时显示 VB6 表单,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/45475610/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com