webbrowserで<form>以外の場所のコントロールの取得

解決

T 2009-03-05 21:29:01 No: 141637

こんにちは

私は、webbrowserを使用するプログラムを作成しています。もう何日も考え込んでいます。
前後省略してありますが下記のVB6用プログラムにてform内のコントロールは取得できるのですが
<form></form>の中に入っていないコントロールを習得する方法がどうしてもわかりません。

objDocument. →このあとにForm以外指定できるのでしょうか

Set objForm = objDocument.Forms(0)
↓
Set objForm = objDocument.All
このようにしてもダメでした。

どなたかお教えいただけないでしょうか

<html ...>
  <head>

  </head>
  <body>
    <textarea>     →ここらへんにあるコントロール
      ...........
    <form>
    </form>
  </body>
</html>

    Dim objDocument    As Object
    Dim objForm        As Object

    Dim objElement     As Object
    Dim objElements    As Object

    Set objDocument = Frmmain.WebBrowser1.Document
    Set objForm = objDocument.Forms(0)

    Set objElements = objForm.elements

    For Each objElement In objForm
  debug.print objElement.Name
    Next

    Set objElements = Nothing
    Set objForm = Nothing
    Set objDocument = Nothing

T 2009-03-06 05:17:33 No: 141638

もういちどいろいろ試して自己解決しました。

objDocument.All で<form>に入っていないところもコントロールできました。

みなさまありがとうございました。