CASE NO SELECT CASE

CBTECH 17/09/2006 17:23:52
#172022
Quero saber como fazer o CASE executar outro CASE dentre de um selecte case
Ex.:

Sub.....
Select case index
Case 0
msgbox "Ok"
Case 1
Case 0
end select
end sub
CLEVERSON.F 17/09/2006 17:36:43
#172025
Private Sub teste()
Dim var1, var2 As String
var1 = "A"
var2 = "C"
Select Case var1
Case "A"
Select Case var2
Case "A"
Case "B"
Case "C"
MsgBox "case dentro de case"
End Select
Case "B"

Case Else

End Select
End Sub
CLEVERSON.F 17/09/2006 17:36:57
#172026
Private Sub teste()
Dim var1, var2 As String
var1 = "A"
var2 = "C"
Select Case var1
Case "A"
Select Case var2
Case "A"
Case "B"
Case "C"
MsgBox "case dentro de case"
End Select
Case "B"

Case Else

End Select
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar