MS Initialiserung windreamdll

Modules.Windream/Helpers.vb

@@ -0,0 +1,36 @@
+Public Class Helpers
+    Inherits Constants
+    Friend Shared Function Convert_VectorType(vType As Object, value As String)
+        Select Case vType
+            Case INDEX_TYPE_HASH ' 36865
+                'Umwandeln in String
+                Return CStr(value)
+            Case INDEX_TYPE_VECTOR_STRING '4097
+                'Umwandeln in String
+                Return CStr(value)
+            Case INDEX_TYPE_VECTOR_INTEGER '4098
+                'Umwandeln in Integer
+                value = value.ToString.Replace(" ", "")
+                Return CInt(value)
+            Case INDEX_TYPE_VECTOR_FLOAT  '4099
+                Dim Str As String = value
+                Str = Str.ToString.Replace(" ", "")
+                'Umwandeln in Double
+                Return CDbl(Str.Replace(".", ","))
+            Case INDEX_TYPE_VECTOR_BOOLEAN '4100
+                'Umwandeln in Boolean
+                Return CBool(value)
+            Case INDEX_TYPE_VECTOR_DATE '4101
+                'Umwandeln in Date
+                Return CDate(value)
+            Case INDEX_TYPE_VECTOR_INTEGER_64BIT '4107
+                Return Convert.ToInt64(value)
+            Case INDEX_TYPE_VECTOR_DATE_TIME '4103
+                'Umwandeln in Datum Uhrzeit
+                Return value
+            Case Else
+                'Umwandeln in String
+                Return CStr(value)
+        End Select
+    End Function
+End Class