Ei aí galera, sou eu novamente.
Seguinte,
Peguei um exemplo aqui mesmo no fórum onde ao abrir um mdb, o formulario vai aparecendo aos poucos. Muito bom!
Fiz um aplicativo, no qual eu gostaria ate de compartilhar com todos, mas para minha surpresa, depois de tanto ralar, quando fui testar numa maquina que a versão é 2003, acusa um erro de falta de biblioteca. Foi feito na versão 2000. Alguem sabe me dizer se existe alguma forma ou função que funcione de forma universal, ou seja, em todas as versões?
Se não, não tem graça! Para o usuário que não entende não saberá o que fazer.
Podem me ajudar?

Gto,
Edson

Edson, tem como você postar um exemplo/código que vocês está usando?

Tem sim meu amigo, mas infelizmente somente amanha, pois não trouxe o exemplo comigo.

Sds,
Edson

Dimitri:

Enviei para o seu Maile um Exemplo

Saca

Valeu saca!

gto,
Edson

Edson,

Achei muito interessante isto, pode me enviar este BD???

edukalt@yahoo.com.br

seria algum por ex. do meu site de exemplos.


Abraços

Amigos, não lembro de quem foi que peguei. Mas ocmo o Saca disse que estava enviado o exemplo ao dimitri não me preocupei em trazer o exemplo. Pelo visto, tem mais gente precisando. Prometo que irei trazer. Indenpendente disso, gostaria de perguartar ao amigo Rogério se o exemplo que ele tem, serve para todas as versões.

Gto,
Edson

Rogerio,

Verifiquei seu exemplo no seu site e com certeza não foi o seu exemplo, até mesmo porque o seu está em "mde". Mas, pelo que vi, faz o mesmo efeito. Poderia me informar se funciona em todas as versões e se funcionar poderia postar o código pra gente, visto que tem mais colegas interessados?

No aguardo,
Edson

Galera, acho que consegui!

Por favor, façam o teste em outras versões alem do 2000 e informem se da certo, pois estarei aguardando.

Seguem as instruções abaixo:

Abra um formulário no modo estrutura

‘Declaração de variáveis
Option Explicit
Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Sub apiRGB Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, src As Any, ByVal Length As Long)
Public Transparencia As Integer
Public Abrir As Boolean

‘No evento “Ao carregar” digite:

Dim TextoBuscado As String
Abrir = True
' abrimos el form en modo transparente total (invisible) para ir haciendolo visible
' progresivamente
SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, 0, 0, LWA_ALPHA
' ponemos a cero la variable publica para decirle a la funcion timer que ha de contra
' hacia delante, el form es completamente transparente y se tiene que hacer visible
' progresivamente
Transparencia = 0
' iniciamos el timer con el valor minimo para observar el efecto, el intervalo
' 1 crea un efecto muy suave
Me.TimerInterval = 1

‘No evento “No Cronômetro” digite:

If Abrir = True Then
Transparencia = Transparencia + 5

If Transparencia < 255 Then
SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, 0, Transparencia, LWA_ALPHA
Else
TimerInterval = 0
End If
End If

'Obs: 1) Crie um botão fechar, para que depois você consiga fechar o formulário
' 2) Para funcionar marque o formulário Pop-up e Janela restrita como “Sim”
' e pronto!

Olá Edson!


Obrigado por compartilhar.

Por nada!
Gostaria apenas que testasse em outras versoes e responder depois. Não somente você mas aos outros tambem.

Gto,
Edson

E aí pessoal, alguem testou?

Na verdade não sei qual exemplo que vocês estavam falando, mas pelo jeito acho que conseguirão, parabéns.


Abraços

Ola Edson Alexan!

No 2003 funcionou bem.

Olá Edson Alexan!

Nunca havia mexido com transparencia, gostei e fui dar uma pesquisa a repeito.
Não testei ainda mas me chamou a atenção, acho que podemos aprender um pouquinho mais a respeito.veja isto

This message has been edited. Last edited by: MSampaio,