kingtero
12 de Agosto del 2008

Hola a todos, quisiera saber si alguien sabe cómo hacer que la barra de título de una aplicación en Visual Basic 6.0 sea dinámica, es decir, que aparezca parpadeando o como máquina de escribir escribiéndose letra por letra...además quisiera saber cómo hago para que mi ejecutable tenga el ícono que yo deseo...

Desde ya, gracias por su ayuda...

Saludos,
César

Pere
12 de Agosto del 2008

En el formulario que te interese:
Añades un timer (por ejemplo Timer1).

Dim FlashStatus

Private Sub Timer1_Timer()
' PARPADEO AL MINIMIZAR
If nVeces <= 7000 Then
FlashStatus = FlashWindow(Me.hWnd, True)
nVeces = nVeces + 1
End If
End Sub

Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then
Timer1.Enabled = True
FlashStatus = FlashWindow(Me.hWnd, True)
Else
' NO PARPADEAR
Timer1.Interval = 500
Timer1.Enabled = False
FlashStatus = FlashWindow(Me.hWnd, False)
End If
End Sub

' En un módulo .bas
Declare Function FlashWindow Lib "user32" (ByVal hWnd As Long, _
ByVal bInvert As Long) As Long

' Esto hace que parpadee la barra de título al minimizar la aplicación. A partir de ahí, modifícalo según tus necesidades.

Saludos.

kingtero
12 de Agosto del 2008

Muchas Gracias por tu ayuda, pero ahora quiero saber cómo puedo hacer para que el Caption del formulario sea dinámico, o sea, que el título dado al formulario aparezca tal vez como si fuera máquina de escribir, letra a letra o de cualquier otro modo dinámico...

Muchas gracias por tu ayuda. Cualquier ejemplo lo podés enviar a [email protected]

Saludos,
César

Pere
12 de Agosto del 2008

Lo único que tengo hecho es el desplazamiento vertical a lo largo de un formulario cuando se cierra la aplicación. No lo he probado con el caption de la barra.

Saludos