Os x

...

lblopcion.Text = "Precios Unitarios de Recalcular"

End Sub

Private Sub PreciosUnitariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreciosUnitariosToolStripMenuItem.Click

lblopcion.Text = "Precio Unutarios Presupuesto"

End Sub

Private Sub MantenimientoToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MantenimientoToolStripMenuItem2.Click

lblopcion.Text = "Presupuesto de Mantenimiento"

End Sub

Private Sub PresupuestoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PresupuestoToolStripMenuItem.Click

lblopcion.Text = "Presupuesto de ayuda"

End Sub

Private Sub AyudaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AyudaToolStripMenuItem1.Click

lblopcion.Text = "Ayuda"

End Sub

Private Sub BarraHerramientas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

lblopcion.Text = "Mantenimiento de Material"

FormMateriales.Show()

FormMateriales.MdiParent = Me

End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click

lblopcion.Text = "Mantenimiento de Herramientas"

FormHerramientas.Show()

FormHerramientas.MdiParent = Me

End Sub

Private Sub FormPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click

If (MsgBox("¿Esta usted SEGURO ?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok) Then

Me.Close()

End If

End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

lblopcion.Text = "Manteniemiento de Mano de Obra"

FormManoDeObra.Show()

FormManoDeObra.MdiParent = Me

End Sub

Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click

lblopcion.Text = "Precios Unitarios Mantenimiento"

FormPreciosUnitarios.Show()

FormPreciosUnitarios.MdiParent = Me

End Sub

End Class

[pic 3]

JUEGO DEL GATO

Public Class Form1

Dim J1 As String

Dim J2 As String

Dim TURNO As Byte

Dim panel1 As String

Private Sub btnJuegonuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnJuegonuevo.Click

J1 = InputBox("ESCRIBE NOMBRE DEL PRIMER JUGADOR")

J2 = InputBox("ESCRIBE NOMBRE DEL SEGUNDO JUGADOR")

lblNombrejugador.Text = "ES TURNO DE " & J1

panel1 = True

Button1.Enabled = True

Button2.Enabled = True

Button3.Enabled = True

Button4.Enabled = True

Button5.Enabled = True

Button6.Enabled = True

Button7.Enabled = True

Button8.Enabled = True

Button9.Enabled = True

Button1.Text = ""

Button2.Text = ""

Button3.Text = ""

Button4.Text = ""

Button5.Text = ""

Button6.Text = ""

Button7.Text = ""

Button8.Text = ""

Button9.Text = ""

End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Button1.Enabled = False

If TURNO = 0 Then

lblNombrejugador.Text = "ES TURNO DE " & J2

TURNO = 1

Button1.Text = "X"

ElseIf TURNO = 1 Then

lblNombrejugador.Text =