応用

リンククリックで別窓ではなく表示ページで開く

リンクの「target」が「_blank」で定義されていると、 プログラムでリンクをクリックした場合に 新しいウィンドウで開かれます。
これを新しいウィンドウで開くのではなく、自身のウィンドウで開くようにする方法です。
単純に、クリック前にtargetを_selfに変更するだけです。

					'10番目のリンクのTarget属性が[_blank]の場合、[_self]に変更する
					If objIE.Document.Links(9).target = "_blank" Then
						objIE.Document.Links(9).target = "_self"
					End If
				
					'10番目のリンクのTarget属性が[_blank]の場合、[_self]に変更する
					If objIE.Document.Links(9).target = "_blank" Then
						objIE.Document.Links(9).target = "_self"
					End If
				
					'10番目のリンクのTarget属性が[_blank]の場合、[_self]に変更する
					If WebBrowser1.Document.Links(9).GetAttribute("target") = "_blank" Then
						WebBrowser1.Document.Links(9).SetAttribute("target", "_self")
					End If
				
					'10番目のリンクのTarget属性が[_blank]の場合、[_self]に変更する
					If WebBrowser1.Document.Links(9).target = "_blank" Then
						WebBrowser1.Document.Links(9).target = "_self"
					End If