BARRA DE ROLAGEM EM PICTUREBOX

USUARIO.EXCLUIDOS 20/12/2003 21:01:34
#1872
Estou fazendo um projeto que vai um picturebox. (Cupom fiscal), mais preciso colocar uma barra, pois a compra pode ser grande e o "funcionario" não veria o total.... como faço.... quem puder ajudar agradeceria
ALMARTI 21/12/2003 09:12:30
#1908 Resposta escolhida
Crie uma Picture, e dentro dela, outra picture com o nome de Scrollpicture que será querm receberá as imagens ou informações e um HScrollBar com o nome de HScroll e um VScrollBar com o nome de VScroll. Estes dois últimos controle deverão ficar sempre a frente da picture.
no load do form coloque

VDiff = Me.ScaleHeight - Scrollpicture.Height 'gets the scale height of the scrolling picture
VScroll.Max = Abs(VDiff) 'set the verticle scroll bar to its maximum value
VScroll.LargeChange = VScroll.Max \ 10 'set the verticle large change property
 
HDiff = PictureScaleWidth - Scrollpicture.Width
HScroll.Max = Abs(HDiff) 
HScroll.LargeChange = HScroll.Max \ 10 
HDiff =Picture.ScaleWidth - Scrollpicture.Width
HScroll.Max = Abs(HDiff)
HScroll.LargeChange = HScroll.Max \ 10


E para finalizar
Private Sub VScroll_Change()
Scrollpicture.Top = -VScroll.Value 'scroll the verticle scroll bar
End Sub
Private Sub VScroll_Scroll()
Scrollpicture.Top = -VScroll.Value 'scroll the verticle scroll bar
End Sub
Private Sub HScroll_Change()
Scrollpicture.Left = -HScroll.Value 'scroll the horizontal scroll bar
End Sub
Private Sub HScroll_Scroll()
Scrollpicture.Left = -HScroll.Value 'scroll the horizontal scroll bar
End Sub

QUalquer dúvida me manda um mail que eu passo um exemplo
Tópico encerrado , respostas não são mais permitidas
Voltar