vb6 webbrowser 如何判断当前网页中获取焦点的是否一个文本框？

Posted 2023-04-07

vb6 webbrowser控件 如何判断当前网页中获取焦点的是不是一个文本框？ 求解，要求：通用于任何网页、只判断网页中当前获取焦点的是否是一个文本输入框，要求返回一个值，描述获取焦点的，是，或者不是文本输入框。谢谢！
请勿乱答，谢谢！
我是说，判断webbrowser浏览器控件中网页中的输入框控件是否获得焦点，不是让窗体上的textbox输入框控件获得焦点，所以 8285604 的回答也不够准确！

参考技术A text1.text="" '清空文本框的内容
text1.setfocus '获得文本框的输入焦点 参考技术B 不是

VB6.0 获取WebBrowser当前打开页面的网址

比如当前WebBrowser1里打开的是百度首页。那么对应的TEXT1中显示www.baidu.com
最好还能得到当前页面的标题

VB6.0可通过WebBrowser控件的DocumentComplete事件来获取当前打开页面的URL（网址）。

DocumentComplete事件

描述

当被导航到该文件达到READYSTATE_COMPLETE状态时发生。

URL 属性

设置或返回 Execute 或 OpenURL 方法使用的
URL。

代码实例，新建VB的EXE工程，添加一个WebBrowser控件到窗体，放置一个TextBox控件。

Private Sub Form_Load()

    On Error GoTo useErr

    WebBrowser1.Navigate "http://zhidao.baidu.com/"

    Exit Sub

useErr:

Print "ERR"

End Sub




Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    Text1.Text = URL

End Sub

参考技术A 请在webbrowser浏览控件的documentcomplete()事件中添加代码：text1.text=url 在webbrowser控件的titlechange()事件中添加代码：me.caption=text 即可。实现效果：文本框text1中显示网页地址，窗体标题显示网页标题。希望对您有所帮助！ 参考技术B Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
text1.text= WebBrowser1.LocationName & " " & url
End Sub本回答被提问者采纳