AIと戦って、あなたの人生のリスク診断 >>

お世話になります。
以下のvb6のコードを見ていただきたいですが
bodyタグの中にh1タグしかない簡単なページに
<a href="http://www.yahoo.co.jp">ヤフーへ</a>
というaタグをウェブブラウザに表示させた際に追加させたいと
思っています。

その際、href属性とhttp://www.yahoo.co.jpという値を
つけくわえるコードがわかりません。
{vb.netだと elem.SetAttribute("HREF", http://www.yahoo.co.jp)
で記述できるみたいですが、vb6だとコンパイルエラーがでてしまいます}

どのようにコーディングすればよろしいでしょうか?
教えてください。お願い致します。




Private Sub Command1_Click()
WebBrowser1.Navigate ("http://hoho.hiho.jp/")

Do While WebBrowser1.Busy = True
'何もしないループ(笑)
DoEvents
Loop

Start = Timer
Do While Timer - Start < 2
DoEvents
Loop

Dim elm As IHTMLElement
Set elem = WebBrowser1.Document.createElement("A")
elem.innerText = "ヤフーへ"
WebBrowser1.Document.body.appendChild (elem)


End Sub

このQ&Aに関連する最新のQ&A

A 回答 (2件)

> ですがappendChildでソースに組み込む方法が知りたいのです。



全体的に説明不足なのに、なぜ appendChild にこだわるのかの理由もなく、
回答を全否定されるのもなんだかなぁ...と思いますけど。

Dim elem As Variant '<--- Variant ならいけた

Set elem = WebBrowser1.Document.createElement("A")
elem.innerText = "ヤフーへ"
elem.href = "http://www.yahoo.co.jp" '<-- 追加
WebBrowser1.Document.body.appendChild (elem)
    • good
    • 0
この回答へのお礼

そういいつつもちゃんと教えてくれるそんなKenKenさんが好きです。

お礼日時:2006/10/25 19:03

この処理の目的が良く分かりませんが....直接 Html を書き込んでしまえば?



With WebBrowser1
  .Navigate ("http://hoho.hiho.jp/")
  While .Busy And .ReadyState <> READYSTATE_COMPLETE
    DoEvents
  Wend
  .Document.body.insertAdjacentHTML _
    Where:="beforeEnd", _
    Html:="<a href=http://www.yahoo.co.jp>ヤフーへ</a>"
End With

ちなみに、一回 Yahoo へ行って、元のページに戻るとリンクが消えてます。
サーバーの Html を書き換えるわけではないので、当然の結果ですが、
これを阻止する必要があるなら、その方法はご自分で考えてみて下さい。
    • good
    • 0
この回答へのお礼

ありがとうございます。
ですがappendChildでソースに組み込む方法が知りたいのです。

お礼日時:2006/10/25 15:41

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング