barra de desplazamiento en picturebox
Pues eso, he puesto una barra de desplazamiento en un picturebox, y no se como programarla, para que funcione.
Alguna idea.
Gracias.
Alguna idea.
Gracias.
Les explico lo que yo hago en estos caso a ver si les sirve la idea.
Introduzco un Picturebox dentro de otro igual e introduzco un timer y un VHScrollBar y HScrollBar
Luego coloco la propiedad Autozise del picturebox que esta dentro del otro en True.
Ahora en el Timer pongo
VSrcrollBar1.Max =(Picture1.Heigth - Picture2.Heigth)/300 ' Picture1 es el de afuera
HSrcrollBar1.Max =(Picture1.Width - Picture2.Width)/300
If Picture2.Heigth < Picture1.Heigth Then
VScrollBar1.Visible = False
Else
VScrollBar1.Visible = True
End If
If Picture2.Width< Picture1.Width Then
HScrollBar1.Visible = False
Else
HScrollBar1.Visible = True
End If
en el HScrollBar1 - change pongo
Picture2.Left = HScrollBar1.Value* - 300
en el VScrollBar1 - change pongo
Picture2.Left = VScrollBar1.Value * - 300
Ojala les sirva
Me despido
CHOT15
Introduzco un Picturebox dentro de otro igual e introduzco un timer y un VHScrollBar y HScrollBar
Luego coloco la propiedad Autozise del picturebox que esta dentro del otro en True.
Ahora en el Timer pongo
VSrcrollBar1.Max =(Picture1.Heigth - Picture2.Heigth)/300 ' Picture1 es el de afuera
HSrcrollBar1.Max =(Picture1.Width - Picture2.Width)/300
If Picture2.Heigth < Picture1.Heigth Then
VScrollBar1.Visible = False
Else
VScrollBar1.Visible = True
End If
If Picture2.Width< Picture1.Width Then
HScrollBar1.Visible = False
Else
HScrollBar1.Visible = True
End If
en el HScrollBar1 - change pongo
Picture2.Left = HScrollBar1.Value* - 300
en el VScrollBar1 - change pongo
Picture2.Left = VScrollBar1.Value * - 300
Ojala les sirva
Me despido
CHOT15
