CONTROLE PREVIEW
Alguem sabe usar o controle Preview para visualizar várias imagens ?
Estou usando assim: Preview.Show [Ô]C:\FOTOS\[Ô]
Onde na pasta FOTOS existem várias fotos, mas ao clicar no botão proximo do controle ele não faz nada, ou seja não passa para a próxima foto.
Estou usando assim: Preview.Show [Ô]C:\FOTOS\[Ô]
Onde na pasta FOTOS existem várias fotos, mas ao clicar no botão proximo do controle ele não faz nada, ou seja não passa para a próxima foto.
Confesso que nunca utilizei este controle, mas... se quiser uma dica, usando dois COMMANDs e um IMAGE você obtêm o mesmo resultado.
General Declarations
Botão Anterior
Botão Próximo
Evento Load do Form
General Declarations
Dim arrayImg() As String, dirImg As String
Dim listaImg As String, c As ByteBotão Anterior
Private Sub cmdAnterior_Click()
If c > 0 Then c = c - 1
imgFoto = LoadPicture(dirImg & arrayImg(c))
End SubBotão Próximo
Private Sub cmdProximo_Click()
If c < UBound(arrayImg) - 1 Then c = c + 1
imgFoto = LoadPicture(dirImg & arrayImg(c))
End SubEvento Load do Form
Private Sub Form_Load()
Dim arqAtual As String
dirImg = [Ô]C:\Meus documentos\Minhas imagens\[Ô]
arqAtual = Dir(dirImg & [Ô]*.JPG[Ô])
Do
arqAtual = Dir
If Trim(arqAtual) <> [Ô][Ô] Then listaImg = listaImg & arqAtual & [Ô]|[Ô]
Loop Until arqAtual = [Ô][Ô]
arrayImg() = Split(listaImg, [Ô]|[Ô])
Call cmdAnterior_Click
End Sub
Perfeito TECLA, funcionou direitinho ....
MuitÃssimo obrigado pela ajuda.
MuitÃssimo obrigado pela ajuda.
Valeu!
Não esqueça de ENCERRAR O TÓPICO (e postar novas dúvidas, caso encontre
).
Não esqueça de ENCERRAR O TÓPICO (e postar novas dúvidas, caso encontre
).
Tópico encerrado , respostas não são mais permitidas