Sección de códigos , trucos y ejemplos para visual basic

312 - Icono animado en formulario

Hacer un icono animado en un formulario usando un Timer

Colocar en el formulario un control Timer, y un arreglo de controles picturebox o image llamado Pic_Iconos y cargarle los gráficos de la secuencia de la animación

Código fuente en el form:

Option Explicit Private Sub Command1_Click() If Timer1.Enabled Then Command1.Caption = " Detener icono " Timer1.Enabled = False Else Command1.Caption = " Animar Icono " Timer1.Enabled = True End If End Sub Private Sub Form_Load() Command1.Caption = " Detener " Timer1.Interval = 150 End Sub Private Sub Timer1_Timer() ' Indice de la imagen Static icono As Integer ' Para la próxima icono = icono + 1 ' Si llegó al final vuelve a la primera If icono = Pic_Iconos.Count Then icono = 0 End If 'Muestra el ícono en el form Form1.Icon = Pic_Iconos(icono) End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb