Dim zoom As Integer = 100 Private 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 Private Sub btn_ZoomUP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ZoomUP.Click btn_ZoomDn.Enabled = True If zoom < 200 Then zoom += 20 WebBrowserZoom(zoom) If zoom 200 Then btn_ZoomUP.Enabled False End If End Sub Private Sub btn_ZoomDn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ZoomDn.Click btn_ZoomUP.Enabled = True If zoom > 20 Then zoom -= 20 WebBrowserZoom(zoom) If zoom 20 Then btn_ZoomDn.Enabled False End If End Sub Private Sub WebBrowserZoom(ByVal zoom As Integer) Try Dim MyWeb As Object = Me.WebBrowser1.ActiveXInstance 'Comportement étrange, il faut laisser le Cint(zoom) pour ne pas avoir d'exception, du moins chez moi, or le zoom est déclaré Int32 plus haut... MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, ExecOpt.OLECMDEXECOPT_DONTPROMPTUSER, CInt(zoom), IntPtr.Zero) Catch ex As Exception MsgBox("Error:" & ex.Message) End Try End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
118 internautes nous ont dit merci ce mois-ci
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
118 internautes nous ont dit merci ce mois-ci
Dim zoom As Integer = 100 Private Sub btn_ZoomUP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ZoomUP.Click btn_ZoomDn.Enabled = True If zoom < 200 Then zoom += 20 WebBrowser1.Document.Body.Style = "zoom : " & zoom & "%" If zoom 200 Then btn_ZoomUP.Enabled False End If End Sub Private Sub btn_ZoomDn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ZoomDn.Click btn_ZoomUP.Enabled = True If zoom > 20 Then zoom -= 20 WebBrowser1.Document.Body.Style = "zoom : " & zoom & "%" If zoom 20 Then btn_ZoomDn.Enabled False End If End Sub
Catch ex As Exception
MsgBox("Erreur : " & ex.Message)
End Try
Private zoom As Integer = 100 Private 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 Private Sub WebBrowserZoom(ByVal zoom As Integer) Try Dim MyWeb As Object = Me.WebBrowser1.ActiveXInstance 'Comportement étrange, il faut laisser le Cint(zoom) pour ne pas avoir d'exception, du moins chez moi, or le zoom est déclaré Int32 plus haut... MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, ExecOpt.OLECMDEXECOPT_DONTPROMPTUSER, CInt(zoom), IntPtr.Zero) Catch ex As Exception 'MsgBox("Error:" & ex.Message) End Try End Sub Private Sub cmd_Navigate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Navigate.Click WebBrowser1.Url = New Uri(cbo_Address.Text) End Sub Private Sub cbo_zoom_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_zoom.TextChanged ' If IsNumeric(cbo_zoom.Text) AndAlso _ CInt(cbo_zoom.Text) < 401 And _ CInt(cbo_zoom.Text) > 0 Then zoom = CInt(cbo_zoom.Text) Call WebBrowserZoom(zoom) Else cbo_zoom.Text = zoom End If ' End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged If IsNumeric(TextBox2.Text) AndAlso _ CInt(TextBox2.Text) < 401 And _ CInt(TextBox2.Text) > 0 Then zoom = CInt(TextBox2.Text) ' Pour la textbox réglable manuellement Call WebBrowserZoom(zoom) Else TextBox2.Text = zoom End If End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged If IsNumeric(TextBox2.Text) AndAlso _ CInt(TextBox2.Text) < 400 And _ zoom = CInt(TextBox2.Text) Then ' Pour la textbox réglable manuellement Call WebBrowserZoom(zoom) Else TextBox2.Text = zoom End If If TextBox2.Text = "" Then No Call WebBrowserZoom(zoom) End If End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged If TextBox2.Text = "" Then TextBox2.Text = zoom Exit Sub End If If IsNumeric(TextBox2.Text) AndAlso _ CInt(TextBox2.Text) < 400 And _ zoom = CInt(TextBox2.Text) Then ' Pour la textbox réglable manuellement Call WebBrowserZoom(zoom) Else TextBox2.Text = zoom End If End Sub
Oups, il y a marqué que btn_Refresh n'est pas déclaré !?
En faite, j'ai remarqué que si mon PC n'est pas connecté à Internet alors le zoom enregistré par l'utilisateur prend effet immédiatement dès que form1 s'ouvre, donc c'est parfait.
Oups, il y a marqué que btn_Refresh n'est pas déclaré !?
effectuer un rafraichissement au Form_Shown en appelant la méthode Call WebBrowserZoom(zoom),
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.