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
7
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 .
