Juego sobre el uso del mouse para los eventos clic, doble clic y arrastrar (página 2)
El juego para
practicar el evento doble clic aparece al hacer clic en el
botón siguiente, y funciona exactamente igual que el juego
para el evento clic, con la única diferencia que los
aciertos y desaciertos serán considerados en base a los
eventos doble
clic:
JUEGO PARA
PRACTICAR EL EVENTO ARRASTRAR
Luego de haber pasado por el juego para practicar el
evento doble clic, cuando el usuario haga clic en el botón
Siguiente llegará al Juego para Practicar el Evento
Arrastrar, que consistirá en arrastrar un texto desde el
TextBox1 hasta el TextBox2. Inicialmente se mostrará esta
pantalla:
Al hacer un acierto aparece el mensaje de
felicitación:
Cuando el usuario no logra arrastrar el texto del
TextBox1 al Textbox2, se pierde un punto:
Cuando el usuario logra arrastrar correctamente el texto
del TextBox1 hacia el TextBox2, gana un punto:
Luego de haber hecho los intentos deseados, cuando se
quiera terminar el juego, se hace clic sobre el botón
Terminar Juego y aparecerán los resultados de aciertos y
desaciertos así como también la nota
correspondiente:
Al hacer clic sobre el botón Principal, el juego
regresa a la pantalla inicial mostrada al ejecutar por primera
vez el programa. De esta
forma, de manera divertida, amena y dinámica, cualquier persona puede
aprender con mucha facilidad y sin aburrimiento el manejo del
Mouse en sus
eventos clic, doble clic y clic de arrastre. Se hace notar
igualmente que para este programa no se hace ninguna
diferenciación entre clic izquierdo y clic derecho, por lo
cual los resultados son los mismos ya sea que se use el clic
izquierdo o el derecho para jugar con el evento clic, doble clic
o clic de arrastre. Luego de varios juegos, un
niño o cualquier persona que esté aprendiendo a
usar el Mouse podrá alcanzar muy buenas habilidades y
facilidad para la manipulación del Mouse. Las notas
alcanzadas reflejarán el nivel que se tiene y el progreso
que se va logrando poco a poco.
CÓDIGO DEL
PROGRAMA
FORMULARIO
EVENTO CLIC
Public Class eventoclick
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Para que se vea el cambio en la
actualización de la hora segundo a segundo.
Label1.Text = TimeOfDay
Label2.Text = TimeOfDay
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label1.Location = New Point(x_mio, y_mio)
x_mio = x_mio + horizontal * 10
y_mio = x_mio + vertical * 10
If (y_mio >
(Me.Size.Height –
Label1.Width)) And
(horizontal = 1) Then
horizontal = -1
End If
If (y_mio < 0)
And (horizontal = -1)
Then
horizontal = 1
End If
If (y_mio >
(Me.Size.Height –
Label1.Height)) And
(vertical = 1) Then
vertical = -1
End If
If (y_mio < 0)
And (vertical = -1)
Then
vertical = 1
End If
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label2.Location = New Point(x_mio1, y_mio1)
y_mio1 = y_mio1 + vertical1 * 10
If (y_mio1 >
Me.Size.Height – Label2.Height
* 4) Then
vertical1 = 0
End If
If (vertical1 = 0)
Then
x_mio1 = x_mio1 + horizontal1 * 10
End If
If (x_mio1 >
Me.Size.Width –
Label2.Width) Then
horizontal1 = 0
End If
If (horizontal1 = 0)
And (y_mio1 > 0)
Then
vertical1 = -1
y_mio1 = y_mio1 + vertical1 * 10
End If
If (y_mio1 < 1)
And (x_mio1 > 0)
Then
vertical1 = 0
horizontal1 = -1
x_mio1 = x_mio1 + horizontal1 * 10
End If
If (x_mio1 = 0)
And (vertical1 = 0)
Then
horizontal1 = 1
vertical1 = 1
y_mio1 = y_mio1 + vertical1 * 10
End If
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
contadoraciertosclic += 1
TextBoxaciertos.Text =
Str(contadoraciertosclic)
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
contadoraciertosclic += 1
TextBoxaciertos.Text =
Str(contadoraciertosclic)
End Sub
Private Sub eventoclick_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Para que al cargar el formulario se
muestren los contadores inicializados en cero.
TextBoxaciertos.Text = "0"
TextBoxdesaciertos.Text = "0"
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
contadordesaciertosclic += 1
TextBoxdesaciertos.Text =
Str(contadordesaciertosclic)
End Sub
Private Sub
Buttonanterior1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonanterior1.Click
Dim mensaje
As String
mensaje = MsgBox("Esta
acción
cancelará el juego actual. ¿Desea
continuar?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")
If mensaje = 6
Then
resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.
Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables,
pues si se usara "Me.Hide()" solamente se oculta y quedan activas
todas las variables y todo lo que hay en el
formulario.
Form1.Show() 'Mandar a
llamar al formulario "Form1".
contadordesaciertosclic = 0
contadoraciertosclic = 0
End If
End Sub
Private Sub
Buttonterminarjuego1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Buttonterminarjuego1.Click
Dim mensaje
As String
mensaje = MsgBox("¿Desea realmente terminar este
juego?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")
If mensaje = 6
Then
resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.
Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.
resultado1.Show() 'Mandar a
llamar al formulario de resultados. El juego ha
terminado.
End If
End Sub
Private Sub
Buttonsiguiente1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsiguiente1.Click
Dim mensaje
As String
mensaje = MsgBox("Esta
acción cancelará el juego actual. ¿Desea
continuar?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")
If mensaje = 6
Then
resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.
Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.
eventodobleclic.Show() 'Mandar a llamar al formulario "eventodobleclic". El
juego ha terminado.
contadordesaciertosclic = 0
contadoraciertosclic = 0
End If
End Sub
Private Sub
Buttonindicaciones1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Buttonindicaciones1.Click
Me.Hide()
'Oculta el formulario actual.
informacionclic1.Show() 'Muestra el
formulario "informacionclic1".
End Sub
End Class
FORMULARIO EVENTO DOBLE
CLIC
Public Class eventodobleclic
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Para que se vea el cambio en la
actualización de la hora segundo a segundo.
Label1.Text = TimeOfDay
Label2.Text = TimeOfDay
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label1.Location = New Point(x_mio, y_mio)
x_mio = x_mio + horizontal * 10
y_mio = x_mio + vertical * 10
If (y_mio >
(Me.Size.Height –
Label1.Width)) And
(horizontal = 1) Then
horizontal = -1
End If
If (y_mio < 0)
And (horizontal = -1)
Then
horizontal = 1
End If
If (y_mio >
(Me.Size.Height –
Label1.Height)) And
(vertical = 1) Then
vertical = -1
End If
If (y_mio < 0)
And (vertical = -1)
Then
vertical = 1
End If
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label2.Location = New Point(x_mio1, y_mio1)
y_mio1 = y_mio1 + vertical1 * 10
If (y_mio1 >
Me.Size.Height – Label2.Height
* 4) Then
vertical1 = 0
End If
If (vertical1 = 0)
Then
x_mio1 = x_mio1 + horizontal1 * 10
End If
If (x_mio1 >
Me.Size.Width –
Label2.Width) Then
horizontal1 = 0
End If
If (horizontal1 = 0)
And (y_mio1 > 0)
Then
vertical1 = -1
y_mio1 = y_mio1 + vertical1 * 10
End If
If (y_mio1 < 1)
And (x_mio1 > 0)
Then
vertical1 = 0
horizontal1 = -1
x_mio1 = x_mio1 + horizontal1 * 10
End If
If (x_mio1 = 0)
And (vertical1 = 0)
Then
horizontal1 = 1
vertical1 = 1
y_mio1 = y_mio1 + vertical1 * 10
End If
End Sub
Private Sub
Buttonsiguiente11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsiguiente11.Click
Dim mensaje
As String
mensaje = MsgBox("Esta
acción cancelará el juego actual. ¿Desea
continuar?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")
If mensaje = 6
Then
resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.
Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.
eventodraganddrop.Show() 'Mandar a llamar al formulario "eventodraganddrop". El
juego ha terminado.
contadordesaciertosdobleclic = 0
contadoraciertosdobleclic = 0
End If
End Sub
Private Sub
Buttonanterior11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonanterior11.Click
Dim mensaje
As String
mensaje = MsgBox("Esta
acción cancelará el juego actual. ¿Desea
continuar?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")
If mensaje = 6
Then
resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.
Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.
eventoclick.Show() 'Mandar
a llamar al formulario "eventoclick". El juego ha
terminado.
contadordesaciertosdobleclic = 0
contadoraciertosdobleclic = 0
End If
End Sub
Private Sub
Buttonterminarjuego11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Buttonterminarjuego11.Click
Dim mensaje
As String
mensaje = MsgBox("¿Desea realmente terminar este
juego?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")
If mensaje = 6
Then
resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.
Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.
resultado1.Show() 'Mandar a
llamar al formulario de resultados. El juego ha
terminado.
contadoraciertosarrastrar = 0
contadordesaciertosarrastrar = 0
End If
End Sub
Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick
contadoraciertosdobleclic += 1
TextBoxaciertos.Text =
Str(contadoraciertosdobleclic)
End Sub
Private Sub Label2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.DoubleClick
contadoraciertosdobleclic += 1
TextBoxaciertos.Text =
Str(contadoraciertosdobleclic)
End Sub
Private Sub
PictureBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.DoubleClick
contadordesaciertosdobleclic += 1
TextBoxdesaciertos.Text =
Str(contadordesaciertosdobleclic)
End Sub
Private Sub
Buttonindicaciones11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Buttonindicaciones11.Click
Me.Hide()
'Oculta el formulario actual.
informaciondobleclic1.Show() 'Muestra el formulario
"informaciondobleclic1".
End Sub
Private Sub
eventodobleclic_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Para que al cargar el formulario se
muestren los contadores inicializados en cero.
TextBoxaciertos.Text = "0"
TextBoxdesaciertos.Text = "0"
End Sub
End Class
FORMULARIO EVENTO ARRASTRAR
Public Class eventodraganddrop
Private MouseIsDown
As Boolean = False
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As _
System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
' Set a flag to show that the mouse is
down.
MouseIsDown = True
End Sub
Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As _
System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
If MouseIsDown
Then
' Initiate dragging.
TextBox1.DoDragDrop(TextBox1.Text,
DragDropEffects.Copy)
End If
MouseIsDown = False
End Sub
Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As _
System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter
' Check the format of the data being
dropped.
If
(e.Data.GetDataPresent(DataFormats.Text))
Then
' Display the copy cursor.
e.Effect = DragDropEffects.Copy
Else
' Display the no-drop cursor.
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As _
System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
' Paste the text.
TextBox2.Text =
e.Data.GetData(DataFormats.Text)
End Sub
Private Sub
eventodraganddrop_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.ReadOnly = True 'Al cargar el
formulario el TextBox1 no está habilitado para escritura. Se
habilitará únicamente cuando el usuario haga clic
en el botón comenzar, pues es entonces que se comienza a
contar el tiempo.
'Para que al cargar el formulario se
muestren los contadores inicializados en cero.
TextBoxaciertos.Text = "0"
TextBoxdesaciertos.Text = "0"
End Sub
Private Sub
Buttonterminarjuego11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Buttonterminarjuego11.Click
Dim mensaje
As String
mensaje = MsgBox("¿Desea realmente terminar este
juego?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")
If mensaje = 6
Then
resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.
Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.
resultado1.Show() 'Mandar a
llamar al formulario de resultados. El juego ha
terminado.
End If
End Sub
Private Sub
Buttoncomenzar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncomenzar1.Click
Timer1.Enabled = True
Timer2.Enabled = True
TextBox1.Text = "Arrastrar
texto"
TextBox3.Text = ""
'Para que borre el resultado del proceso
anterior.
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'El Timer1 tiene un Interval de 5000,
quiere decir que cada 5 segundos se ejecuta, aunque con el
"Timer1.Enabled = False" se desactiva.
If TextBox1.Text =
TextBox2.Text And
TextBox1.Text <> "" Then
'Con esto se garantiza que el usuario ha
podido arrastrar correctamente el texto del TextBox1 al TextBox2,
pues si no ha escrito nada la respuesta es mala. No podrá
escribir directamente en el TextBox2 porque está protegido
contra escritura. Entonces la única manera de que el
usuario tenga esta parte correcta es que haya arrastrado
correctamente el texto que escribió en el TextBox1 al
TextBox2.
contadoraciertosarrastrar += 1
TextBox3.Text = "Felicidades, has ganado un punto."
TextBoxaciertos.Text =
Str(contadoraciertosarrastrar)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.ReadOnly = True 'Para que no se pueda
escribir en el TextBox1, sino que esté activado
únicamente al comenzar a contar el tiempo.
Else
contadordesaciertosarrastrar += 1
TextBox3.Text = "Lo
sentimos, has perdido un punto."
TextBoxdesaciertos.Text =
Str(contadordesaciertosarrastrar)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.ReadOnly = True 'Para que no se pueda
escribir en el TextBox1, sino que esté activado
únicamente al comenzar a contar el tiempo.
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Timer1.Enabled = False 'Para que solamente
una vez se dé el resultado correcto o equivocado del
arrastre del usuario, y que se vuelva a activar hasta que se haga
otro clic.
Timer2.Enabled = False 'Se desactiva el
Timer2 (que es el que sirve para desactivar el Timer1.
End Sub
Private Sub
Buttonanterior11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonanterior11.Click
Dim mensaje
As String
mensaje = MsgBox("Esta
acción cancelará el juego actual. ¿Desea
continuar?", MsgBoxStyle.YesNo, "USO DEL MOUSE 1.0")
If mensaje = 6
Then
resultado1.TextBoxaciertos1.Text =
TextBoxaciertos.Text 'El
número de aciertos se manda a imprimir al TextBox
"TextBoxaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxdesaciertos1.Text =
TextBoxdesaciertos.Text 'El
número de desaciertos se mana a imprimir al TextBox
"TextBoxdesaciertos" que está en el formulario
"resultado1".
resultado1.TextBoxnotafinal1.Text = 10 /
(Val(TextBoxaciertos.Text) + Val(TextBoxdesaciertos.Text)) *
Val(TextBoxaciertos.Text) 'Determinar e imprimir la nota final.
Me.Close()
'Cierra el formulario actual (para que
pierda todas las variables, pues si se usara "Me.Hide()"
solamente se oculta y quedan activas todas las variables y todo
lo que hay en el formulario.
eventodobleclic.Show() 'Mandar a llamar al formulario "eventodobleclic". El
juego ha terminado.
contadordesaciertosarrastrar = 0
contadoraciertosarrastrar = 0
End If
End Sub
End Class
FORMULARIO DE INICIO DEL
PROGRAMA
Public Class Form1
'Poner el formulario ovalado.
Protected Overrides Sub
OnPaint(ByVal
Pintar As
PaintEventArgs)
Dim Elipse
As New
Drawing2D.GraphicsPath()
Dim Rectangulo
As New
Rectangle(8, 28, Me.Width – 13, Me.Height – 40) 'La coordenada "x" de la esquina superior izquierda del
rectángulo tiene el valor de 7
para que n o se vea el borde izquierdo del formulario. La
coordenada "y" de la esquina superior izquierda del
rectángulo tiene el valor de 26, con lo cual se logra que
no aparezca la barra de título en el formulario. El ancho
del rectángulo es "Me.Width – 13" para que no se vea el
borde derecho del formulario. El alto del rectángulo es
"Me.Height – 31" para que no se vea la línea inferior del
borde.
Elipse.AddEllipse(Rectangulo)
Me.Region =
New Region(Elipse)
End Sub
Private Sub
Buttonsiguiente1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsiguiente1.Click
Me.Hide()
'Oculta el formulario actual.
eventoclick.Show() 'Muestra
el formulario "eventoclick".
End Sub
End Class
FORMULARIO DE INFORMACIÓN DEL JUEGO
EVENTO CLIC
Public Class informacionclic1
Private Sub
Buttoncerrar1_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles Buttoncerrar1.Click
Me.Hide()
'Oculta el formulario actual.
eventoclick.Show() 'Muestra
el formulario "eventoclick".
End Sub
End Class
FORMULARIO DE INFORMACIÓN
DEL JUEGO EVENTO DOBLE CLIC
Public Class informaciondobleclic1
Private Sub
Buttoncerrar1_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles Buttoncerrar1.Click
Me.Hide()
'Oculta el formulario actual.
eventodobleclic.Show() 'Muestra el formulario "eventodobleclic".
End Sub
End Class
MÓDULO
PARA LA DECLARACIÓN DE VARIABLES
PÚBLICAS
Module Module1
'Variables para ir controlando el
movimiento de
los Label que contendrán la hora y estarán en
movimiento.
Public x_mio
As Integer = 0
Public y_mio
As Integer = 0
Public horizontal
As Integer = 1
Public vertical
As Integer = 1
Public x_mio1
As Integer = 0
Public y_mio1
As Integer = 0
Public horizontal1
As Integer = 1
Public vertical1
As Integer = 1
'Contadores que van a manipular los
resultados de aciertos o desaciertos.
Public
contadoraciertosclic As
Integer
Public
contadordesaciertosclic As Integer
Public
contadoraciertosdobleclic As Integer
Public
contadordesaciertosdobleclic As Integer
Public
contadoraciertosarrastrar As Integer
Public
contadordesaciertosarrastrar As Integer
End Module
FORMULARIO PARA MOSTRAR RESULTADOS OBTENIDOS
EN LOS JUEGOS
Public Class resultado1
'Poner el formulario ovalado.
Protected Overrides Sub
OnPaint(ByVal
Pintar As
PaintEventArgs)
Dim Elipse
As New
Drawing2D.GraphicsPath()
Dim Rectangulo
As New
Rectangle(8, 28, Me.Width – 13, Me.Height – 40) 'La coordenada "x" de la esquina superior izquierda del
rectángulo tiene el valor de 7 para que n o se vea el
borde izquierdo del formulario. La coordenada "y" de la esquina
superior izquierda del rectángulo tiene el valor de 26,
con lo cual se logra que no aparezca la barra de título en
el formulario. El ancho del rectángulo es "Me.Width – 13"
para que no se vea el borde derecho del formulario. El alto del
rectángulo es "Me.Height – 31" para que no se vea la
línea inferior del borde.
Elipse.AddEllipse(Rectangulo)
Me.Region =
New Region(Elipse)
End Sub
Private Sub
Buttonprincipal1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonprincipal1.Click
Me.Hide()
'Oculta el formulario actual.
Form1.Show() 'Muestra el
formulario "Form1".
End Sub
End Class
Otro detalle importante de mencionar es que el
formulario "eventoclick.vb" tiene tres Timer, los cuales tienen
todos la propiedad
"Enabled = True" y la propiedad "Interval = 100". Lo mismo sucede
para el formulario "eventodobleclic.vb". El formulario
"eventodraganddrop.vb" tiene dos Timer, ambos tienen la propiedad
"Enabled = False"; el Timer1 tiene "Interval = 5000" mientras que
el Timer2 tiene "Internal = 6000".
Jaime Montoya
Santa Ana, 20 de febrero de 2008
El Salvador
Página anterior | Volver al principio del trabajo | Página siguiente |