掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
WebBrowserで指定した名前のTextBoxが存在するか調べるには？ (ID:85180)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Microsoft HTML Object Library を参照設定して、 WebBrowserのDocumentCompleteイベントなどで Dim HTMLDoc As HTMLDocument Dim Elms as Object Dim Elm As Object Set HTMLDoc = WebBrowser1.Document Set Elms = HTMLDoc.ElementsByName("mail") とすれば、mailという名前のエレメント（テキストボックスとは限らない） が取得できます。 もし、存在しない場合は、このElmsのLengthプロパティが0となりますので この値で存在するかどうかがわかります。 また、テキストボックス限定で調べたいのでしたら Set Elms = HTMLDoc.ElementsByTagName("Input") とすれば、ElmsにInputタグを使用したエレメントすべてが配列として 取得できますので、 For cnt = 0 To Elms.length - 1 If Elms(cnt).Name = "mail" Then Exit For End If Next If cnt = Elms.length Then MsgBox "なし" Else MsgBox "あり" End If といった感じで調べられます。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.