Lucy: Lo primero es no cargar la imagen en el picture, hay que pintarla. Eso se hace com PaintPicture. Esta pregunta que hacés se la contesté a Eva el 27/8/2004. Te envío el texto que le envié
'################################################
Eva:
te doy un ejemplo com el ancho, vos adaptá el alto
Imaginate que los Scrolls para cambiar el ancho y el alto se llaman ScrollW y ScrollH respectivamente.
Antes que nada, no debés cargar la imagen en el picture, te conviene pintarla. PPara ello, colocá la propiedad autoredraw del picturebox a true y donde carguás la imagen colocá este código.
dim W as single, pic As Picture
pic=LoadPicture(Imagen que querés cargar)
w=Scalex(pic.Width, vbHimetric,vbTwips)
ScrollW.Min=0
ScrollW.Max=cint(W-Picture1.Width)+1
En el evento ScrollW_Change colocá el siguiente código
Picture1.PaintPicture pic,Scrollw.value, ScrollH.Value
Picture1.Refresh
Si la imagen es muy grande, probá con modificar la línea
ScrollW.Max=cint(W-Picture1.Width)+1
de esta manera,
ScrollW.Max=cint(W-Picture1.Width)/Paso+1
y Luego la línea
Picture1.PaintPicture pic,Scrollw.value, ScrollH.Value
de esta otra manera
Picture1.PaintPicture pic,Scrollw.value*Paso, ScrollH.Value
Donde paso es la cantidad de Twips que se mueve la imagen al presionar una vez el botón de scroll
'###################################################
NOTA. La propiedad autoredraw del picturebox tiene que estar establecida a true
Espero que te sirva
Saludos Ruri
