Cómo agregar un Scrolling Text Box Recuadro para Microsoft Access

Añade una marquesina con un control de cuadro de texto para capturar rápidamente la atención de un usuario al utilizar la aplicación Microsoft Access . En Access puede utilizar Visual Basic para Aplicaciones ( VBA) para automatizar el proceso de desplazamiento de texto en un control. VBA es un lenguaje de programación utilizado para ampliar las aplicaciones de Microsoft Office. Utilice el evento " Form.Timer " para ejecutar un procedimiento sub que actualizar continuamente los contenidos del cuadro de texto . Instrucciones
1

clic en la pestaña "Crear" y haga clic en " Diseño de formularios " para crear un nuevo formulario. Haga clic en " Caja de texto" en el panel " Controles" y haga clic en el formulario para agregar un nuevo control de cuadro de texto. Haga clic en el cuadro de texto y haga clic en "Propiedades" para mostrar la " Hoja de propiedades ". Haga clic en la ficha "Formato " , y establecer la " Alineación del texto " propiedad de " Derecha ". Haga clic en la pestaña "Otros" y escriba " txtMarqee " al lado de " Nombre ".

2 Haga clic en el formulario , haga clic en " Crear evento ", y haga doble clic en " Generador de código " para iniciar la ventana del editor de VBA. Pulse la tecla "Ctrl " y "A" para seleccionar todo el código por defecto y pulse "Eliminar" para eliminar el código .
3

Copia y pega el código siguiente para agregar variables globales que va a utilizar en el código:

textStr dévil como secuencia

padstr dévil como secuencia

txtScroll dévil como secuencia

txtLength Dim As Integer

iLength As Integer

OPI Dim As Integer

iView Dim As Integer

Irem Dim As Integer
4

Agregue el código siguiente para definir el texto que se desplazará por el control de cuadro de texto :

Private Sub Form_Load ( )

txtMarqee.SetFocus

txtMarqee.Text = ""

textStr = " Cómo agregar un Scrolling Text Box Recuadro para Microsoft Access"

padstr = ""

txtScroll = textStr y padstr

txtLength = Len ( txtScroll )

iLength = Len ( padstr )

Me.TimerInterval = 500

OPI = 1

iView = 1

End Sub

5

Crear un procedimiento sub que llamará al " moveText " sub procedimiento :

Form_Timer sub Private ()

moveText

End sub

6

Crear el " moveText " sub procedimiento que realmente desplazar el texto mostrado en el control de cuadro de texto :

moveText sub Private ()

txtMarqee.SetFocus
< p> txtMarqee.Text = Mid ( txtScroll , OPI , iView )

Irem = txtLength - ( OPI + iView - 1) spanish

Si (OPI - 1 ) <( txtLength - iLength ) Entonces

Si iView < 20 Y iView < Irem Entonces

iView iView = + 1

End If

Si OPI < txtLength Y iView > = 20 Entonces

IPOS IPOS = + 1

End If

demás

txtMarqee.Text = " "

OPI = 1

iView = 1

End If End Sub

volver a Microsoft Access y haga clic en el icono " Ver" para ejecutar el programa. El texto definido en el paso cuatro empezará a desplazarse por el cuadro de texto .