| Usuario |
picturebox y scrollbar |
Fenris
60 Mensaje(s)
|
| Enviado - 16/8/2004 |
| |
Hola gente linda del foro
la pregunta es la siguiente:
como puedo poner scrollbars en un picturebox?
onda para que muetre la imagen completa
por que lo que me sale es que mueva el fromulario
Gracias al valiente que me responda |
| |
|
nostromo
389 Mensaje(s)
|
| Enviado - 16/8/2004 |
| |
Hola;
Primero debes colocar dos picture box y los scrollbars correspondiente Horizontal y Vertical, el siguiente es el código:
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
Nos vemos |
| |
|
fmarredo
486 Mensaje(s)
|
| Enviado - 17/8/2004 |
| |
No es necesario usar dos picturebox, con uno es suficiente.
Por ej:
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
|
| |
|
|
|
