11. Programa: este programa gracioso es una broma que podemos gastar a nuestros amigos/as, compañeros/as de trabajo. Utilizamos un nuevo evento llamado MouseMove, que se produce cuando el ratón se mueve sobre el control u objeto. Si vamos al tema de Eventos, podemas ver otro dos más relacionados con este evento, llamados MouseDown y MouseUp.
Para realizar la broma, podemos mandarlo por mail o bien colocar un acceso directo en el Inicio de la barra de tareas del menú Programas. Para desactivar este tipo de bromas, basta con pulsar las teclas CONTROL+ALT+SUPR y finalizar el programa en ejecución.
| OBJETO | PROPIEDAD | VALOR |
| Form1 | Caption ControlBox Icon StartUpPosition |
Encuesta False Pen04.ico (Graphics, Icons, Writing) 2 |
| LblMensaje | Caption Font ForeColor |
¿Es usted mariquita, es
decir gay, homoxesual, de la acera de enfrente? 12, negrita Azul |
| CmdSi | Caption Font |
Si 12, negrita |
| CmdNo | Caption Font |
No 12, negrita |
| TmrTiempo | Enabled Interval |
False 7000 |
Dim A As Integer
Private Sub CmdNo_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If A = 0 Then
CmdNo.Left = 3200: CmdNo.Top = 3200
End If
If A = 1 Then
CmdNo.Left = 1000: CmdNo.Top = 4800
End If
If A = 2 Then
CmdNo.Left = 5000: CmdNo.Top = 4500
End If
If A = 3 Then
CmdNo.Left = 4100: CmdNo.Top = 1200
End If
If A = 4 Then
CmdNo.Left = 2000: CmdNo.Top = 1800
End If
If A = 5 Then
CmdNo.Left = 4200: CmdNo.Top = 4200
End If
A = A + 1
If A = 6 Then A = 1
End Sub
Private Sub CmdSi_Click()
MsgBox "YA LO SABÍA", vbExclamation, "ENCUESTA"
TmrTiempo.Enabled = True
Form1.Visible = False
End Sub
Private Sub TmrTiempo_Timer()
MsgBox "Le recuerdo que es usted mariquita", vbInformation, "ENCUESTA"
End Sub
