FRAME X SCROLLBAR VERTICAL

SARAGIOTTO 03/05/2012 19:20:02
#401316
boa noite
em um form eu tenho um objeto FRAME e dentro deste frame tem varias imagens, so q pelo fato de serem varias nao cabe todas no form
eu queria inserir um scrollbar vertical para visualizar as imagens q estao ocultas pra baixo do objeto frame
como q eu faço isso?
GANDA.NICK 04/05/2012 01:48:11
#401337
boas, faça assim qualquer coisa do genero

está a picture(0) e picture(1) na linha de cima, e as outras duas na linha de baixo

Option Explicit

Dim vOriginalL1, vOriginalL2 As Long

Private Sub Form_Load()
Dim i As Integer

vOriginalL1 = Me.Picture1(0).Top
vOriginalL2 = Me.Picture1(2).Top

For i = 0 To 3
    Me.Picture1(i).FontSize = 76
    Me.Picture1(i).AutoRedraw = True
    Me.Picture1(i).Print i
Next [ô]i

Me.VScroll1.Max = 4


End Sub

Private Sub VScroll1_Change()
Dim i As Integer, vVsrlV As Long

Me.Label1.Caption = Me.VScroll1.Value

For i = 0 To 3
    If i < 2 Then
        Me.Picture1(i).Top = vOriginalL1 - Me.VScroll1 * 300
    Else
        Me.Picture1(i).Top = vOriginalL2 - Me.VScroll1 * 300
    End If
Next [ô]i

End Sub


espero que o ajude

té+
Tópico encerrado , respostas não são mais permitidas
Voltar