GIF NO USERFORM
Boa noite pessoal tenho q agradecer a vcs por tanta ajuda tenho aprendido muito com todos vcs!!
Estou aqui para fazer outra pergunta a vcs!!
Alguém poderia me ajudar a por um gif no Userform??
Eu qro q o codigo procure não por um endereço fixo...
Eu qro q ele pegue um gif q estará na mesma pasta q o programa..
Eu tenho um programa q faz isso só q é com som!!
Ele pega o som q está na mesma pasta do programa!!
Eu tentei adaptar mas não consigo, se alguém puder me ajudar um muito obrigado!!
Vou deixar aqui o programa q eu tenho mas lembrando ele é p/ tocar som no Userform e eu qro mostrar um gif.
Private Declare Function PlaySound Lib [Ô]winmm.dll[Ô] _
Alias [Ô]PlaySoundA[Ô] (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwflags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Sub PlayWAV()
WAVFile = [Ô]Som.wav[Ô]
WAVFile = ThisWorkbook.Path & [Ô]\[Ô] & WAVFile
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub
Estou aqui para fazer outra pergunta a vcs!!
Alguém poderia me ajudar a por um gif no Userform??
Eu qro q o codigo procure não por um endereço fixo...
Eu qro q ele pegue um gif q estará na mesma pasta q o programa..
Eu tenho um programa q faz isso só q é com som!!
Ele pega o som q está na mesma pasta do programa!!
Eu tentei adaptar mas não consigo, se alguém puder me ajudar um muito obrigado!!
Vou deixar aqui o programa q eu tenho mas lembrando ele é p/ tocar som no Userform e eu qro mostrar um gif.
Private Declare Function PlaySound Lib [Ô]winmm.dll[Ô] _
Alias [Ô]PlaySoundA[Ô] (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwflags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Sub PlayWAV()
WAVFile = [Ô]Som.wav[Ô]
WAVFile = ThisWorkbook.Path & [Ô]\[Ô] & WAVFile
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub
Veja esse tutorial:Exibindo gif animados no Vb6
Segue exemplo anexo
Segue exemplo anexo
Tópico encerrado , respostas não são mais permitidas