Red de conocimiento informático - Aprendizaje de código fuente - ¿Cómo crear una ventana sin bordes en la esquina inferior derecha de la barra de tareas en un lenguaje sencillo?

¿Cómo crear una ventana sin bordes en la esquina inferior derecha de la barra de tareas en un lenguaje sencillo?

.Versión 2

.Soporte de biblioteca de Internet

.Subrutinas _clock4_cycle_event, , , monitorear el tiempo

clock4.clock_cycle = 1000

.if (tomar segundos (tomar el tiempo actual ()) = 50 y el programa se está ejecutando o no = falso)

La ventana sube () ' La ventana sube

Crear hilo (amp; hilo de bucle , )

. De lo contrario

.if (tome segundos (tome la hora actual ()) = 50 y si el programa se está ejecutando = verdadero)

Ventana hacia abajo ( )

.else

.if end

.Versión 2

.Especificación de biblioteca de soporte

. Subprograma Ventana abajo, , 'Ventana abajo

.Borde superior = _Iniciar ventana.Borde superior 1

. If (_Launch Window. Borde superior = Obtener altura de la pantalla ())

Si el programa se está ejecutando = False

De lo contrario

Si finaliza

Delay(5)

Determina el final del bucle()

. Subrutina Ventana arriba, ' Ventana arriba

Determina el cabezal del bucle (inverso (si el programa se está ejecutando))

_Ventana de inicio.Borde superior = _Ventana de inicio.Borde superior - 1.

.If (_Launch Window. Top = Obtener altura de la pantalla () - _Launch Window. Height - 33)

Si el programa se está ejecutando = True

. En caso contrario

. if end

delay(5)

.determina loopend()

¡Cuando los segundos suben a 50, suben y luego bajan a 50!