>From:     Juan José Molina Aguilera[SMTP:juanjomo@arrakis.es]
>Sent:     Thursday, April 16, 1998 06:13 AM
>To:     Lista correo VB
>Subject:     (VB-ESP) Imagen de tamaño indeterminado.

>Hola amigos:

Hola, todo bien ??

>Se que la respuesta debe ser trivial, pero no soy nada experimentado con el >VB. La pregunta es:

No te preocupes, creo que todos pasamos por eso alguna vez.

>¿Como cargar una imagen BMP en una parte de pantalla de tamaño fijo (ya >sea Image o Picture Box) de manera que si la imagen no cabe en el Image o >Picture Box me salgan unas Scroll Bars?
>¿Las Scroll Bars las debo poner yo?

Supongo que habran otras maneras de hacerlo, pero aqui te va la que
hasta el momento conozco.

Necesitas colocar dos "Picture box", el primer picture debe ser contenedor
del segundo, ademas coloca un HScrollBar y un VScrollBar con la propiedad
visible a False

En el evento Form_Load haces

Picture2.top = 0
Picture2.Left = 0
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height

'Tambien lo puedes hacer con un Picture2.move .......( mira la ayuda )

Picture2.Autosize = True

En el evento en el cual cargas la imagen escribe lo siguiente :

Picture2.picture = LoadPicture("C:\Windows\Forest.bmp") 'Este es un ejemplo
If Picture2.Width > Picture1.Width Or Picture2.Height > Picture1.Height Then

  VScroll1.Min = 0
  VScroll1.Max = Picture2.Height - Picture1.Height
  VScroll1.Value = 0
  VScroll1.Visible = True

  HScroll1.Min = 0
  HScroll1.Max = Picture2.Width - Picture1.Width
  HScroll1.Value = 0
  HScroll1.Visible = True

Else
  VScroll1.Visible = False
  HScroll1.Visible = False

End If

Private Sub VScroll1_Change()
  Picture2.Top = -VScroll1.Value
End Sub

Private Sub HScroll1_Change()
  Picture2.Left = -HScroll1.Value
End Sub


>Gracias de antemano.
De nada, espero que te sirva, si olvide algo disculpame y pregunta de nuevo

ahh!!, casi se me olvida, tambien te puedes bajar de la Web de Microsoft
los controles Wang Image que te sirven de mucho para manipular imagenes.

Saludos
Julio Collado
jcollado@sistematica.com.ni
Managua, Nicaragua

Mensaje enviado por Germán Ojeda <ogerman@sidic.pol.gba.gov.ar>

Esto es algo que hice para ver como podia hacer ese tipo de cosas.

 ver_imagenes.zip