Página 1 de 1
[Effect] SplasForm
Publicado: 22 Mar 2010, 16:34
por The Swash
Código: Seleccionar todo
'------------------------------------------------
'| - [Effect] SplashForm
'| - [Autor] The Swash
'| - [Web] http://www.Indetectables.net
'| - [Date] 22/03/2010
'------------------------------------------------
Public Function SplashForm(hForm As Form) As Long
Dim hTop As Long
Dim hLeft As Long
hTop = hForm.Top
hLeft = hForm.Left
If hForm.WindowState = 0 And hForm.Visible = True Then
For i = 1 To 60
hForm.Top = hForm.Top + 120
hForm.Left = hForm.Left + 120
hForm.Top = hTop
hForm.Left = hLeft
DoEvents
Next i
SplashForm = 1
Else
SplashForm = 0: GoTo Quit
End If
Quit:
End Function
Call:
Re: [Effect] SplasForm
Publicado: 22 Mar 2010, 20:42
por Xpro
Se parecen a los zumbidos del msn xD , mola bastante!
Re: [Effect] SplasForm
Publicado: 23 Mar 2010, 03:05
por D3F4C3-M4N
bonito!!!! XD
Re: [Effect] SplasForm
Publicado: 23 Mar 2010, 21:45
por danielcanijo
ahora no tengo acceso al vb6 me describis un poco de k va esta function?
vibra la ventana?
Re: [Effect] SplasForm
Publicado: 23 Mar 2010, 22:13
por DuNeD@i
Jejejejejej, muy chulo... pero molaría más con sonido.....
Re: [Effect] SplasForm
Publicado: 23 Mar 2010, 22:47
por WindHack
Bonito efecto. ^^
Por cierto, hice una versión para Delphi...
Código: Seleccionar todo
(*-----------------------------------------------*)
(*| - [Efecto] SplashForm *)
(*| - [Autor Original (VB)] The Swash *)
(*| - [Traducción a Delphi] .:WindHack:. *)
(*| - [Fecha] 23/03/2010 *)
(*-----------------------------------------------*)
procedure SplashForm(hForm:TForm);
var
hTop,hLeft,I:Integer;
begin
hTop := hForm.Top;
hLeft := hForm.Left;
if (hForm.WindowState = wsNormal) And (hForm.Visible = True) then
For I := 1 to 60 do
begin
hForm.Top := hForm.Top + 10;
hForm.Left := hForm.Left + 10;
hForm.Top := hTop;
hForm.Left := hLeft;
end;
end;
Para llamarla:
Re: [Effect] SplasForm
Publicado: 24 Mar 2010, 01:34
por D3F4C3-M4N
ya lo implemente en el sucesor del antiviri cuando detecte un malware se ve muy bueno
Re: [Effect] SplasForm
Publicado: 24 Mar 2010, 12:41
por RoLyxRoLy
Ja... cuando llegue a casa lo veo como anda ====>> Gracias :D
Re: [Effect] SplasForm
Publicado: 25 Mar 2010, 03:03
por Xa0s
jeje pues ta como te dije por msn cuando me lo pasaste imita muy bien el zumbido del msn.
esta bueno.
Re: [Effect] SplasForm
Publicado: 25 Mar 2010, 03:59
por m[a]rkus
Que bueno con eso y algo que vi por ahí que crea ventanas de notificación como msn con efectos de transparencia y animaciones podría crearse aplicaciones muy wapas. Saludos buen code