| Usuario |
pictureboxes malvados! |
Fenris
60 Mensaje(s)
|
| Enviado - 20/8/2004 |
| |
Hola gente linda del foro
ya prove las 2 versiones que me dieron para poder mover una imagen en un picturebox
de las 2 formas se pasan de largo =*(
por que pasa eso?
onda, tengo una imagen de 960x720
pero podria ser de 1024x768
o mas chica
le agradeceria mucho al valiente que me responda
desdeya muchas gracias
PictureBox1
PictureBox2
VScrollBar.Name = vs
HScrollBar.Name = hs
PictureBox1 debe estar adentro de PictureBox2:
Codigo para VScrollbar:
Private Sub vs_Change()
Picture1.Top = (vs.Value / 30) * -1
End Sub
Código para HScrollBar:
Private Sub hs_Change()
Picture1.Left = (hs.Value / 30) * -1
End Sub
y el otro metodo es
Private Sub Form_Load()
VScroll.Max = Picture1.Picture.Height / 2
VScroll.LargeChange = VScroll.Max \ 10
HScroll.Max = Picture1.Picture.Width / 2
HScroll.LargeChange = HScroll.Max \ 10
End Sub
Private Sub HScroll_Change()
Picture1.PaintPicture Picture1.Picture, -HScroll.Value, -VScroll.Value
End Sub
Private Sub HScroll_Scroll()
Picture1.PaintPicture Picture1.Picture, -HScroll.Value, -VScroll.Value
End Sub
Private Sub VScroll_Change()
Picture1.PaintPicture Picture1.Picture, -HScroll.Value, -VScroll.Value
End Sub
Private Sub VScroll_Scroll()
Picture1.PaintPicture Picture1.Picture, -HScroll.Value, -VScroll.Value
End Sub
|
| |
|
nostromo
389 Mensaje(s)
|
| Enviado - 20/8/2004 |
| |
Hola;
Estimado, el primer método es el mío y resulta, lo que me falto decir, es que esta calibrado para una imagen de:
Height = 6015
Width = 9015
Por lo tanto, los valores:
Codigo para VScrollbar:
Private Sub vs_Change()
Picture1.Top = (vs.Value / 30) * -1
End Sub
Código para HScrollBar:
Private Sub hs_Change()
Picture1.Left = (hs.Value / 30) * -1
End Sub
30 y -1; debes modificarlos y te resultará, yo lo aplico en un sistema de información geográfico que estoy desarrollando con optimos resultados.
Nos vemos. |
| |
|
frankkhan
46 Mensaje(s)
|
| Enviado - 22/8/2004 |
| |
en serio queres aprender?:
http://vbaccelerator.com/home/VB/Code/Libraries/Subclassing/Adding_Scroll_Bars_To_Forms__PictureBoxes_and_UserControls/article.asp
|
| |
|
Engineer
25 Mensaje(s)
|
| Enviado - 26/9/2004 |
| |
Disculpa colega, pero que es exactamente lo que queres hacer?
Saludos... |
| |
|
|
|
