How to convert these vb.net codes to?

P

pazaway16

New member
i need to convert this bcause some codes are not working in vb6...i need help.thanks


Public Class Form1

Private Sub cboLvl_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboLvl.TextChanged
If cboLvl.Text = "" Then
cboSection.Enabled = False

Else
cboSection.Enabled = True
btnShow.Visible = True
End If

If cboLvl.Text = "Manila" Then

cboSection.Items.Clear()

cboSection.Items.Add("STI")
cboSection.Items.Add("GCIC")
cboSection.Items.Add("STI2")
cboSection.Items.Add("GCIC2")
cboSection.Items.Add("STI3")

ElseIf cboLvl.Text = "Quezon" Then

cboSection.Items.Clear()

cboSection.Items.Add("UP")
cboSection.Items.Add("GMA")
cboSection.Items.Add("UP2")
cboSection.Items.Add("GMA2")
cboSection.Items.Add("UP3")

ElseIf cboLvl.Text = "Makati" Then

cboSection.Items.Clear()

cboSection.Items.Add("AMA")
cboSection.Items.Add("Don Bosco")
cboSection.Items.Add("AMA2")
cboSection.Items.Add("Don Bosco2")
cboSection.Items.Add("AMA3")


ElseIf cboLvl.Text = "Taguig" Then

cboSection.Items.Clear()

cboSection.Items.Add("1")
cboSection.Items.Add("2")
cboSection.Items.Add("3")
cboSection.Items.Add("4")
cboSection.Items.Add("5")


Else

cboSection.Items.Clear()

cboSection.Items.Add("A")
cboSection.Items.Add("B")
cboSection.Items.Add("C")
cboSection.Items.Add("D")
cboSection.Items.Add("E")


End If


End Sub


End Class
 
Back
Top