AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Ms windream Constante Vektor auf 4100 angepasst

Browse Source
This commit is contained in:
Developer01 2025-01-21 14:46:35 +01:00
parent 34ffec6272
commit b572639805
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Windream/Helpers.vb
View File

@ -65,6 +65,9 @@ Public Class Helpers
Friend Shared Function ConvertIndexValue(Type As Integer, pValue As String) As Object Friend Shared Function ConvertIndexValue(Type As Integer, pValue As String) As Object
' Leerzeichen an Anfang und Ende entfernen ' Leerzeichen an Anfang und Ende entfernen
If Type > 4095 And Type < 4115 Then
Return ConvertVectorType(Type, pValue)
End If
pValue = pValue.Trim() pValue = pValue.Trim()
Select Case Type Select Case Type

4
Windream/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.9.5.0")> <Assembly: AssemblyVersion("1.9.5.1")>
<Assembly: AssemblyFileVersion("1.9.5.0")> <Assembly: AssemblyFileVersion("1.9.5.1")>

4
Windream/Windream.vb
View File

@ -89,7 +89,7 @@ Public Class Windream
Public Const WMObjectVariableValueTypeVariant = 10 Public Const WMObjectVariableValueTypeVariant = 10
Public Const WMObjectVariableValueTypeMask = &HFFF Public Const WMObjectVariableValueTypeMask = &HFFF
Public Const WMObjectVariableValueFlagMask = &HFFFFF000 Public Const WMObjectVariableValueFlagMask = &HFFFFF000
Public Const WMObjectVariableValueTypeVector = &H1000 Public Const WMObjectVariableValueTypeVector = 4115
Public Const WMObjectVariableValueTypeFulltext = &H2000 Public Const WMObjectVariableValueTypeFulltext = &H2000
Public Const WMObjectVariableValueTypeDefaultValue = &H4000 Public Const WMObjectVariableValueTypeDefaultValue = &H4000
@ -1268,7 +1268,7 @@ Public Class Windream
End Try End Try
End Function End Function
Public Function SetFileIndex(Path As String, IndexName As String, Values As List(Of String), ObjectType As String) As Boolean Public Function SetFileIndexLoS(Path As String, IndexName As String, Values As List(Of String), ObjectType As String) As Boolean
If TestSessionLoggedIn() = False Then If TestSessionLoggedIn() = False Then
Return False Return False
End If End If