Red de conocimiento informático - Aprendizaje de código fuente - ¿Cómo escribir caracteres desplazables en un lenguaje sencillo? código fuente

¿Cómo escribir caracteres desplazables en un lenguaje sencillo? código fuente

.Version 2

.Subroutine__Start Window_Created

HyperlinkBox1.Type = 1

HyperlinkBox1.Title = "Aquí está el texto desplazable que desea, puede cambiarlo a su own" ' Puede cambiarlo para leer archivos usando HTTP para leer automáticamente texto de la web; la dirección a continuación también funcionará. También se pueden utilizar las siguientes direcciones.

HyperlinkBox1.InternetAddress = ""

Clock1.ClockPeriod = 100 ' El tiempo aquí controla la velocidad

. Subrutina _Clock1_CycleEvent

HyperlinkBox1.left = HyperlinkBox1.left - 50 ' Los 50 aquí se pueden cambiar al efecto que desees

. Si es verdadero (Cuadro de hipervínculo 1. izquierda < -_Ventana de inicio. Izquierda)

Cuadro de hipervínculo 1. izquierda = _Ventana de inicio izquierda)

.Si es verdadero final

Además, como ayuda, puede escribir un código que detenga el desplazamiento del anuncio cuando se pasa el mouse sobre él:

.Version 2

.Subroutine_HyperlinkBox1_MousePositionMoved, logic

p>

. Parámetros posición horizontal, número entero

. Parámetros posición vertical, número entero

. Estado de la tecla de función del parámetro, número entero

. Coordenadas del hipervínculo de variable local, coordenada_

. Coordenadas del mouse de variable local, coordenada_

Obtener posición del mouse_ (coordenadas del mouse)

Coordenadas del hipervínculo. Posición horizontal = 0

Coordenadas del hipervínculo. Posición vertical = 0

Obtenga la posición del área de la ventana_(cuadro de hipervínculo 1. Obtenga el identificador de la ventana (), coordenadas del hipervínculo)

Determine la posición inicial (coordenadas del mouse. Posición horizontal <). Coordenadas del hipervínculo 1 y las coordenadas del mouse. Posición horizontal>Coordenadas del hipervínculo)

. Determine la posición inicial (ratón. Posición vertical Coordenadas del hipervínculo)

Reloj1.Período de reloj = 0

.Valor predeterminado

Reloj1.Período de reloj = 500

.Fin del juicio

.Valor predeterminado

Reloj1.Período de reloj = 500

.Fin del juicio

.Versión 2

.DLL Comando GetCursorPosition_, entero, "user32", "GetCursorPos",

.Parámetro posición, coordina_

.DLL Comando GetWindowAreaPosition_, entero, "user32.dll", "ClientToScreen", distinto de cero significa éxito, cero significa error

. Identificador de ventana de parámetros, entero, hwnd, el identificador de ventana del que se toman las coordenadas del área<. /p>

p>

. Variables de posición de parámetros, coordenadas_, lpPoint, consulte la ayuda relacionada

. Versión 2

.

Tipo de datos coordina_, , POINTAPI

Miembros Posición horizontal (posición horizontal), entero, , x, posición horizontal

. Posición vertical del miembro (posición_vertical), número entero, , , y, posición vertical

.