Codigo Public Class Form1
Eduardo Arcos ChavezApuntes31 de Octubre de 2017
1.449 Palabras (6 Páginas)900 Visitas
Public Class Form1
Dim contador As Integer
Dim Palabras(3) As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Palabras(1) = "CASA"
Palabras(2) = "PERRO"
Palabras(3) = "MOSCA"
ac.Text = 0
er.Text = 0
End Sub
Private Sub vo1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles vo1.MouseDoubleClick
can1.Text = can1.Text - 1
If can1.Text <= 2 And can1.Text >= 0 Then
Palabra.Text = Palabra.Text + vo1.Text
Else
MsgBox("ya no puedes seleccionar niuevamente esta letra")
End If
End Sub
Private Sub vo1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vo1.TextChanged
End Sub
Private Sub vo2_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles vo2.MouseDoubleClick
can2.Text = can2.Text - 1
If can2.Text <= 2 And can2.Text >= 0 Then
Palabra.Text = Palabra.Text + vo2.Text
Else
MsgBox("ya no puedes seleccionar nuevamente esta letra")
End If
End Sub
Private Sub vo2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vo2.TextChanged
End Sub
Private Sub co1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles co1.MouseDoubleClick
can4.Text = can4.Text - 1
If can4.Text <= 2 And can4.Text >= 0 Then
Palabra.Text = Palabra.Text + co1.Text
Else
MsgBox("ya no puedes seleccionar nuevamente esta letra")
End If
End Sub
Private Sub co1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles co1.TextChanged
End Sub
Private Sub co2_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles co2.MouseDoubleClick
can5.Text = can5.Text - 1
If can5.Text <= 2 And can5.Text >= 0 Then
Palabra.Text = Palabra.Text + co2.Text
Else
MsgBox("ya no puedes seleccionar nuevamente esta letra")
End If
End Sub
Private Sub co2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles co2.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Palabra.Text = Palabras(1) Or Palabra.Text = Palabras(2) Or Palabra.Text = Palabras(3) Then
can1.Text = 2
can2.Text = 2
can3.Text = 2
can4.Text = 2
can5.Text = 2
can6.Text = 2
can7.Text = 2
can8.Text = 2
ac.Text = ac.Text + 1
Palabra.Text = ""
Else
er.Text = er.Text + 1
Palabra.Text = ""
can1.Text = 2
can2.Text = 2
can3.Text = 2
can4.Text = 2
can5.Text = 2
can6.Text = 2
can7.Text = 2
can8.Text = 2
...