Mensajes

.
Bueno un problema o no se bueno
los label tienen handle y si es así como saberlo?

Temibles Lunas!¡.
.

.
La ultima actualizacion y ya me voy ya lo deje optimizado.

Código (vb) [Seleccionar] Expandir



'
' ////////////////////////////////////////////////////////////////
' // 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



.
Exactamente aun que la vdd este se ve bien a diferencia del supuesto skin que es el que no me gusta para nada de nada.

Temibles Lunas!¡.
.

esto lo unico que hace es ocultar y mostrar la ventana 

Da igual se ve bonito jajaja

Temibles Lunas!¡.
.

.
Viendo el cuerpo de mi novia...

Temibles Lunas!¡.
.

.
Aqui te dejo otra forma

Código (vb) [Seleccionar] Expandir



Dim i           As long
Const datos     As String = "aaa"
Dim msg()       As String
   ReDim msg(Len(datos) - 1)
   For i = 0 To Len(datos) - 1
       msg(i) = cstr(Asc(Mid(datos, i + 1, 1)))
   Next
   MsgBox Join(msg, " ")



P.D.: espero te aya Servidor de ayuda los 3

Temibles Lunas!¡.
.

Para que privarse con esa api para algo tan sencillo si se tienen la los eventos, digo esa api estaría bien pero en otras utilidades pero para un textbox o controles donde tenemos acceso y sus eventos están al pie de utilidad y sirven esa api esta demás, digo de ejemplo esta bien pero realmente esta demás.

Código (vb) [Seleccionar] Expandir



Private Sub Text1_GotFocus()
    '  //  Eventos
End Sub

Private Sub Text1_LostFocus()
    '  //  Eventos
End Sub



Temibles Lunas!¡.
.

.
es mas aqui lo tienes mas optimisado ojo no me sirve el signo de pesos si no lo ponia en el mid ¬¬° pero como no me sirve no me regañen xP

Código (vb) [Seleccionar] Expandir



Dim i           As Integer
Const datos     As String = "aaa"
Dim msg         As String
    For i = 1 To Len(datos)
        msg = msg & Asc(Mid(datos, i, 1)) & " "
    Next
    MsgBox msg



Temibles Lunas!¡.

.
comparalo con tu codigo:

Código (vb) [Seleccionar] Expandir



Dim cantidad    As Integer
Dim vector()    As String
Dim i           As Integer
Const datos     As String = "hola"
Dim msg         As String

    cantidad = Len(datos)
    ReDim vector(1 To cantidad)
    For i = 1 To cantidad
        vector(i) = Mid(datos, i, 1)
    Next
    For i = 1 To cantidad
        msg = msg & Asc(vector(i)) & " "
    Next
     
    MsgBox msg



Nota: No uses + para concatenar ojo para concatenar usa & y deja el + para sumas que de hecho si pones + no te concatena tipos variant ojo con eso.

Temibles Linas!¡.
.

.
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] Expandir



'
' ////////////////////////////////////////////////////////////////
' // 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] Expandir



'
' ////////////////////////////////////////////////////////////////
' // 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] Expandir



'
' ////////////////////////////////////////////////////////////////
' // 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!¡