¿Cómo escribir caracteres desplazables en un lenguaje sencillo? código fuente
.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
.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
Reloj1.Período de reloj = 0
.Valor predeterminado
Reloj1.Período de reloj = 500 p>
.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
.