Tareitas
Private Sub Frmcarreras_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lstcarreras.Items.Add("Computación eInformática")
lstcarreras.Items.Add("Contabilidad Computarizada")
lstcarreras.Items.Add("Secretariado Ejecutivo")
lstcarreras.Items.Add("Farmacia ")lstcarreras.Items.Add("Laboratorio Clínico")
lstcarreras.Items.Add("Enfermeria")
lstcarreras.Items.Add("Mecánica Automotríz")
lstcarreras.Items.Add("Protesis dental")
lbltotal.Text = "Total DeCarreras : " & lstcarreras.Items.Count & " Carreras"
End Sub
Private Sub lstcarreras_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handleslstcarreras.SelectedIndexChanged
Dim indice As Integer = lstcarreras.SelectedIndex
Select Case indice
Case 0 : MessageBox.Show("Costo : s/. 210", "Carreras")
Case 1 :MessageBox.Show("Costo : s/. 185", "Carreras")
Case 2 : MessageBox.Show("Costo : s/. 190", "Carreras")
Case 3 : MessageBox.Show("Costo : s/. 170", "Carreras")
Case4 : MessageBox.Show("Costo : s/. 150", "Carreras")
Case 5 : MessageBox.Show("Costo : s/. 160", "Carreras")
Case 6 : MessageBox.Show("Costo : s/. 200", "Carreras")Case 7 : MessageBox.Show("Costo : s/. 220", "Carreras")
End Select
End Sub
End Class
Public Class Frmcursos
Private Sub Frmcursos_Load(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lbltotal.Text = "Total: " & Lstcursos.Items.Count
End Sub
End Class
Public Class Frmdias
Private SubFrmdias_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With lstdias.Items
.Add("Domingo")
.Add("Lunes")
.Add("Martes")...
Regístrate para leer el documento completo.