none
WebBrowser y NumericUpDown Zoom RRS feed

  • Pregunta

  • Hola.

        'De la siguiente manera sí funciona...
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            WebBrowser1.Document.Body.Style = "zoom:" & NumericUpDown1.Value & "%"
        End Sub
        '...Pero de esta otra no!
        Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
            WebBrowser1.Document.Body.Style = "zoom:" & NumericUpDown1.Value & "%"
        End Sub

    Como lo arreglo?

    Gracias


    Rafael FM

    domingo, 18 de febrero de 2018 15:30

Respuestas

  • He conseguido esto

        Dim zoom As Integer = 100
        Private Sub BtnMas_Click(sender As Object, e As EventArgs) Handles BtnMas.Click
            zoom = zoom + 10
            WebBrowser1.Document.Body.Style = "zoom:" & zoom & "%"
        End Sub
        Private Sub BtnMenos_Click(sender As Object, e As EventArgs) Handles BtnMenos.Click
            zoom = zoom - 10
            WebBrowser1.Document.Body.Style = "zoom:" & zoom & "%"
        End Sub

    Y creo que es mejor que, usando NumericUpDown1.

    Doy por cerrado este hilo marcando ésta, como respuesta válida.


    Rafael FM

    • Marcado como respuesta Rafael FM domingo, 18 de febrero de 2018 15:52
    domingo, 18 de febrero de 2018 15:52

Todas las respuestas

  •     Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.Validating
            WebBrowser1.Document.Body.Style = "zoom:" & NumericUpDown1.Value & "%"
        End Sub
        Private Sub NumericUpDown1_ValueChanged_1(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
            TextBox1.Focus()
        End Sub

    Así funciona,

    pero me interesa saber porqué de ésta no.

        Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown1.ValueChanged
            WebBrowser1.Document.Body.Style = "zoom:" & NumericUpDown1.Value & "%"
        End Sub

    gracias de nuevo.


    Rafael FM


    • Editado Rafael FM domingo, 18 de febrero de 2018 15:35
    domingo, 18 de febrero de 2018 15:34
  • He conseguido esto

        Dim zoom As Integer = 100
        Private Sub BtnMas_Click(sender As Object, e As EventArgs) Handles BtnMas.Click
            zoom = zoom + 10
            WebBrowser1.Document.Body.Style = "zoom:" & zoom & "%"
        End Sub
        Private Sub BtnMenos_Click(sender As Object, e As EventArgs) Handles BtnMenos.Click
            zoom = zoom - 10
            WebBrowser1.Document.Body.Style = "zoom:" & zoom & "%"
        End Sub

    Y creo que es mejor que, usando NumericUpDown1.

    Doy por cerrado este hilo marcando ésta, como respuesta válida.


    Rafael FM

    • Marcado como respuesta Rafael FM domingo, 18 de febrero de 2018 15:52
    domingo, 18 de febrero de 2018 15:52