VB6.0 获取WebBrowser文字的坐标

在VB6.0中，你可以使用WebBrowser控件的Document对象来获取网页上的文本内容及其位置。以下是基本步骤：

1. 首先，确保你的代码是在一个事件处理器中运行，例如当用户单击按钮或者某个事件触发时。

Private Sub CommandButton1_Click()
    Dim wb As Object ' 定义WebBrowser对象
    Set wb = WebBrowser1 ' 将wb指向实际的WebBrowser控件

    ' 使用HTMLDocument对象获取页面源代码
    Dim doc As HTMLDocument
    Set doc = wb.Document
    
    ' 找到特定的文字区域，这里假设我们要找的是文档标题
    Dim titleElement As HTMLHeadingElement
    Set titleElement = doc.getElementsByTagName("title")(0)
    
    ' 获取元素的位置信息
    Dim rect As MSHTML.IHTMLRect
    If titleElement Is Nothing Then Exit Sub
    titleElement.GetBoundingClientRect rect
    
    ' 文本坐标通常是左上角的X、Y值，以及宽度和高度
    Dim x As Long, y As Long, width As Long, height As Long
    x = rect.left
    y = rect.top
    width = rect.right - rect.left
    height = rect.bottom - rect.top
    
    ' 显示或处理坐标数据
    MsgBox "Title position: X=" & x & ", Y=" & y & ", Width=" & width & ", Height=" & height
End Sub