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

436 - Scroll en la barra de título de un form

<Volver> - Anterior - Siguiente

Crear un Scroll en el caption del formulario

Para comenzar el scroll se le debe pasar como parámetro a la función " Comenzar " :

el formulario
el intervalo en milisegundos
el texto

por ejemplo

Call Comenzar(Me, 50, " el texto ")

Crear un nuevo proyecto de visual basic y añadir un modulo bas

Código fuente en el .bas

Option Explicit ' funciones api Declare Function SetTimer Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As Long) As Long Declare Function KillTimer Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nIDEvent As Long) As Long ' variables Dim texto As String Dim mForm As Form Public mEspacios As Integer ' comienza Sub Comenzar(frm As Form, Intervalo As Long, mtexto As String) Call Detener(frm) frm.Caption = "" mEspacios = (frm.ScaleWidth) / 70 texto = mtexto Set mForm = frm SetTimer frm.hwnd, 0, Intervalo, AddressOf TimerProc End Sub ' detiene el scrolling Sub Detener(frm As Form) KillTimer frm.hwnd, 0 Set mForm = Nothing End Sub ' función para SetTimer Sub TimerProc(ByVal hwnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As Long) Call scroll End Sub Public Sub scroll() If Not mForm.Caption = "" Then mForm.Caption = Right(mForm.Caption, (Len(mForm.Caption) - 1)) Else mForm.Caption = Space(mEspacios) mForm.Caption = mForm.Caption + texto End If End Sub

Código fuente en el formulario

Private Sub Form_Resize() Call Comenzar(Me, 50, "** -- Scroll en la barra de barra de título -- **") End Sub Private Sub Form_Unload(Cancel As Integer) Call Detener(Me) End Sub

Recursos Visual basic 6.0

Scroll de texto

Buscar en Recursos vb