応用

表示画面情報&画面スクロール

表示画面情報&画面スクロール

					Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

						'サイト表示
						Dim objIE As SHDocVw.InternetExplorer
						objIE = CreateObject("InternetExplorer.Application")
						objIE.Navigate("http://www.yahoo.co.jp")
						objIE.Width = 200
						objIE.Height = 200
						objIE.Visible = True
						While objIE.Busy = True OrElse objIE.ReadyState <> SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
						System.Threading.Thread.Sleep(100)
						Application.DoEvents()
						End While

						'表示情報
						Debug.Print("ClientSize:" & objIE.Document.DocumentElement.ClientWidth & _
							"," & objIE.Document.documentElement.ClientHeight)				'表示領域のサイズ
						Debug.Print("SiteSize:" & objIE.Document.Body.ScrollWidth & _
							"," & objIE.Document.Body.ScrollHeight)							'表示中サイトのサイズ
						Debug.Print("Left:" & objIE.Document.DocumentElement.ScrollLeft)	'スクロール量X
						Debug.Print("Top:" & objIE.Document.DocumentElement.ScrollTop)		'スクロール量Y

						'画面スクロール
						objIE.Document.Parentwindow.ScrollTo(100, 100)						'座標100,100にスクロールさせる

					End Sub
				
					Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

						'サイト表示
						WebBrowser1.Navigate("http://www.yahoo.co.jp")
						While WebBrowser1.IsBusy = True OrElse WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
							System.Threading.Thread.Sleep(100)
							Application.DoEvents()
						End While

						'表示情報
						Debug.Print("Enabled:" & WebBrowser1.ScrollBarsEnabled)								'スクロールバーの表示/非表示
						Debug.Print("ClientSize:" & WebBrowser1.Size.ToString)								'表示領域のサイズ(=WebBrowserのサイズ)
						Debug.Print("SiteSize:" & WebBrowser1.Document.Body.ScrollRectangle.ToString)		'表示中サイトのサイズ
						Debug.Print("Left:" & WebBrowser1.Document.DomDocument.documentElement.ScrollLeft)	'スクロール量X
						Debug.Print("Top:" & WebBrowser1.Document.DomDocument.documentElement.ScrollTop)	'スクロール量Y

						'画面スクロール
						WebBrowser1.Document.Window.ScrollTo(100, 100)	'座標100,100にスクロールさせる

					End Sub
				

参考