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) p>
Ventana.Visible = Falso
. Subrutina _start subrutina, tipo entero
Devuelve (0).