RenzoL
18 lines
486 B
VB.net
18 lines
486 B
VB.net
Imports System.Globalization
|
|
Imports EgtUILib
|
|
|
|
Public Module MsgConversion
|
|
|
|
Public Function MsgToString(sMsgOrNum As String) As String
|
|
Dim nMsg As Integer = 0
|
|
' se la conversione da stringa a numero avviene correttamente ritorno il messaggio associato a quel numero
|
|
If Integer.TryParse(sMsgOrNum, nMsg) Then
|
|
Return EgtMsg(nMsg)
|
|
' altrimenti ritorno la stringa letta
|
|
Else
|
|
Return sMsgOrNum
|
|
End If
|
|
End Function
|
|
|
|
End Module
|