Programación Visual Basic .Net 2005

PARTE I

SEPARATA DE APLICACIONES PARA WINDOWS EN VISUAL BASIC .NET 2005
CURSO LENGUAJE DE PROGRAMACIÓN II 
ELABORADO POR  Prof. Rolando Chávez Fiestas

Prof..: Rolando Fiestas Chávez. 

Pág. 1

APLICACIÓN 01: 

FrmAlumno 
Public Class FrmAlumno  Inherits System.Windows.Forms.Form  Private Sub BtnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNuevo.Click  Txtcodigo.Clear()  Txtnom.Clear()  Txtn1.Clear()  Txtn2.Clear()  Txtn3.Clear()  LblPro.Text = ""  Lblmsg.Text = ""  Txtcodigo.Focus()  End Sub  Private Sub BtnCalcular_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles BtnCalcular.Click  cod = Txtcodigo.Text  nom = Txtnom.Text  par = Convert.ToSingle(Txtn1.Text)  fin = Convert.ToSingle(Txtn2.Text) pra = Convert.ToSingle(Txtn3.Text)  prom = (par + fin + pra) / 3  LblPro.Text = prom.ToString("##.0")  If prom > 10 Then  'Para pintar un color se utiliza la clase color  Lblmsg.ForeColor = Color.Blue  'Lblmsg.Font.Bold()  Lblmsg.Text = "Aprobado"  Else  Lblmsg.ForeColor = Color.Red  'Lblmsg.Font.Bold = False  Lblmsg.Text = "Desaprobado"
Prof..: Rolando Fiestas Chávez.  Pág. 2 

End If  End Sub Private Sub BtnBoleta_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles BtnBoleta.Click  'Debemos de crear un objeto para abrir un formulario, estanciar a un objeto  de tipo formulario  Dim F As New FrmBoleta  F.ShowDialog() 'Abre una ventana de tipo Modal  End Sub  Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles BtnCerrar.Click Application.Exit()  End Sub  End Class 

FrmBoleta 
Public Class FrmBoleta  Inherits System.Windows.Forms.Form  Private Sub FrmBoleta_Load(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles MyBase.Load  lblcodi.Text = cod  lblnom.Text = nom  lblparcial.Text = par.ToString("##.0")  lblfinal.Text = fin.ToString("##.0")  lblpracticas.Text = pra.ToString("##.0") lblpromedio.Text = prom.ToString("##.0")  End Sub  Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles BtnCerrar.Click  Close()  End Sub  End Class 

MODULO 
Module Modvariables  Public cod, nom As String  Public par, fin, pra, prom As Single  End Module

Prof..: Rolando Fiestas Chávez. 

Pág. 3 

APLICACIÓN 02: 

Public Class Form1 Private Sub MostrarTotales()  lblTotal1.Text = LstMañana.Items.Count  lblTotal2.Text = LstNoche.Items.Count  End Sub  Private Sub txtNombre_TextChanged(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles txtNombre.TextChanged  btnAgregar.Enabled = txtNombre.Text  ""  End Sub  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles MyBase.Load  cboturno.SelectedIndex = 0 End Sub  Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles btnAgregar.Click  If cboturno.SelectedIndex = 0 Then  LstMañana.Items.Add(txtNombre.Text)  Else  LstNoche.Items.Add(txtNombre.Text)  End If  MostrarTotales()  txtNombre.Clear()  cboturno.SelectedIndex = 0  txtNombre.Focus()  End Sub Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles btn1.Click  If LstMañana.Items.Count = 0 Then Exit Sub  LstNoche.Items.AddRange(LstMañana.Items)  LstMañana.Items.Clear()  MostrarTotales()  End Sub

Prof..: Rolando Fiestas Chávez. 

Pág. 4 

Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles btn2.Click  If LstMañana.SelectedIndex > ­1 Then  LstNoche.Items.Add(LstMañana.Text) ' Tambien se puede: LstMañana.Items.Remove(LstMañana.Text)  LstMañana.Items.RemoveAt(LstMañana.SelectedIndex)  MostrarTotales()  Else  MsgBox("Debe  selecionar un elemento..", MsgBoxStyle.Information,  "Aviso")  End If  End Sub  Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles btn3.Click  If LstNoche.SelectedIndex > ­1 Then ...