ROLAR PICTUREBOX

VB6MASTER 12/06/2004 18:54:48
#29354
Algum dos colegas saberia me dizer como posso fazer para rolar um PictureBox na vertical, com um texto muito longo dentro dele em VB6?
Tenho um projeto onde insiro num PictureBox um texto longo, que ultrapassa seu tamanho original. Assim, gostaria de saber como fazer rolar o texto dentro dele.
Já tentei VScrollBar e não consegui.
Achei num site uma OCX que faz essa tarefa, mas não consegui entender como funciona e vira e mexe aparece mensagem de erro.
Obrigado e t+
LCSD 13/06/2004 11:02:48
#29407 Resposta escolhida
VB6Master

Você pode ter 2 PictureBox, assim você desliza uma Picture2 (com o Texto) dentro da Picture1, o Container para este efeito.
[S37]
LCSD 14/06/2004 20:38:52
#29608
VB6Master

Desculpe-me pela "pressa" e a resposta pela metade. [S55]

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
Voltar