jj Designer Update

app/DD_PM_WINDREAM/ModuleHelperMethods.vb

@@ -0,0 +1,50 @@
+Module ModuleHelperMethods
+    ''' <summary>
+    ''' Überprüft einen Wert auf verschiedene Arten von "Null"-Werten
+    ''' </summary>
+    ''' <param name="value">Der zu überprüfende Wert</param>
+    ''' <param name="defaultValue">Der Standard Wert</param>
+    ''' <returns>value oder wenn dieser "Null" ist, defaultValue</returns>
+    Public Function NotNull(Of T)(ByVal value As T, ByVal defaultValue As T) As T
+        If IsNothing(value) OrElse String.IsNullOrEmpty(value.ToString) OrElse IsDBNull(value) Then
+            Return defaultValue
+        Else
+            Return value
+        End If
+    End Function
+
+    ''' <summary>
+    ''' Versucht einen String in einen Boolean zu konvertieren
+    ''' </summary>
+    ''' <param name="str">Der zu konvertierende String</param>
+    ''' <returns>Den umgewandelten Wert oder Falsche</returns>
+    Public Function StrToBool(str As Object) As Boolean
+        Dim result As Boolean = False
+
+        str = TryCast(str, String)
+
+        Try
+            result = Convert.ToBoolean(str)
+        Catch ex As Exception
+            result = False
+        End Try
+
+        Return result
+    End Function
+
+    ''' <summary>
+    ''' Konvertiert eine Farbe in den entsprechenden Integer Wert
+    ''' </summary>
+    Public Function ColorToInt(color As Color) As Integer
+        Return ColorTranslator.ToWin32(color)
+    End Function
+
+    ''' <summary>
+    ''' Konvertiert eine Zahl in die entsprechende Farbe
+    ''' </summary>
+    Public Function IntToColor(int As Integer) As Color
+        Return ColorTranslator.FromWin32(int)
+    End Function
+End Module
+
+