応用

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

リンクの「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