Preguntas interesantes sobre VB

¡Tienes que hacer un clic en mí! ¿Espectáculo de magia?

Primero cambie el BorderStyle de Form1 a 0-Ninguno, luego agregue un CommandButton y luego agregue el siguiente código.

Subcomando privado 1_Click()

‘Eliminarme’ equivale al final.

Conector final

Subcomando privado 1_MouseMove (El botón es un número entero, Shift es un número entero, X es único, Y es único)

Formulario 1. top = rnd (1) *(screen.height-form1.height)' rnd() es una función de número aleatorio. Resta la altura de la Tabla 1 para evitar que salte de la pantalla.

form 1 . left = rnd(1)*(screen . width-form 1 . width)' Igual que arriba.

Conector final

Subform_Load() privado

Comando 1. izquierda = 0

Comando 1. Arriba = 0

Formulario 1. ancho = comando1. Ancho

Formulario1. Altura = Comando1. Altura

Conector final

Sin embargo, no puedes cerrarlo incluso si presionas Alt+F4. Cuando el botón está seleccionado, solo puede cerrarlo presionando la barra espaciadora o enter.

Si solo no se puede cerrar el mouse, pero se puede cerrar Alt+F4, cambie el estilo de borde de Form1 nuevamente a 2.