Cómo agregar un cuadro de texto Desplazamiento de marquesina para Microsoft Access

Añadir una marquesina mediante un control de cuadro de texto para captar 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 se actualizará continuamente el contenido del cuadro de texto.

Instrucciones

1 Haga clic en la pestaña "Crear" y haga clic en "Diseño de formulario" para crear una nueva forma. Haga clic en "Cuadro 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 pestaña "Formato", y establezca la propiedad "Alinear texto" a "derecha". Haga clic en la pestaña "Otros" y escriba "txtMarqee" junto a "Nombre".

2 Haga clic en el formulario, haga clic en "Generar 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 predeterminado y pulse "Borrar" para eliminar el código.

3 Copiar y pegar el siguiente código para agregar variables globales que va a utilizar en el código:

Dim como secuencia textStr

padstr Dim como secuencia

Dim como secuencia txtScroll

Dim txtLength como número entero

Dim iLength como número entero

iPos As Integer Dim

iView As Integer Dim

Dim İREM como número entero

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 cuadro de texto Desplazamiento de marquesina para Microsoft Access"

padstr = ""

txtScroll = textStr y padstr

txtLength = Len (txtScroll)

iLength = Len (padstr)

Me.TimerInterval = 500

iPos = 1

iView = 1

End Sub

5 Crear un procedimiento sub que llamará al "moveText" procedimiento de substitución:

Private Sub Form_Timer ()

moveText

End Sub

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

Private Sub moveText ()

txtMarqee.SetFocus

txtMarqee.Text = Mid (txtScroll, iPos, iView)

Irem = txtLength - (OPI + iView - 1)

Si (OPI - 1) <(txtLength - iLength) A continuación,

If iView < 20 And iView < iRem Then

iView iView = 1 +

Terminara si

Si iPos & lt; Y txtLength iView> = 20 A continuación,

IPoS = 1 + iPos

Terminara si

Más

txtMarqee.Text = ""

iPos = 1

iView = 1

Terminara si

End Sub

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