VSCROLL VALUE
BOA NOITE GENTE ........... JA TOU CANSADO DE FAZER ISTO E NAO TA DANDO CERTO
TENHO UMA PICTURE COM UMA IMAGEM ..... CUJO INDEX = 0
NO DECORRER DO PROGRAMA .... CARREGO OUTRAS PICTURE COM INDEX 0+1 , +2 ETC ....
SO QUE NO PROGRAMA TEM UMA VSCROLL .... Q QUANDO CLICO NELE SOMENTE A PICTURE(0) SE MOVE ....
GOSTARIA DE SABER ALGUM EXEMPLO PRA SOLUÇÃO DO MEU PROBLEMA
EIS O CODIGOOOO
ContaFolha = 0
[ô]conta qtos picture esta carregadoooo do indice 1 ao 10
For i = 1 To 10
If Not Picture(i) Is Nothing Then Exit For
ContaFolha = i + 1
Next i
Picture(0).top = 0 - VScroll.Value [ô]>>> aqui da certo !!!!!
For i = 1 To ContaFolha
If Not Picture(i) Is Nothing Then Exit For
Picture(i).top = Picture(i - 1).top + Picture(i - 1).Height - VScroll.Value [ô]>>> aqui nao da certo
Next i
ja tentei assim:
For i = 1 To ContaFolha
If Not Picture(i) Is Nothing Then Exit For
Picture(i).top = Picture(i - 1).top + Picture(i - 1).Height [ô] tirei o -vscrool.value
Next i
alguma dica ai pessoal .............. valeu?????
TENHO UMA PICTURE COM UMA IMAGEM ..... CUJO INDEX = 0
NO DECORRER DO PROGRAMA .... CARREGO OUTRAS PICTURE COM INDEX 0+1 , +2 ETC ....
SO QUE NO PROGRAMA TEM UMA VSCROLL .... Q QUANDO CLICO NELE SOMENTE A PICTURE(0) SE MOVE ....
GOSTARIA DE SABER ALGUM EXEMPLO PRA SOLUÇÃO DO MEU PROBLEMA
EIS O CODIGOOOO
ContaFolha = 0
[ô]conta qtos picture esta carregadoooo do indice 1 ao 10
For i = 1 To 10
If Not Picture(i) Is Nothing Then Exit For
ContaFolha = i + 1
Next i
Picture(0).top = 0 - VScroll.Value [ô]>>> aqui da certo !!!!!
For i = 1 To ContaFolha
If Not Picture(i) Is Nothing Then Exit For
Picture(i).top = Picture(i - 1).top + Picture(i - 1).Height - VScroll.Value [ô]>>> aqui nao da certo
Next i
ja tentei assim:
For i = 1 To ContaFolha
If Not Picture(i) Is Nothing Then Exit For
Picture(i).top = Picture(i - 1).top + Picture(i - 1).Height [ô] tirei o -vscrool.value
Next i
alguma dica ai pessoal .............. valeu?????
Cara, em minha opinião pra facilitar as coisas, vc deveria carregar os dados, e em vez de rolar para baixo vc exibiria (.visible ) os pictures(x) de acordo com o que o usuário solicitasse.
a barra de rolagem vertical vc só usaria para rolar uma única página
O que eu tou falando é algo mais ou menos no estilo desse link
a barra de rolagem vertical vc só usaria para rolar uma única página
O que eu tou falando é algo mais ou menos no estilo desse link
Valeu pela dicaaa ........ CLEVERTON
MAS JA RESOLVI O PROBLEMA ...... na primeira linha ContaFolha tem q ser igual a 1 ..... ai da certoooo
ContaFolha = 1
[ô]conta qtos picture esta carregadoooo do indice 1 ao 10
For i = 1 To 10
If Not Picture(i) Is Nothing Then Exit For
ContaFolha = i + 1
Next i
Picture(0).top = 0 - VScroll.Value [ô]>>> aqui da certo !!!!!
For i = 1 To ContaFolha
If Not Picture(i) Is Nothing Then Exit For
Picture(i).top = Picture(i - 1).top + Picture(i - 1).Height - VScroll.Value [ô]>>> aqui nao da certo
Next i
MAS JA RESOLVI O PROBLEMA ...... na primeira linha ContaFolha tem q ser igual a 1 ..... ai da certoooo
ContaFolha = 1
[ô]conta qtos picture esta carregadoooo do indice 1 ao 10
For i = 1 To 10
If Not Picture(i) Is Nothing Then Exit For
ContaFolha = i + 1
Next i
Picture(0).top = 0 - VScroll.Value [ô]>>> aqui da certo !!!!!
For i = 1 To ContaFolha
If Not Picture(i) Is Nothing Then Exit For
Picture(i).top = Picture(i - 1).top + Picture(i - 1).Height - VScroll.Value [ô]>>> aqui nao da certo
Next i
Tópico encerrado , respostas não são mais permitidas