Iniciar un Form parpadeando

Iniciado por EddyW, 30 Enero 2010, 07:06 AM

0 Miembros y 2 Visitantes están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario

EddyW

30 Enero 2010, 07:06 AM
Este post lo hice en otro foro, mas abajo se menciona para que..
Ignoren lo de "entrar al Lab"  ;D

El proposito de este post es mas el de ayudar a que los users aprendan algunas funciones utiles sobre todo las usadas para entrar al Lab:

Que se usa:
  • Un timer (Nombre: Timer1)
  • Case
  • IIF
    • If
    • Funciones
    • Sub's
    • Variables

      Si no quedo claro,  :laugh: añaden un Timer, y copian el code y lo ejecutan y lo estudian  ;)
      No creo que haga falta la explicacion pero si hay dudas pregunten:
      Código [Seleccionar]
      Dim TiempoAtenuacion As Long

      Private Sub Form_Load()
      TiempoAtenuacion = 10
      Timer1.Interval = 10
      End Sub

      Private Sub Timer1_Timer()
      Select Case TiempoAtenuacion
          Case Is = 150
              Timer1.Interval = 0
              Timer1.Enabled = False
              Me.Show
          Case Else
              Call Atenuar
              Call SumarIntervalo
      End Select
      TiempoAtenuacion = Timer1.Interval
      End Sub

      Private Function Atenuar()
      Dim Estado As String
      Estado = IIf(Me.Visible, "Encendido", "Apagado")
      If Estado = "Encendido" Then
          Me.Hide
      ElseIf Estado = "Apagado" Then
          Me.Show
      End If
      End Function

      Private Sub SumarIntervalo()
          Timer1.Interval = Timer1.Interval + 5
      End Sub

      Espero le sirva a alguien ;)

      SaluDOS!!!

BlackZeroX

#1
30 Enero 2010, 07:59 AM Ultima modificación: 30 Enero 2010, 09:03 AM por ░▒▓BlackZeroҖ▓▒░
Usa geshi hermano:

code=vb

Edito:

Tu código se puede optimizar bastante deja lo recreo a mi manera ( Ya pongo aquí el código):

Temibles unas!¡
.
The Dark Shadow is my passion.

BlackZeroX

#2
30 Enero 2010, 09:02 AM Ultima modificación: 31 Enero 2010, 03:16 AM por BlackZeroX▓▓▒▒░░
.
Se le debe pasar 2 parámetros, 1 es una instancia de un objeto Timer X cual sea no importa y el mas importante el handle de la pantalla a darle el dicho efecto.

Se puede usar un timer creado por vía api pero bueno para evitar broncas de códigos largos lo deje con un parámetro donde se pasa el timer.

Código (vb) [Seleccionar]


'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' // Inspirado en la idea principal de    3D1                   //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Codigo siempre y cuando         //
' // no se eliminen los creditos originales de este codigo      //
' // No importando que sea modificado/editado o engrandesido    //
' // o achicado, si es en base a este codigo es requerido       //
' // el agradacimiento al autor.                                //
' ////////////////////////////////////////////////////////////////
' //            Modulo de Clase "ClsAnimateWindows"             //
' ////////////////////////////////////////////////////////////////
'
Option Explicit

Private WithEvents tmr          As Timer
Const SW_SHOWNORMAL = 1
Const SW_HIDE = 0
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long
Dim vHwnd                       As Long

Public Property Let Timer(vData As Timer)
   Set tmr = vData
   tmr.Enabled = False
End Property
Public Property Get Timer() As Timer
   Set Timer = tmr
End Property
Public Property Let hWnd(vData As Long)
   vHwnd = vData
End Property
Public Property Get hWnd() As Long
   hWnd = vHwnd
End Property
Public Function Start() As Boolean
   Start = Not tmr Is Nothing
   If Start Then
       tmr.Interval = 10
       tmr.Enabled = True
   End If
End Function

Private Sub TMR_Timer()
Static CounTim                  As Integer
Dim Res                         As Long
   If CounTim >= 170 Then
       CounTim = 0
       Res = ShowWindow(vHwnd, SW_SHOWNORMAL)
       tmr.Enabled = False
   Else
       Res = ShowWindow(vHwnd, Abs(Not CBool(IsWindowVisible(vHwnd))))
       tmr.Interval = tmr.Interval + 10
       CounTim = tmr.Interval
   End If
End Sub

Private Sub Class_Terminate()
   Set tmr = Nothing
End Sub



Ejemplo de su uso:

Código (vb) [Seleccionar]


'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Codigo siempre y cuando         //
' // no se eliminen los creditos originales de este codigo      //
' // No importando que sea modificado/editado o engrandesido    //
' // o achicado, si es en base a este codigo es requerido       //
' // el agradacimiento al autor.                                //
' ////////////////////////////////////////////////////////////////
' //       Ejemplo: Modulo de Clase "ClsAnimateWindows"         //
' //        Se nesesita:                                        //
' //                * 1 Timer                                   //
' ////////////////////////////////////////////////////////////////

Option Explicit

Dim AnimatW As ClsAnimateWindows

Private Sub Form_Load()
   Set AnimatW = New ClsAnimateWindows
   With AnimatW
       .hWnd = Me.hWnd
       .Timer = Timer1
       .Start
   End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Set AnimatW = Nothing
End Sub



El código al pesarla el handle de la ventana puede hacer "intermitente" cualquier ventana de windows... solo sabiendo el hwnd de dicha ventanilla xP.

aqui un ejemplo hacia un control del mismo formulario:

Código (vb) [Seleccionar]


