Dim Fields() As String = msg.Split()
...
Try
If Fields(0) = "FOO" Then
Select Case Fields(1)
Case "1"
...
Case "2"
...
Case "3"
Dim some_object as A = other_object ' other_object is type B
Case "4"
...
Case "5"
...
Case "6"
...
Case "7"
...
Case Else
'TBD
End Select
End If
Catch e As Exception
Dim xyz As Integer= 0
End Try
由于某些奇怪的原因,我的Catch块没有在我的case块中捕获异常,特别是无效的强制转换异常。谁知道为什么?感谢