Ejercicios de programación .net (nivel inicial)
Se muestra el funcionamiento de los conceptos básicos para programar en .net
Se muestra el funcionamiento de los conceptos básicos para programar en .net
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Public Class Form2<br />
Private Sub ComboBox1_SelectedIn<strong>de</strong>xChanged(ByVal sen<strong>de</strong>r As System.Object,<br />
ByVal e As System.EventArgs) Handles ComboBox1.SelectedIn<strong>de</strong>xChanged<br />
If ComboBox1.SelectedItem = "Disponible" Then<br />
PictureBox1.Visible = True<br />
PictureBox2.Visible = False<br />
PictureBox3.Visible = False<br />
PictureBox4.Visible = False<br />
End If<br />
If ComboBox1.SelectedItem = "Ausente" Then<br />
PictureBox3.Visible = True<br />
PictureBox2.Visible = False<br />
PictureBox1.Visible = False<br />
PictureBox4.Visible = False<br />
End If<br />
If ComboBox1.SelectedItem = "Ocupado" Then<br />
PictureBox2.Visible = True<br />
PictureBox1.Visible = False<br />
PictureBox3.Visible = False<br />
PictureBox4.Visible = False<br />
End If<br />
If ComboBox1.SelectedItem = "Otros" Then<br />
PictureBox4.Visible = True<br />
PictureBox2.Visible = False<br />
PictureBox3.Visible = False<br />
PictureBox1.Visible = False<br />
End If<br />
End Sub<br />
Private Sub Button1_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />
System.EventArgs) Handles Button1.Click<br />
End<br />
End Sub<br />
Private Sub Button2_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As<br />
System.EventArgs) Handles Button2.Click<br />
Form3.Show()<br />
Me.Hi<strong>de</strong>()<br />
End Sub<br />
End Class<br />
Leonel Navarrete