'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Codigo siempre y cuando         //
' // no se eliminen los creditos originales de este codigo      //
' // No importando que sea modificado/editado o engrandesido    //
' // o achicado, si es en base a este codigo es requerido       //
' // el agradacimiento al autor.                                //
' ////////////////////////////////////////////////////////////////
' //       Ejemplo: Modulo de Clase "ClsAnimateWindows"         //
' //        Se nesesita:                                        //
' //                * 1 Timer                                   //
' //                * 1 PictureBox                              //
' ////////////////////////////////////////////////////////////////

Option Explicit

Dim AnimatW As ClsAnimateWindows

Private Sub Form_Load()
   Set AnimatW = New ClsAnimateWindows
   With AnimatW
       .hWnd = Picture1.hWnd
       .Timer = Timer1
       .Start
   End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Set AnimatW = Nothing
End Sub



Temibles Lunas!¡
The Dark Shadow is my passion.

seba123neo

#3
30 Enero 2010, 17:01 PM
esto lo unico que hace es ocultar y mostrar la ventana  :o
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

BlackZeroX

#4
30 Enero 2010, 18:52 PM
Cita de: seba123neo en 30 Enero 2010, 17:01 PM
esto lo unico que hace es ocultar y mostrar la ventana  :o

Da igual se ve bonito jajaja

Temibles Lunas!¡.
.
The Dark Shadow is my passion.

BlackZeroX

#5
31 Enero 2010, 03:07 AM Ultima modificación: 31 Enero 2010, 03:21 AM por BlackZeroX▓▓▒▒░░
.
La ultima actualizacion y ya me voy ya lo deje optimizado.

Código (vb) [Seleccionar]


'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' // Inspirado en la idea principal de    3D1                   //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Codigo siempre y cuando         //
' // no se eliminen los creditos originales de este codigo      //
' // No importando que sea modificado/editado o engrandesido    //
' // o achicado, si es en base a este codigo es requerido       //
' // el agradacimiento al autor.                                //
' ////////////////////////////////////////////////////////////////
' //            Modulo de Clase "ClsAnimateWindows"             //
' ////////////////////////////////////////////////////////////////
'
Option Explicit

Private WithEvents tmr          As Timer
Const SW_SHOWNORMAL = 1
Const SW_HIDE = 0
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long
Dim vHwnd                       As Long

Public Property Let Timer(vData As Timer)
    Set tmr = vData
    tmr.Enabled = False
End Property
Public Property Get Timer() As Timer
    Set Timer = tmr
End Property
Public Property Let hWnd(vData As Long)
    vHwnd = vData
End Property
Public Property Get hWnd() As Long
    hWnd = vHwnd
End Property
Public Function Start() As Boolean
    Start = Not tmr Is Nothing
    If Start Then
        tmr.Interval = 10
        tmr.Enabled = True
    End If
End Function

Private Sub TMR_Timer()
    tmr.Enabled = Not tmr.Interval >= 170
    If tmr.Enabled Then
        ShowWindow vHwnd, Abs(Not CBool(IsWindowVisible(vHwnd)))
        tmr.Interval = tmr.Interval + 10
    Else
        ShowWindow vHwnd, SW_SHOWNORMAL
    End If
End Sub

Private Sub Class_Terminate()
    Set tmr = Nothing
End Sub
The Dark Shadow is my passion.

EddyW

#6
3 Febrero 2010, 03:29 AM
Cita de: BlackZeroX▓▓▒▒░░ en 30 Enero 2010, 07:59 AM
Usa geshi hermano:

code=vb

Edito:

Tu código se puede optimizar bastante deja lo recreo a mi manera ( Ya pongo aquí el código):

Temibles unas!¡
.
No use geshi por que el algunos codes cuando contenía Tabulaciones salían como "&noseque" pero intentare en la próxima ;)

Ya se que se puede optimizar!!!   :xD
Por que no leen todo el post  :-(

Ahí puse el propósito del cual hice ese post, era para unas practicas para entrar al "VBLab 1" (De otro foro) el mas sencillo :)
Yo prefiero hacer algo simple como esto sin API's, ahorro muchas mas lineas  :xD
Aquí mi propio code optimizado:
Código (vb) [Seleccionar]
Private Sub Form_Load()
    Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Me.Visible = Switch(Timer1.Interval >= 200, True, Timer1.Interval <> 200, IIf(Me.Visible, False, True))
Timer1.Interval = Switch(Timer1.Interval < 200, Timer1.Interval + 10, True, 0)
End Sub
Colocas un Timer (Timer1) y Copy And Paste ;)
Este debería ser el mismo ejercicio pero para el Lab 3  :xD

SaluDOS!!!

cobein

#7
3 Febrero 2010, 04:12 AM
Si es por elegir... Me quedo con el mio! xD

Código [Seleccionar]
Private Sub Form_Load()
    Call Timer1_Timer
End Sub

Private Sub Timer1_Timer()
    Timer1.Interval = (Timer1.Interval + 10) Mod 200
    Me.Visible = Not Me.Visible Or Timer1.Interval = 0
End Sub
http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.

EddyW

#8
3 Febrero 2010, 04:42 AM
Cita de: cobein en  3 Febrero 2010, 04:12 AM
Si es por elegir... Me quedo con el mio! xD

Código [Seleccionar]
Private Sub Form_Load()
    Call Timer1_Timer
End Sub

Private Sub Timer1_Timer()
    Timer1.Interval = (Timer1.Interval + 10) Mod 200
    Me.Visible = Not Me.Visible Or Timer1.Interval = 0
End Sub
Eso es trampa ¬¬
XD, ok pensé en usar "Mod" pero nah, nadie usa Switch ni IIf ;D

SaluDOS!!!
PD: Lo haré en una sola linea... xD
Imprimir
Ir Arriba Páginas1
Acciones del Usuario