Evento Key Press Visual Basic . Net 2005
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LBLPROM.Text = (Val(TXTN1.Text) +Val(TXTN2.Text) + Val(TXTN3.Text)) / 3
If Val(LBLPROM.Text) < 10.4 Then
LBLESTADO.Text = "ESTAS DESPROBADO " & txtnombre.Text
Else
LBLESTADO.Text ="Desaprobado "
End If
Select Case Val(LBLPROM.Text)
Case 0 To 5.4 : LBLOBS.Text = "MUY MALO"
Case 5.5 To 10.4 : LBLOBS.Text = "MALO"
Case 10.5 To 15.4 :LBLOBS.Text = "REGULAR"
Case 15.5 To 20 : LBLOBS.Text = "BUENO"
Case Else : LBLOBS.Text = "NOTA INCORRECTA"
End Select
End Sub
FORM2
Public Class Form2Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LBLSLD.Text = Val(TXTCANT_HOR.Text * TXTPAG_HOR.Text)
LBLBON.Text =0.1 * Val(LBLSLD.Text)
If Val(LBLSLD.Text) > 1000 Then
LBLDSCTO.Text = 0.05 * Val(LBLSLD.Text)
Else
LBLDSCTO.Text = 0.0 * Val(LBLSLD.Text)
End IfLBLSLD_FIN.Text = Val(LBLSLD.Text) + Val(LBLBON.Text) - Val(LBLDSCTO.Text)
End Sub
End Class
SEMANA3
[pic]
Public Class Form1
Private Sub OPTPRO_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles OPTPRO.Click
Me.PICCURSO.Image = Image.FromFile("c:\vnet.jpg")
End Sub
Private Sub OPTDATOS_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles OPTDATOS.Click
Me.PICCURSO.Image = Image.FromFile("c:\estructura.jpg")
End Sub
Private Sub OPTSOFT_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles OPTSOFT.Click
Me.PICCURSO.Image = Image.FromFile("c:\software.jpg")
End Sub
Private Sub TXTNOM_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles...
Regístrate para leer el documento completo.