応用

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

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

						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
					

参考