[Resolvido]Efeito Especial ao Fechar Formulario

Coloco no form_current ???
é k ele dá erro

Conforme o código acima explicita: E deixa de dar erro amigo


Private Sub Form_Unload(Cancel As Integer)
'Anima a janela do form
AnimateWindow Me.hwnd, 500, AW_VER_POSITIVE Or AW_HOR_NEGATIVE Or AW_HIDE
'O evento Unload encerra a API
Set SeuForm = Nothing
End Sub

Private Sub Form_Unload(Cancel As Integer)

Unload é o evendo "Ao descarregar" do seu formulário.

Aonde está seuform, coloque o nome do seu formulário.

Mais uma vez, postagem ao mesmo tempo, rsrsrs.

Acontece. Temos que colocar uma buzina.

Mudou SeuForm para o nome correto do formulário?

Criqueo esta desta maneira no meu formuãrio Cidade
Private Sub Form_Unload(Cancel As Integer)
Anima a janela do form
AnimateWindow Me.hwnd, 500, AW_VER_POSITIVE Or AW_HOR_NEGATIVE Or AW_HIDE
O evento Unload encerra a API
Set Cidade = Nothing
End Sub

Estes tem que estar em um módulo??

Const AW_HOR_POSITIVE = &H1 'Anima a janela da esquerda para a direita
Const AW_HOR_NEGATIVE = &H2 'Anima a janela da direita para a esquerda
Const AW_VER_POSITIVE = &H4 'Anima a janela de cima para baixo.
Const AW_VER_NEGATIVE = &H8 'Anima a janela de baixo para cima.
Const AW_CENTER = &H10 'Faz a janela aparecer em colapso dentro do AW_HIDE.
Const AW_HIDE = &H10000 'Oculta a janela. Por padrão, a janela é mostrada.
Const AW_ACTIVATE = &H20000 'Activa a janela.
Const AW_SLIDE = &H40000 'Usa animação de slide. Por padrão, é usada a animação rolo.
Const AW_BLEND = &H80000 'Usa um efeito de fade. Esta flag pode ser usada somente se hwnd é uma janela de nível superior.
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean

.....

Grande , porque você diz "Maneira correta de Utilização:"

Porque você mudou as constantes para depois do Private Declare Function AnimateWindow Lib "user32" ????????????????????????????????????????????????????????????????????????

Pode por favor, esclarecer aqui qual a razão de declarar Dim SeuForm

Aguardo uma explicação válida.

Perdao JP Devo ter falado uma Asneira aqui.. Me perdoe,...
Apenas coloquei assim e funcionaou

Me desculpe por isso OK?

Cara.. ele nao funcionou.. ai coloquei o dim.. e deu certo.. um efeito..
Sei la.. Bem.. me perdoe a confusão Ok?
Quando falei sobre maneira correta era o que eu pensava no meu uso.. nao quis de forma alguma desdizer o que postou..
Afinal nao chego nem a vossos pés..Me perdoe Amigão... Fiquei muito triste por esta confusão..
Saudações

Continua a dar erro no meu form.

Não entendi o Estes tem que estar em um módulo??(Acredito que é aqui que estou errando)

Poderia me explique melhor Hary

Rita, aonde você clicar para criar uma macro, tem tambem a opção de módulo ou módulo global. É lá que você cria um módulo, adicionar o código abaixo da primeira linha que ele já abre com ela e salva.

Rita, deixarei o AMigo Criquio e o JP resolver isso ok?
Ja falei muita besteira aqui hoje...
Perdoe-me
Ate mais

Hary

Não achei nada de mal o que vc falou, achei muito digno de sua parte a explicação, também não entendi a reação do JP desta maneira.



Cliqueo, agora não da o erro mas não acontece nada de efeito

rsrs Relaxa Rita O JP é um amigão.. eu falei besteira mesmo... ele se espantou com minhas ideias mirabolantes...
Ele e um dos que mais nos ajuda no fórum....
Ele agiu certo OK?
De boa
Abraços rsrsrs

Não necessita de colocar em um modulo separado.

Como disse no tópico original, "cole no VBA do formulario"

Veja o simples;

http://www.speedyshare.com/files/28894616/AnimaForm.rar

Harysohn, amigão tranquilaço.

Ritinha, tranquilo tambem, a minha reação é para que as feras aprendam e esse é o proposito deste fórum, mostrar o caminho das pedras e ensinar a percorre-lo sem caírem.

Amigos, acredito que nenhum dos colegas teve má intenção. Como eu converso sempre com os irmãos portugueses, posso dizer que talvez as palavras tenham peso diferente para cada um dos povos. O que talvez possamos entender como uma palavra de maior peso, é apenas a maneira da pessoa se expressar, que é diferente de nação para nação, ainda que falando o mesmo idioma. Acredito que seja isso.

KKKK de boa.. eu que fiquei chateado mesmo comigo Criquio.. creio que sou perfeccionista e detesto errar.. ainda mais em público Puts.!!!
rsrsrsrsrs , de maneira alguma me cheteei com nosso Mestre...
Vamos em frente.. ainda temos um longo caminho... e estamos todos aqui para isso

Abraços a todos...e mais um copo pra nossa Amiga Rita que esta chegando no Fórum

Fiquem com Deus

Não tens que ficar. Andamos todos aqui a aprender uns com os outros e as intervenções do Mestre, por vezes duras, são para nos abrirem os olhos e mostrar o caminho das pedras. Já todos passamos por isso e não estamos livres de ter o Mestre à perna de novo se errarmos.

Pessoal

O efeito também não funciona com o formulário Pop-up - SIM, Janela restrita - SIM e do Estilo da borda - NENHUM, adorei o efeito.

Será que teria como acertar este efeito.
Grata pela atenção de todos

Rita

Não entendi, diz que não funcionou e depois diz que adorou o efeito????

Vieira

Após a ajudo do JP funciona mas,.

Quando eu coloquei em um forme ele não funciona com algumas propriedade do form. alterada(Veja abaixo)



não funciona com estas propriedade formulário Pop-up - SIM, Janela restrita - SIM e do Estilo da borda - NENHUM, adorei o efeito.(Veja também msg anterior)

É porque não funciona com essas propriedades activadas. Até porque Popup e sem bordas não dá de certeza.

Isso mesmo Vieira, não funciona com as propriedade, será que tem como acertar este caso.

Boa Tarde Rita

Esse código não funciona com essas propriedades definidas no formulário. Não tem qualquer ajuste.

Uma pema, mas sou muito grata pela sua atenção, Vieira
Que DEUS ilumine seus caminhos

Os seus também amiga. Bom trabalho.