17 November 2012

Contoh Coding Select Case




Private Sub Command1_Click()
Select Case Text1.Text
Case "A"
pn = "Big Bang"
jl = "blue"
tk = 2012
Case "B"
pn = "Boyfriend"
jl = "You and I"
tk = 2011
Case "C"
pn = "Super Junior"
jl = "SPY"
tk = 2012
End Select
Label7.Caption = pn
Label8.Caption = jl
Label9.Caption = tk
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Label7.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
End Sub

Tidak ada komentar:

Posting Komentar