ブラウザの特殊な操作 各ブラウザ共通

リンククリック時に別ウィンドウを開かずに自ウィンドウに表示する

リンク(アンカータグ)のtarget属性が「_blank」に設定されていると、プログラムでリンクをクリックした場合に新しいウィンドウで開かれます。

これを新しいウィンドウで開くのではなく自身のウィンドウに表示したい場合は、クリック前にtarget属性を「_self」に変更すれば良いです。

InternetExplorer操作時

						'下記コードの動作確認はテストページ(https//web.biz-prog.net/test/testpage.html)を使っています

						'リンクのTarget属性が"_blank"の場合、"_self"に変更する
						If objIE.Document.getElementById("linknewwindow").target = "_blank" Then
							objIE.Document.getElementById("linknewwindow").target = "_self"
						End If
				
						'リンクをクリックする
						objIE.Document.getElementById("linknewwindow").click()
					
						//下記コードの動作確認はテストページ(https://web.biz-prog.net/test/testpage.html)を使っています

						//リンクのTarget属性が"_blank"の場合、"_self"に変更する
						if (objIE.Document.getElementById("linknewwindow").target == "_blank")
						{
							objIE.Document.getElementById("linknewwindow").target = "_self";
						}
			
						//リンクをクリックする
						objIE.Document.getElementById("linknewwindow").click();	
					
						'10番目のリンクのTarget属性が[_blank]の場合、[_self]に変更する
						If objIE.Document.Links(9).target = "_blank" Then
							objIE.Document.Links(9).target = "_self"
						End If
					

WebBrowserコントロール使用時

						'下記コードの動作確認はテストページ(https//web.biz-prog.net/test/testpage.html)を使っています

						'リンクのTarget属性が"_blank"の場合、"_self"に変更する
						If webBrowser1.Document.GetElementById("linknewwindow").GetAttribute("target") = "_blank" Then
				
							webBrowser1.Document.GetElementById("linknewwindow").SetAttribute("target", "_self")
						End If
				
						'リンクをクリックする
						webBrowser1.Document.GetElementById("linknewwindow").InvokeMember("click")				
					
						//下記コードの動作確認はテストページ(https://web.biz-prog.net/test/testpage.html)を使っています

						//リンクのTarget属性が"_blank"の場合、"_self"に変更する
						if (webBrowser1.Document.GetElementById("linknewwindow").GetAttribute("target") == "_blank")
						{
							webBrowser1.Document.GetElementById("linknewwindow").SetAttribute("target","_self");
						}
			
						//リンクをクリックする
						webBrowser1.Document.GetElementById("linknewwindow").InvokeMember("click");
					
						'10番目のリンクのTarget属性が[_blank]の場合、[_self]に変更する
						If WebBrowser1.Document.Links(9).target = "_blank" Then
							WebBrowser1.Document.Links(9).target = "_self"
						End If
					

WebView2コントロール使用時

						'下記コードの動作確認はテストページ(https//web.biz-prog.net/test/testpage.html)を使っています

						'リンクのTarget属性を"_self"に変更し、クリックする
						Dim js As New System.Text.StringBuilder()
						js.AppendLine("document.getElementById('linknewwindow').target = '_self';")
						js.AppendLine("document.getElementById('linknewwindow').click();")
						Await webView2.ExecuteScriptAsync(js.ToString())				
					
						//下記コードの動作確認はテストページ(https://web.biz-prog.net/test/testpage.html)を使っています

						//リンクのTarget属性を"_self"に変更し、クリックする
						System.Text.StringBuilder js = new System.Text.StringBuilder();
						js.AppendLine("document.getElementById('linknewwindow').target = '_self';");
						js.AppendLine("document.getElementById('linknewwindow').click();");
						await webView2.ExecuteScriptAsync(js.ToString());