EgtWpfLib :

- Agiunti pannelli, StatusBar e scena generici per uso comune.
- Miglioramenti vari.
This commit is contained in:
Emmanuele Sassi
2017-11-25 17:01:25 +00:00
parent 0b44f5a723
commit f325ea4bdf
29 changed files with 1723 additions and 35 deletions
+5 -5
View File
@@ -1,9 +1,9 @@
Imports System.Globalization
Imports EgtUILib
Module StringConversion
Public Module StringConversion
Friend Function DoubleToString(ByVal dVal As Double, ByVal nNumDec As Integer) As String
Public Function DoubleToString(ByVal dVal As Double, ByVal nNumDec As Integer) As String
Dim sFormat As String = "F" + Math.Abs(nNumDec).ToString()
Dim sVal As String = dVal.ToString(sFormat, CultureInfo.InvariantCulture)
If nNumDec > 0 Then
@@ -13,15 +13,15 @@ Module StringConversion
End If
End Function
Friend Function StringToDouble(ByVal sVal As String, ByRef dVal As Double) As Boolean
Public Function StringToDouble(ByVal sVal As String, ByRef dVal As Double) As Boolean
Return EgtLuaEvalNumExpr(sVal, dVal)
End Function
Friend Function LenToString(ByVal dVal As Double, ByVal nNumDec As Integer) As String
Public Function LenToString(ByVal dVal As Double, ByVal nNumDec As Integer) As String
Return DoubleToString(EgtToUiUnits(dVal), nNumDec)
End Function
Friend Function StringToLen(ByVal sVal As String, ByRef dVal As Double) As Boolean
Public Function StringToLen(ByVal sVal As String, ByRef dVal As Double) As Boolean
If EgtLuaEvalNumExpr(sVal, dVal) Then
dVal = EgtFromUiUnits(dVal)
Return True