Public Class Formestadisticas
' PARA DAR ZOOM AL WEBROWSER
Dim InitialZoom As Integer = 100
Public Enum Exec
OLECMDID_OPTICAL_ZOOM = 63
End Enum
Private Enum execOpt
OLECMDEXECOPT_DODEFAULT = 0
OLECMDEXECOPT_PROMPTUSER = 1
OLECMDEXECOPT_DONTPROMPTUSER = 2
OLECMDEXECOPT_SHOWHELP = 3
End Enum
' FIN ZOOM
Private Sub Formestadisticas_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TabControl1.TabPages(0).Text = " Tiki - Taka "
TabControl1.TabPages(1).Text = " Noti-Timba "
TabControl1.TabPages(2).Text = " La Chance "
End Sub
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
'posiciona el webbrow
WebBrowser1.Document.Window.ScrollTo(270, 530)
'cambia el zoom del webrow a 0 %
Dim Res As Object = Nothing
Dim MyWeb As Object
MyWeb = Me.WebBrowser1.ActiveXInstance
MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, CObj(110), CObj(IntPtr.Zero))
WebBrowser1.Visible = True
VOLVER.Enabled = True
End Sub
Private Sub TabPage1_Click(sender As Object, e As EventArgs) Handles TabPage1.Click
End Sub
Private Sub WebBrowser2_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser2.DocumentCompleted
'posiciona el webbrow
WebBrowser2.Document.Window.ScrollTo(20, 500)
'cambia el zoom del webrow a 110 %
Dim Res As Object = Nothing
Dim MyWeb As Object
MyWeb = Me.WebBrowser2.ActiveXInstance
MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, CObj(150), CObj(IntPtr.Zero))
WebBrowser2.Visible = True
End Sub
Private Sub estadisticas1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles estadisticas1.DocumentCompleted
'posiciona el webbrow
estadisticas1.Document.Window.ScrollTo(20, 900)
'cambia el zoom del webrow a %
Dim Res As Object = Nothing
Dim MyWeb As Object
MyWeb = Me.estadisticas1.ActiveXInstance
MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, CObj(80), CObj(IntPtr.Zero))
estadisticas1.Visible = True
End Sub
Private Sub VOLVER_Click(sender As Object, e As EventArgs) Handles VOLVER.Click
Me.Close()
End Sub
Private Sub Form2_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
'muestra el cursor mouse
Cursor.Show()
End Sub
End Class
