Simple question

[JohnnyGr]

How do i do this in a better(?) way...


Private Function cGetValue(ByVal value As Integer) As String
Select Case value
Case 1 : Return "Baseline"
Case 14 : Return "Lossless"
Case Else : Return "Unknown"
End Select
End Function


is there something that is more "standard" or does that look OK?

Thanks
Johnny

 

[Herfried K. Wagner [MVP]]

How do i do this in a better(?) way...

Private Function cGetValue(ByVal value As Integer) As String
Select Case value
Case 1 : Return "Baseline"
Case 14 : Return "Lossless"
Case Else : Return "Unknown"
End Select
End Function

is there something that is more "standard" or does that look OK?

Looks okay, IMO. You could use an enumeration type instead of 'Integer',
depending on the case.

 

[JohnnyGr]

Ok... Thank you!

Best Regards
Johnny

Looks okay, IMO. You could use an enumeration type instead of
'Integer', depending on the case.