none
Zoom en un Picturebox con una imagen en el.. RRS feed

  • Pregunta

  • Hola, bueno como el titulo de la pregunta lo dice nececito poder hacer un zoom que al momento que vaya aumentando se vea que va creciendo el picturebox y el bitmap que tiene dentro de el. Alguien que me pueda ayudar..?
    • Cambiado Enrique M. Montejo jueves, 1 de agosto de 2013 11:12 Controles de Windows Forms
    viernes, 31 de mayo de 2013 14:44

Todas las respuestas

  • Hola

     puedes guiarte de los ejemplos de estos links:

    http://www.daniweb.com/software-development/vbnet/threads/357032/zooming-an-image-in-a-picturebox-using-trackbar

    http://stackoverflow.com/questions/13496706/how-to-zoom-in-a-picturebox-with-scrollwheel-in-vb-net

    http://immortaldotnet.blogspot.com/2011/08/image-zoom-using-vbnet.html


    Saludos desde Monterrey, Nuevo León, México!!!

    viernes, 31 de mayo de 2013 15:02
  • apuntas a algo como esto

     PictureBox with zooming and scrolling

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    viernes, 31 de mayo de 2013 15:13
  • Probare lo que me pasaron. Gracias
    viernes, 31 de mayo de 2013 15:50
  • Hola

     puedes guiarte de los ejemplos de estos links:

    http://www.daniweb.com/software-development/vbnet/threads/357032/zooming-an-image-in-a-picturebox-using-trackbar

    http://stackoverflow.com/questions/13496706/how-to-zoom-in-a-picturebox-with-scrollwheel-in-vb-net

    http://immortaldotnet.blogspot.com/2011/08/image-zoom-using-vbnet.html


    Saludos desde Monterrey, Nuevo León, México!!!

    Luis_Escobar me gusto http://www.daniweb.com/software-development/vbnet/threads/357032/zooming-an-image-in-a-picturebox-using-trackbar ya lo probe solo que despues de hacer zoom, quiero dibujar en la imagen con g.drawline pero cuando empiezo a dibujar las coordenadas de dibujo se desfazan o se mueven demaciado y no concuerda el lugar donde estoy dibujando y donde se esta mostrando la linea que voy haciendo. sabes porque pasa eso?? y como solucionarlo?
    viernes, 31 de mayo de 2013 16:27
  • Hola buenas

    Con este codigo hago exactamente eso

     Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
            AjustarImagen()
        End Sub
        Private Sub AjustarImagen()
            If Not String.IsNullOrEmpty(TextBoxImagen.Text) Then
    
                Dim scale_factor As Single = Single.Parse(TrackBar1.Value + 1)
                ' Get the source bitmap.
                'If Not String.IsNullOrEmpty(fot) Then
                Dim bm_source As New Bitmap(img)
                ' Make a bitmap for the result.
                Dim bm_dest As New Bitmap(CInt(bm_source.Width / scale_factor), CInt(bm_source.Height / scale_factor))
                ' Make a Graphics object for the result Bitmap.
                Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)
                ' Copy the source image into the destination bitmap.
                gr_dest.DrawImage(bm_source, 0, 0, bm_dest.Width + 1, bm_dest.Height + 1)
                ' Display the result.
                'picDest.Image = bm_dest
                PictureBox1.Image = bm_dest
            End If
        End Sub

    viernes, 31 de mayo de 2013 16:34
  • Hola buenas

    Con este codigo hago exactamente eso

     Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
            AjustarImagen()
        End Sub
        Private Sub AjustarImagen()
            If Not String.IsNullOrEmpty(TextBoxImagen.Text) Then
    
                Dim scale_factor As Single = Single.Parse(TrackBar1.Value + 1)
                ' Get the source bitmap.
                'If Not String.IsNullOrEmpty(fot) Then
                Dim bm_source As New Bitmap(img)
                ' Make a bitmap for the result.
                Dim bm_dest As New Bitmap(CInt(bm_source.Width / scale_factor), CInt(bm_source.Height / scale_factor))
                ' Make a Graphics object for the result Bitmap.
                Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)
                ' Copy the source image into the destination bitmap.
                gr_dest.DrawImage(bm_source, 0, 0, bm_dest.Width + 1, bm_dest.Height + 1)
                ' Display the result.
                'picDest.Image = bm_dest
                PictureBox1.Image = bm_dest
            End If
        End Sub

    Xeros28 me manda un error en la linea

    Dim bm_dest As New Bitmap(CInt(bm_source.Width / scale_factor), CInt(bm_source.Height / scale_factor))

    diciendo que el parametro no es valido.. creo que es por el valor que trae scale_factor...

    mm tu sabes el porque??

    viernes, 31 de mayo de 2013 17:14
  • sera que esta dividiendo por 0

    yo mando estos parametros

    Escala a la que reducire

    Dim scale_factor As Single = 2.0

    Ruta de la imagen

    img = C:\uso.jpg




    • Editado Xeros28 viernes, 31 de mayo de 2013 18:18
    viernes, 31 de mayo de 2013 18:13
  • sera que esta dividiendo por 0

    yo mando estos parametros

    Escala a la que reducire

    Dim scale_factor As Single = 2.0

    Ruta de la imagen

    img = C:\uso.jpg




    Xerox28 no creo sino que a mi me manda un scale al momento de hacer zoom con un valor de 5.0. no tienes un ejemplo que pueda visualizar mas a detalle como funciona esa parte..
    viernes, 31 de mayo de 2013 19:38