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