ROLAGEM EM PICTUREBOX
alguem tem como me ajudar a fazer isso , preciso colocar uma barra de rolagem dentro de uma picture ou frame é que tenho botoes dentro da picturee preciso ver masi pra baixo
Anderson
Abra um Form e insira os Objetos:
Picture1
Picture2 (Dentro da Picture1)
VScroll1 (Dentro da Picture1)
Copie o Código Abaixo
Private Sub Form_Load()
Dim x As Integer
Picture2.Height = 10000
VScroll1.LargeChange = 1000
VScroll1.Max = Picture2.Height
For x = 1 To 49
Picture2.Print "Linha "; x
Next
End Sub
Private Sub Picture1_Resize()
VScroll1.Height = Picture1.Height
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub
Você vai ver a Picture2 deslizar dentro da Picture1. Deve ser isto que você está necessitando.
Se não for, poste aqui novamente
[s68]
Abra um Form e insira os Objetos:
Picture1
Picture2 (Dentro da Picture1)
VScroll1 (Dentro da Picture1)
Copie o Código Abaixo
Private Sub Form_Load()
Dim x As Integer
Picture2.Height = 10000
VScroll1.LargeChange = 1000
VScroll1.Max = Picture2.Height
For x = 1 To 49
Picture2.Print "Linha "; x
Next
End Sub
Private Sub Picture1_Resize()
VScroll1.Height = Picture1.Height
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub
Você vai ver a Picture2 deslizar dentro da Picture1. Deve ser isto que você está necessitando.
Se não for, poste aqui novamente
[s68]
Tópico encerrado , respostas não são mais permitidas