Cómo usar un lenguaje simple para escribir el efecto de cerrar y abrir la ventana, tal como el televisor se apaga, se cierra de arriba a abajo hasta el medio y finalmente pasa rápidamente. ¡Por favor, dame un código!

.Especificaciones de biblioteca soportadas

.Ensamblaje Ensamblaje 1

.Subrutina Cool Dog Cerrar, , Público, se recomienda ocultar todo al cerrar Control para mejores resultados

Ventana de parámetros, Ventana

Velocidad de cierre de parámetros, decimal de doble precisión, Velocidad de cierre recomendada: 10

. decimal de doble precisión

Tasa de altura variable local, decimal de doble precisión

. Borde = 0

Modo Window.Basemap = 3

Ventana.Basemap = Instantánea (Window.TakeWindowHandle (), , )

Tasa de ancho = Ancho de ventana. tasa = ventana.altura ÷ velocidad de cierre

Salida de depuración (tasa de altura)

. Cuente el bucle primero (velocidad de cierre ÷ 2,)

retraso(10)

Ventana.altura = ventana. Altura - Tasa de altura × 2

Ventana.Borde superior = Ventana.Borde superior = Ventana Fin del período de recuento()

Retraso(30)

Ventana. Altura = 2

Window.Shape = 1

.Cuente el bucle primero (velocidad de cierre ÷ 2,)

Retraso(10)

.Delay(10)

.Width < 10)

Salir del bucle()

.Finalizar si es verdadero

Ventana .Left = Window.Tasa de ancho izquierda

Window.width = Window.width - tasa de ancho × 2

.Count Loop Tail ()

Window.Base Mapa = #a

Ventana.Move (Ventana. Izquierda - 10, Ventana. Arriba - 3, Ventana. Ancho 20, Ventana. Alto 6)

Retraso (30)

Ventana.Visible = Falso

. Subrutina _start subrutina, tipo entero

Devuelve (0).