Nevím jestli jsem Vás pochopil,ale opět jsem si připravil ukázku kódu.Snad to bude tak jak potřebujete.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("Obvod čtverce")
ComboBox1.Items.Add("Obsah čtverce")
ComboBox2.Items.Add("Hustota")
ComboBox2.Items.Add("Výpočet práce")
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
Form2.ShowDialog()
Case 1
Form2.ShowDialog()
End Select
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.SelectedIndex
Case 0
Form3.ShowDialog()
Case 1
Form4.ShowDialog()
End Select
End Sub
Jestli chcete něco jiného , tak se ozvěte.
|