Juego sobre el uso del mouse para los eventos clic, doble clic y arrastrar (página 2)
Enviado por jaimemontoya
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 siguiente |