Remove Language
This commit is contained in:
Jonathan Jenne
parent
348d054e16
commit
e402cdaf5c
@ -1,9 +1,9 @@
|
|||||||
Imports System.IO
|
Imports System.IO
|
||||||
Imports System.ServiceModel
|
Imports System.ServiceModel
|
||||||
|
Imports DigitalData.Modules.Base
|
||||||
Imports DigitalData.Modules.EDMI.API.Constants
|
Imports DigitalData.Modules.EDMI.API.Constants
|
||||||
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
|
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
|
||||||
Imports DigitalData.Modules.EDMI.API.Rights
|
Imports DigitalData.Modules.EDMI.API.Rights
|
||||||
Imports DigitalData.Modules.Language.Utils
|
|
||||||
Imports DigitalData.Modules.Logging
|
Imports DigitalData.Modules.Logging
|
||||||
|
|
||||||
Public Class Client
|
Public Class Client
|
||||||
@ -550,10 +550,10 @@ Public Class Client
|
|||||||
.Id = oRow.Item("AttributeId"),
|
.Id = oRow.Item("AttributeId"),
|
||||||
.Title = oRow.Item("AttributeTitle"),
|
.Title = oRow.Item("AttributeTitle"),
|
||||||
.Type = oRow.Item("AttributeType"),
|
.Type = oRow.Item("AttributeType"),
|
||||||
.ValueBigInt = NotNull(oRow.Item("ValueBigInt"), Nothing),
|
.ValueBigInt = oRow.ItemEx(Of Object)("ValueBigInt", Nothing),
|
||||||
.ValueDate = NotNull(oRow.Item("ValueDate"), Nothing),
|
.ValueDate = oRow.ItemEx(Of Object)("ValueDate", Nothing),
|
||||||
.ValueDecimal = NotNull(oRow.Item("ValueDecimal"), Nothing),
|
.ValueDecimal = oRow.ItemEx(Of Object)("ValueDecimal", Nothing),
|
||||||
.ValueText = NotNull(oRow.Item("ValueText"), Nothing)
|
.ValueText = oRow.ItemEx(Of Object)("ValueText", Nothing)
|
||||||
}
|
}
|
||||||
|
|
||||||
oAttributes.Add(oAttribute)
|
oAttributes.Add(oAttribute)
|
||||||
@ -932,11 +932,11 @@ Public Class Client
|
|||||||
|
|
||||||
|
|
||||||
Private Function GetUserLanguage(pOverrideLanguage As String) As String
|
Private Function GetUserLanguage(pOverrideLanguage As String) As String
|
||||||
Return NotNull(pOverrideLanguage, Threading.Thread.CurrentThread.CurrentUICulture.Name)
|
Return ObjectEx.NotNull(pOverrideLanguage, Threading.Thread.CurrentThread.CurrentUICulture.Name)
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Function GetUserName(pOverrideName) As String
|
Private Function GetUserName(pOverrideName) As String
|
||||||
Return NotNull(pOverrideName, Environment.UserName)
|
Return ObjectEx.NotNull(pOverrideName, Environment.UserName)
|
||||||
End Function
|
End Function
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|||||||
@ -308,10 +308,6 @@
|
|||||||
<Project>{eaf0ea75-5fa7-485d-89c7-b2d843b03a96}</Project>
|
<Project>{eaf0ea75-5fa7-485d-89c7-b2d843b03a96}</Project>
|
||||||
<Name>Database</Name>
|
<Name>Database</Name>
|
||||||
</ProjectReference>
|
</ProjectReference>
|
||||||
<ProjectReference Include="..\Language\Language.vbproj">
|
|
||||||
<Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
|
|
||||||
<Name>Language</Name>
|
|
||||||
</ProjectReference>
|
|
||||||
<ProjectReference Include="..\Logging\Logging.vbproj">
|
<ProjectReference Include="..\Logging\Logging.vbproj">
|
||||||
<Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
|
<Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
|
||||||
<Name>Logging</Name>
|
<Name>Logging</Name>
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
Imports DigitalData.Modules.Database
|
Imports DigitalData.Modules.Database
|
||||||
Imports DigitalData.Modules.Logging
|
Imports DigitalData.Modules.Logging
|
||||||
Imports DigitalData.Modules.Language
|
Imports DigitalData.Modules.Base
|
||||||
|
|
||||||
Namespace SyncUsers
|
Namespace SyncUsers
|
||||||
Public Class SyncUsersMSSQL
|
Public Class SyncUsersMSSQL
|
||||||
|
|||||||
@ -155,14 +155,14 @@
|
|||||||
</AdditionalFiles>
|
</AdditionalFiles>
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
|
<ProjectReference Include="..\Base\Base.vbproj">
|
||||||
|
<Project>{6ea0c51f-c2b1-4462-8198-3de0b32b74f8}</Project>
|
||||||
|
<Name>Base</Name>
|
||||||
|
</ProjectReference>
|
||||||
<ProjectReference Include="..\Database\Database.vbproj">
|
<ProjectReference Include="..\Database\Database.vbproj">
|
||||||
<Project>{eaf0ea75-5fa7-485d-89c7-b2d843b03a96}</Project>
|
<Project>{eaf0ea75-5fa7-485d-89c7-b2d843b03a96}</Project>
|
||||||
<Name>Database</Name>
|
<Name>Database</Name>
|
||||||
</ProjectReference>
|
</ProjectReference>
|
||||||
<ProjectReference Include="..\Language\Language.vbproj">
|
|
||||||
<Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
|
|
||||||
<Name>Language</Name>
|
|
||||||
</ProjectReference>
|
|
||||||
<ProjectReference Include="..\Logging\Logging.vbproj">
|
<ProjectReference Include="..\Logging\Logging.vbproj">
|
||||||
<Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
|
<Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
|
||||||
<Name>Logging</Name>
|
<Name>Logging</Name>
|
||||||
|
|||||||
@ -4,7 +4,7 @@ Imports System.Collections.Generic
|
|||||||
Imports System.Data
|
Imports System.Data
|
||||||
Imports System.IO
|
Imports System.IO
|
||||||
Imports System.Linq
|
Imports System.Linq
|
||||||
Imports System.Net.NetworkInformation
|
Imports DigitalData.Modules.Base
|
||||||
Imports DigitalData.Modules.Config
|
Imports DigitalData.Modules.Config
|
||||||
Imports DigitalData.Modules.Database
|
Imports DigitalData.Modules.Database
|
||||||
Imports DigitalData.Modules.Interfaces
|
Imports DigitalData.Modules.Interfaces
|
||||||
|
|||||||
@ -1,43 +0,0 @@
|
|||||||
Imports System.Runtime.CompilerServices
|
|
||||||
|
|
||||||
Public Module DataTableEx
|
|
||||||
<Extension()>
|
|
||||||
Public Function ItemEx(Of T)(pRow As DataRow, pFieldName As String, Optional pDefaultValue As T = Nothing) As T
|
|
||||||
Try
|
|
||||||
Return Utils.NotNull(pRow.Item(pFieldName), pDefaultValue)
|
|
||||||
Catch ex As Exception
|
|
||||||
Return Nothing
|
|
||||||
End Try
|
|
||||||
End Function
|
|
||||||
|
|
||||||
<Extension()>
|
|
||||||
Public Function ItemEx(Of T)(pRow As DataRow, pFieldIndex As Integer, Optional pDefaultValue As T = Nothing) As T
|
|
||||||
Try
|
|
||||||
Return Utils.NotNull(pRow.Item(pFieldIndex), pDefaultValue)
|
|
||||||
Catch ex As Exception
|
|
||||||
Return Nothing
|
|
||||||
End Try
|
|
||||||
End Function
|
|
||||||
|
|
||||||
<Extension()>
|
|
||||||
Public Function FieldOrDefault(Of T)(pRow As DataRow, pFieldName As String, Optional pDefaultValue As T = Nothing) As T
|
|
||||||
Return ItemEx(pRow, pFieldName, pDefaultValue)
|
|
||||||
End Function
|
|
||||||
|
|
||||||
<Extension()>
|
|
||||||
Public Function FieldOrDefault(Of T)(pRow As DataRow, pFieldIndex As Integer, Optional pDefaultValue As T = Nothing) As T
|
|
||||||
Return ItemEx(pRow, pFieldIndex, pDefaultValue)
|
|
||||||
End Function
|
|
||||||
|
|
||||||
<Extension()>
|
|
||||||
Public Function First(pTable As DataTable) As DataRow
|
|
||||||
Try
|
|
||||||
If pTable Is Nothing OrElse pTable.Rows.Count = 0 Then
|
|
||||||
Return Nothing
|
|
||||||
End If
|
|
||||||
Return pTable.Rows.Item(0)
|
|
||||||
Catch ex As Exception
|
|
||||||
Return Nothing
|
|
||||||
End Try
|
|
||||||
End Function
|
|
||||||
End Module
|
|
||||||
@ -1,12 +0,0 @@
|
|||||||
Imports System.Runtime.CompilerServices
|
|
||||||
|
|
||||||
Public Module DateTimeEx
|
|
||||||
Const UnixEraStartTicks As Long = 621355968000000000
|
|
||||||
<Extension> Public Function UnixTimestamp(value As Date) As Long
|
|
||||||
Dim UnixEraTicks = value.Ticks - UnixEraStartTicks
|
|
||||||
Return UnixEraTicks \ 10000
|
|
||||||
End Function
|
|
||||||
Public Function DateFromUnix(timestamp As Long) As Date
|
|
||||||
Return New Date(UnixEraStartTicks + timestamp * 10000)
|
|
||||||
End Function
|
|
||||||
End Module
|
|
||||||
File diff suppressed because one or more lines are too long
@ -1,128 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
|
||||||
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
|
||||||
<PropertyGroup>
|
|
||||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
|
||||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
|
||||||
<ProjectGuid>{D3C8CFED-D6F6-43A8-9BDF-454145D0352F}</ProjectGuid>
|
|
||||||
<OutputType>Library</OutputType>
|
|
||||||
<RootNamespace>DigitalData.Modules.Language</RootNamespace>
|
|
||||||
<AssemblyName>DigitalData.Modules.Language</AssemblyName>
|
|
||||||
<FileAlignment>512</FileAlignment>
|
|
||||||
<MyType>Windows</MyType>
|
|
||||||
<TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
|
|
||||||
<TargetFrameworkProfile />
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
|
||||||
<DebugSymbols>true</DebugSymbols>
|
|
||||||
<DebugType>full</DebugType>
|
|
||||||
<DefineDebug>true</DefineDebug>
|
|
||||||
<DefineTrace>true</DefineTrace>
|
|
||||||
<OutputPath>bin\Debug\</OutputPath>
|
|
||||||
<DocumentationFile>DigitalData.Modules.Language.xml</DocumentationFile>
|
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
|
||||||
<DebugType>pdbonly</DebugType>
|
|
||||||
<DefineDebug>false</DefineDebug>
|
|
||||||
<DefineTrace>true</DefineTrace>
|
|
||||||
<Optimize>true</Optimize>
|
|
||||||
<OutputPath>bin\Release\</OutputPath>
|
|
||||||
<DocumentationFile>DigitalData.Modules.Language.xml</DocumentationFile>
|
|
||||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionExplicit>On</OptionExplicit>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionCompare>Binary</OptionCompare>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionStrict>Off</OptionStrict>
|
|
||||||
</PropertyGroup>
|
|
||||||
<PropertyGroup>
|
|
||||||
<OptionInfer>On</OptionInfer>
|
|
||||||
</PropertyGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Reference Include="Microsoft.CSharp" />
|
|
||||||
<Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
|
|
||||||
<HintPath>..\packages\NLog.5.0.5\lib\net46\NLog.dll</HintPath>
|
|
||||||
</Reference>
|
|
||||||
<Reference Include="System" />
|
|
||||||
<Reference Include="System.Configuration" />
|
|
||||||
<Reference Include="System.Data" />
|
|
||||||
<Reference Include="System.Drawing" />
|
|
||||||
<Reference Include="System.IO.Compression" />
|
|
||||||
<Reference Include="System.Runtime.Serialization" />
|
|
||||||
<Reference Include="System.ServiceModel" />
|
|
||||||
<Reference Include="System.Transactions" />
|
|
||||||
<Reference Include="System.Windows.Forms" />
|
|
||||||
<Reference Include="System.Xml" />
|
|
||||||
<Reference Include="System.Core" />
|
|
||||||
<Reference Include="System.Xml.Linq" />
|
|
||||||
<Reference Include="System.Data.DataSetExtensions" />
|
|
||||||
<Reference Include="System.Net.Http" />
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Import Include="Microsoft.VisualBasic" />
|
|
||||||
<Import Include="System" />
|
|
||||||
<Import Include="System.Collections" />
|
|
||||||
<Import Include="System.Collections.Generic" />
|
|
||||||
<Import Include="System.Data" />
|
|
||||||
<Import Include="System.Diagnostics" />
|
|
||||||
<Import Include="System.Linq" />
|
|
||||||
<Import Include="System.Xml.Linq" />
|
|
||||||
<Import Include="System.Threading.Tasks" />
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<Compile Include="DataTableEx.vb" />
|
|
||||||
<Compile Include="DateTimeEx.vb" />
|
|
||||||
<Compile Include="InvalidChars.vb" />
|
|
||||||
<Compile Include="StringEx.vb" />
|
|
||||||
<Compile Include="Utils.vb" />
|
|
||||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
|
||||||
<Compile Include="My Project\Application.Designer.vb">
|
|
||||||
<AutoGen>True</AutoGen>
|
|
||||||
<DependentUpon>Application.myapp</DependentUpon>
|
|
||||||
<DesignTime>True</DesignTime>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="My Project\Resources.Designer.vb">
|
|
||||||
<AutoGen>True</AutoGen>
|
|
||||||
<DesignTime>True</DesignTime>
|
|
||||||
<DependentUpon>Resources.resx</DependentUpon>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="My Project\Settings.Designer.vb">
|
|
||||||
<AutoGen>True</AutoGen>
|
|
||||||
<DependentUpon>Settings.settings</DependentUpon>
|
|
||||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="Watch.vb" />
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<EmbeddedResource Include="My Project\Resources.resx">
|
|
||||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
|
||||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
|
||||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
|
||||||
<SubType>Designer</SubType>
|
|
||||||
</EmbeddedResource>
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<None Include="My Project\Application.myapp">
|
|
||||||
<Generator>MyApplicationCodeGenerator</Generator>
|
|
||||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
|
||||||
</None>
|
|
||||||
<None Include="My Project\Settings.settings">
|
|
||||||
<Generator>SettingsSingleFileGenerator</Generator>
|
|
||||||
<CustomToolNamespace>My</CustomToolNamespace>
|
|
||||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
|
||||||
</None>
|
|
||||||
<None Include="packages.config" />
|
|
||||||
</ItemGroup>
|
|
||||||
<ItemGroup>
|
|
||||||
<ProjectReference Include="..\Logging\Logging.vbproj">
|
|
||||||
<Project>{903B2D7D-3B80-4BE9-8713-7447B704E1B0}</Project>
|
|
||||||
<Name>Logging</Name>
|
|
||||||
</ProjectReference>
|
|
||||||
</ItemGroup>
|
|
||||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
|
||||||
</Project>
|
|
||||||
13
Language/My Project/Application.Designer.vb
generated
13
Language/My Project/Application.Designer.vb
generated
@ -1,13 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <auto-generated>
|
|
||||||
' Dieser Code wurde von einem Tool generiert.
|
|
||||||
' Laufzeitversion:4.0.30319.42000
|
|
||||||
'
|
|
||||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
|
||||||
' der Code erneut generiert wird.
|
|
||||||
' </auto-generated>
|
|
||||||
'------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
Option Strict On
|
|
||||||
Option Explicit On
|
|
||||||
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
|
||||||
<MySubMain>false</MySubMain>
|
|
||||||
<SingleInstance>false</SingleInstance>
|
|
||||||
<ShutdownMode>0</ShutdownMode>
|
|
||||||
<EnableVisualStyles>true</EnableVisualStyles>
|
|
||||||
<AuthenticationMode>0</AuthenticationMode>
|
|
||||||
<ApplicationType>1</ApplicationType>
|
|
||||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
|
||||||
</MyApplicationData>
|
|
||||||
@ -1,35 +0,0 @@
|
|||||||
Imports System
|
|
||||||
Imports System.Reflection
|
|
||||||
Imports System.Runtime.InteropServices
|
|
||||||
|
|
||||||
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
|
||||||
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
|
||||||
' die einer Assembly zugeordnet sind.
|
|
||||||
|
|
||||||
' Werte der Assemblyattribute überprüfen
|
|
||||||
|
|
||||||
<Assembly: AssemblyTitle("Language")>
|
|
||||||
<Assembly: AssemblyDescription("")>
|
|
||||||
<Assembly: AssemblyCompany("")>
|
|
||||||
<Assembly: AssemblyProduct("Language")>
|
|
||||||
<Assembly: AssemblyCopyright("Copyright © 2023")>
|
|
||||||
<Assembly: AssemblyTrademark("1.7.1.0")>
|
|
||||||
|
|
||||||
<Assembly: ComVisible(False)>
|
|
||||||
|
|
||||||
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
|
|
||||||
<Assembly: Guid("d1eb6e0e-d2e1-4de1-a5ea-6a5a7406969b")>
|
|
||||||
|
|
||||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
|
||||||
'
|
|
||||||
' Hauptversion
|
|
||||||
' Nebenversion
|
|
||||||
' Buildnummer
|
|
||||||
' Revision
|
|
||||||
'
|
|
||||||
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
|
|
||||||
' übernehmen, indem Sie "*" eingeben:
|
|
||||||
' <Assembly: AssemblyVersion("1.0.*")>
|
|
||||||
|
|
||||||
<Assembly: AssemblyVersion("1.7.1.0")>
|
|
||||||
<Assembly: AssemblyFileVersion("1.7.1.0")>
|
|
||||||
63
Language/My Project/Resources.Designer.vb
generated
63
Language/My Project/Resources.Designer.vb
generated
@ -1,63 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <auto-generated>
|
|
||||||
' Dieser Code wurde von einem Tool generiert.
|
|
||||||
' Laufzeitversion:4.0.30319.42000
|
|
||||||
'
|
|
||||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
|
||||||
' der Code erneut generiert wird.
|
|
||||||
' </auto-generated>
|
|
||||||
'------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
Option Strict On
|
|
||||||
Option Explicit On
|
|
||||||
|
|
||||||
Imports System
|
|
||||||
|
|
||||||
Namespace My.Resources
|
|
||||||
|
|
||||||
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
|
||||||
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
|
||||||
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
|
||||||
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
|
||||||
'''<summary>
|
|
||||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
|
||||||
'''</summary>
|
|
||||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
|
|
||||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
||||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
|
||||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
|
||||||
Friend Module Resources
|
|
||||||
|
|
||||||
Private resourceMan As Global.System.Resources.ResourceManager
|
|
||||||
|
|
||||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
|
||||||
|
|
||||||
'''<summary>
|
|
||||||
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
|
||||||
'''</summary>
|
|
||||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
||||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
|
||||||
Get
|
|
||||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
|
||||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.Modules.Language.Resources", GetType(Resources).Assembly)
|
|
||||||
resourceMan = temp
|
|
||||||
End If
|
|
||||||
Return resourceMan
|
|
||||||
End Get
|
|
||||||
End Property
|
|
||||||
|
|
||||||
'''<summary>
|
|
||||||
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
|
||||||
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
|
||||||
'''</summary>
|
|
||||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
||||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
|
||||||
Get
|
|
||||||
Return resourceCulture
|
|
||||||
End Get
|
|
||||||
Set
|
|
||||||
resourceCulture = value
|
|
||||||
End Set
|
|
||||||
End Property
|
|
||||||
End Module
|
|
||||||
End Namespace
|
|
||||||
@ -1,117 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<root>
|
|
||||||
<!--
|
|
||||||
Microsoft ResX Schema
|
|
||||||
|
|
||||||
Version 2.0
|
|
||||||
|
|
||||||
The primary goals of this format is to allow a simple XML format
|
|
||||||
that is mostly human readable. The generation and parsing of the
|
|
||||||
various data types are done through the TypeConverter classes
|
|
||||||
associated with the data types.
|
|
||||||
|
|
||||||
Example:
|
|
||||||
|
|
||||||
... ado.net/XML headers & schema ...
|
|
||||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
|
||||||
<resheader name="version">2.0</resheader>
|
|
||||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
|
||||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
|
||||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
|
||||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
|
||||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
|
||||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
|
||||||
</data>
|
|
||||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
|
||||||
<comment>This is a comment</comment>
|
|
||||||
</data>
|
|
||||||
|
|
||||||
There are any number of "resheader" rows that contain simple
|
|
||||||
name/value pairs.
|
|
||||||
|
|
||||||
Each data row contains a name, and value. The row also contains a
|
|
||||||
type or mimetype. Type corresponds to a .NET class that support
|
|
||||||
text/value conversion through the TypeConverter architecture.
|
|
||||||
Classes that don't support this are serialized and stored with the
|
|
||||||
mimetype set.
|
|
||||||
|
|
||||||
The mimetype is used for serialized objects, and tells the
|
|
||||||
ResXResourceReader how to depersist the object. This is currently not
|
|
||||||
extensible. For a given mimetype the value must be set accordingly:
|
|
||||||
|
|
||||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
|
||||||
that the ResXResourceWriter will generate, however the reader can
|
|
||||||
read any of the formats listed below.
|
|
||||||
|
|
||||||
mimetype: application/x-microsoft.net.object.binary.base64
|
|
||||||
value : The object must be serialized with
|
|
||||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
|
||||||
: and then encoded with base64 encoding.
|
|
||||||
|
|
||||||
mimetype: application/x-microsoft.net.object.soap.base64
|
|
||||||
value : The object must be serialized with
|
|
||||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
|
||||||
: and then encoded with base64 encoding.
|
|
||||||
|
|
||||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
|
||||||
value : The object must be serialized into a byte array
|
|
||||||
: using a System.ComponentModel.TypeConverter
|
|
||||||
: and then encoded with base64 encoding.
|
|
||||||
-->
|
|
||||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
|
||||||
<xsd:element name="root" msdata:IsDataSet="true">
|
|
||||||
<xsd:complexType>
|
|
||||||
<xsd:choice maxOccurs="unbounded">
|
|
||||||
<xsd:element name="metadata">
|
|
||||||
<xsd:complexType>
|
|
||||||
<xsd:sequence>
|
|
||||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
|
||||||
</xsd:sequence>
|
|
||||||
<xsd:attribute name="name" type="xsd:string" />
|
|
||||||
<xsd:attribute name="type" type="xsd:string" />
|
|
||||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
|
||||||
</xsd:complexType>
|
|
||||||
</xsd:element>
|
|
||||||
<xsd:element name="assembly">
|
|
||||||
<xsd:complexType>
|
|
||||||
<xsd:attribute name="alias" type="xsd:string" />
|
|
||||||
<xsd:attribute name="name" type="xsd:string" />
|
|
||||||
</xsd:complexType>
|
|
||||||
</xsd:element>
|
|
||||||
<xsd:element name="data">
|
|
||||||
<xsd:complexType>
|
|
||||||
<xsd:sequence>
|
|
||||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
|
||||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
|
||||||
</xsd:sequence>
|
|
||||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
|
||||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
|
||||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
|
||||||
</xsd:complexType>
|
|
||||||
</xsd:element>
|
|
||||||
<xsd:element name="resheader">
|
|
||||||
<xsd:complexType>
|
|
||||||
<xsd:sequence>
|
|
||||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
|
||||||
</xsd:sequence>
|
|
||||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
|
||||||
</xsd:complexType>
|
|
||||||
</xsd:element>
|
|
||||||
</xsd:choice>
|
|
||||||
</xsd:complexType>
|
|
||||||
</xsd:element>
|
|
||||||
</xsd:schema>
|
|
||||||
<resheader name="resmimetype">
|
|
||||||
<value>text/microsoft-resx</value>
|
|
||||||
</resheader>
|
|
||||||
<resheader name="version">
|
|
||||||
<value>2.0</value>
|
|
||||||
</resheader>
|
|
||||||
<resheader name="reader">
|
|
||||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
|
||||||
</resheader>
|
|
||||||
<resheader name="writer">
|
|
||||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
|
||||||
</resheader>
|
|
||||||
</root>
|
|
||||||
73
Language/My Project/Settings.Designer.vb
generated
73
Language/My Project/Settings.Designer.vb
generated
@ -1,73 +0,0 @@
|
|||||||
'------------------------------------------------------------------------------
|
|
||||||
' <auto-generated>
|
|
||||||
' Dieser Code wurde von einem Tool generiert.
|
|
||||||
' Laufzeitversion:4.0.30319.42000
|
|
||||||
'
|
|
||||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
|
||||||
' der Code erneut generiert wird.
|
|
||||||
' </auto-generated>
|
|
||||||
'------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
Option Strict On
|
|
||||||
Option Explicit On
|
|
||||||
|
|
||||||
|
|
||||||
Namespace My
|
|
||||||
|
|
||||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
|
||||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.4.0.0"), _
|
|
||||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
||||||
Partial Friend NotInheritable Class MySettings
|
|
||||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
|
||||||
|
|
||||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
|
||||||
|
|
||||||
#Region "Automatische My.Settings-Speicherfunktion"
|
|
||||||
#If _MyType = "WindowsForms" Then
|
|
||||||
Private Shared addedHandler As Boolean
|
|
||||||
|
|
||||||
Private Shared addedHandlerLockObject As New Object
|
|
||||||
|
|
||||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
||||||
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
|
|
||||||
If My.Application.SaveMySettingsOnExit Then
|
|
||||||
My.Settings.Save()
|
|
||||||
End If
|
|
||||||
End Sub
|
|
||||||
#End If
|
|
||||||
#End Region
|
|
||||||
|
|
||||||
Public Shared ReadOnly Property [Default]() As MySettings
|
|
||||||
Get
|
|
||||||
|
|
||||||
#If _MyType = "WindowsForms" Then
|
|
||||||
If Not addedHandler Then
|
|
||||||
SyncLock addedHandlerLockObject
|
|
||||||
If Not addedHandler Then
|
|
||||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
|
||||||
addedHandler = True
|
|
||||||
End If
|
|
||||||
End SyncLock
|
|
||||||
End If
|
|
||||||
#End If
|
|
||||||
Return defaultInstance
|
|
||||||
End Get
|
|
||||||
End Property
|
|
||||||
End Class
|
|
||||||
End Namespace
|
|
||||||
|
|
||||||
Namespace My
|
|
||||||
|
|
||||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
|
||||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
||||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
|
||||||
Friend Module MySettingsProperty
|
|
||||||
|
|
||||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
|
||||||
Friend ReadOnly Property Settings() As Global.DigitalData.Modules.Language.My.MySettings
|
|
||||||
Get
|
|
||||||
Return Global.DigitalData.Modules.Language.My.MySettings.Default
|
|
||||||
End Get
|
|
||||||
End Property
|
|
||||||
End Module
|
|
||||||
End Namespace
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
<?xml version='1.0' encoding='utf-8'?>
|
|
||||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
|
||||||
<Profiles>
|
|
||||||
<Profile Name="(Default)" />
|
|
||||||
</Profiles>
|
|
||||||
<Settings />
|
|
||||||
</SettingsFile>
|
|
||||||
@ -1,25 +0,0 @@
|
|||||||
Imports System.Runtime.CompilerServices
|
|
||||||
|
|
||||||
Public Module StringEx
|
|
||||||
''' <summary>
|
|
||||||
''' Truncates a string to the specified length if it exceeds that length.
|
|
||||||
''' </summary>
|
|
||||||
''' <param name="pString">The string</param>
|
|
||||||
''' <param name="pLength">The maximum string length</param>
|
|
||||||
''' <returns>The truncated string</returns>
|
|
||||||
<Extension()>
|
|
||||||
Public Function Truncate(pString As String, pLength As Integer) As String
|
|
||||||
If String.IsNullOrEmpty(pString) Then Return pString
|
|
||||||
Return pString.Substring(0, Math.Min(pLength, pString.Length))
|
|
||||||
End Function
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' Replaces single quotes in text for SQL Commands.
|
|
||||||
''' </summary>
|
|
||||||
''' <param name="pString">The string</param>
|
|
||||||
''' <returns>The escaped string.</returns>
|
|
||||||
<Extension()>
|
|
||||||
Public Function EscapeForSQL(pString As String) As String
|
|
||||||
Return Utils.NotNull(pString, String.Empty).Replace("'", "''")
|
|
||||||
End Function
|
|
||||||
End Module
|
|
||||||
@ -1,219 +0,0 @@
|
|||||||
Imports System.Drawing
|
|
||||||
Imports System.Runtime.CompilerServices
|
|
||||||
Imports System.Text
|
|
||||||
Imports System.Text.RegularExpressions
|
|
||||||
Imports System.Windows.Forms
|
|
||||||
''' <summary>
|
|
||||||
''' Provides common utility functions that do not require a specific context.
|
|
||||||
''' </summary>
|
|
||||||
Public Class Utils
|
|
||||||
''' <summary>
|
|
||||||
''' Generates a random short (8 characters) guid
|
|
||||||
''' </summary>
|
|
||||||
''' <returns>The generated guid as a String</returns>
|
|
||||||
Public Shared Function ShortGUID() As String
|
|
||||||
Return Guid.NewGuid().ToString().GetHashCode().ToString("x")
|
|
||||||
End Function
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' Converts a String value to the given Enum
|
|
||||||
''' </summary>
|
|
||||||
''' <typeparam name="T">The Enum Type</typeparam>
|
|
||||||
''' <param name="value">The string value to convert</param>
|
|
||||||
Public Shared Function ToEnum(Of T)(value As String) As T
|
|
||||||
Return [Enum].Parse(GetType(T), value)
|
|
||||||
End Function
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' Converts an Integer value to the given Enum
|
|
||||||
''' </summary>
|
|
||||||
''' <typeparam name="T">The Enum Type</typeparam>
|
|
||||||
''' <param name="value">The integer value to convert</param>
|
|
||||||
Public Shared Function ToEnum(Of T)(value As Integer) As T
|
|
||||||
Return [Enum].ToObject(GetType(T), value)
|
|
||||||
End Function
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' Converts a Long value to the given Enum
|
|
||||||
''' </summary>
|
|
||||||
''' <typeparam name="T">The Enum Type</typeparam>
|
|
||||||
''' <param name="value">The long value to convert</param>
|
|
||||||
Public Shared Function ToEnum(Of T)(value As Long) As T
|
|
||||||
Return [Enum].ToObject(GetType(T), value)
|
|
||||||
End Function
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' Converts a string to boolean. Accepts true and 1 as truthy values
|
|
||||||
''' </summary>
|
|
||||||
''' <param name="input">The input string</param>
|
|
||||||
''' <returns>True if input is true or 1, otherwise false.</returns>
|
|
||||||
Public Shared Function ToBoolean(input As String) As Boolean
|
|
||||||
If String.IsNullOrEmpty(input) Then Return False
|
|
||||||
Return (input.Trim().ToLower() = "true") OrElse (input.Trim() = "1")
|
|
||||||
End Function
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' Checks a value for three different `null` values,
|
|
||||||
''' Nothing, Empty String, DBNull
|
|
||||||
'''
|
|
||||||
''' Returns the original value if the value is not null, or `defaultValue`
|
|
||||||
''' </summary>
|
|
||||||
''' <typeparam name="T">The type of the value</typeparam>
|
|
||||||
''' <param name="value">The value</param>
|
|
||||||
''' <param name="defaultValue">The default Value</param>
|
|
||||||
''' <returns>The original value or the default value</returns>
|
|
||||||
Public Shared 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>
|
|
||||||
''' Checks a Row value for three different `null` values,
|
|
||||||
''' Nothing, Empty String, DBNull
|
|
||||||
'''
|
|
||||||
''' Returns the original value if the value is not null, or `defaultValue`
|
|
||||||
''' </summary>
|
|
||||||
''' <typeparam name="T">The type of the value</typeparam>
|
|
||||||
''' <param name="Row">The DataRow that contains the value</param>
|
|
||||||
''' <param name="Column">The column name</param>
|
|
||||||
''' <param name="DefaultValue">The default value</param>
|
|
||||||
''' <returns>The original value or the default value</returns>
|
|
||||||
Public Shared Function NotNull(Of T)(ByVal Row As DataRow, Column As String, DefaultValue As T) As T
|
|
||||||
Return NotNull(Row.Item(Column), DefaultValue)
|
|
||||||
End Function
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' Creates a "slug" from text that can be used as part of a valid URL.
|
|
||||||
''' Invalid characters are converted to hyphens. Punctuation that Is
|
|
||||||
''' perfect valid in a URL Is also converted to hyphens to keep the
|
|
||||||
''' result mostly text. Steps are taken to prevent leading, trailing,
|
|
||||||
''' And consecutive hyphens.
|
|
||||||
''' </summary>
|
|
||||||
''' <param name="s">The string to convert</param>
|
|
||||||
Public Shared Function ConvertTextToSlug(ByVal s As String) As String
|
|
||||||
Dim oBuilder As StringBuilder = New StringBuilder()
|
|
||||||
Dim oWasHyphen As Boolean = True
|
|
||||||
|
|
||||||
For Each oChar As Char In s
|
|
||||||
|
|
||||||
If Char.IsLetterOrDigit(oChar) Then
|
|
||||||
oBuilder.Append(Char.ToLower(oChar))
|
|
||||||
oWasHyphen = False
|
|
||||||
ElseIf Char.IsWhiteSpace(oChar) AndAlso Not oWasHyphen Then
|
|
||||||
oBuilder.Append("-"c)
|
|
||||||
oWasHyphen = True
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
|
|
||||||
If oWasHyphen AndAlso oBuilder.Length > 0 Then oBuilder.Length -= 1
|
|
||||||
Return oBuilder.ToString()
|
|
||||||
End Function
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' Removes Invalid characters from a string, suitable for file and path names
|
|
||||||
'''
|
|
||||||
''' Removed characters are:
|
|
||||||
'''
|
|
||||||
''' * Illegal File-characters
|
|
||||||
''' * Illegal Path-characters
|
|
||||||
''' * Unicode characters that classify as Emoji
|
|
||||||
''' * All characters above codepoint U+10000
|
|
||||||
'''
|
|
||||||
''' See:
|
|
||||||
''' https://stackoverflow.com/questions/46905176/detecting-all-emojis
|
|
||||||
''' https://stackoverflow.com/questions/28023682/how-do-i-remove-emoji-characters-from-a-string
|
|
||||||
''' </summary>
|
|
||||||
''' <returns></returns>
|
|
||||||
Public Shared Function RemoveInvalidCharacters(pString As String) As String
|
|
||||||
Dim oResult = pString
|
|
||||||
|
|
||||||
Try
|
|
||||||
' Remove all Unicode above Codepoint U+10000
|
|
||||||
oResult = Regex.Replace(oResult, InvalidChars.UnicodeSurrogates, String.Empty)
|
|
||||||
|
|
||||||
' Remove all Emojis (Version 13)
|
|
||||||
oResult = Regex.Replace(oResult, InvalidChars.Emojis, String.Empty)
|
|
||||||
|
|
||||||
' Remove Invalid filename characters
|
|
||||||
oResult = Regex.Replace(oResult, InvalidChars.Filenames, String.Empty)
|
|
||||||
|
|
||||||
' Remove Invalid filename characters
|
|
||||||
oResult = Regex.Replace(oResult, InvalidChars.Paths, String.Empty)
|
|
||||||
|
|
||||||
' Remove Uneccessary characters
|
|
||||||
oResult = Regex.Replace(oResult, "\s{2,}", " ")
|
|
||||||
oResult = Regex.Replace(oResult, "\.{2,}", ".")
|
|
||||||
|
|
||||||
' Remove excess space chars
|
|
||||||
oResult = oResult.Trim()
|
|
||||||
|
|
||||||
Return oResult
|
|
||||||
Catch ex As Exception
|
|
||||||
Return oResult
|
|
||||||
End Try
|
|
||||||
End Function
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' Checks if string contains invalid characters
|
|
||||||
''' </summary>
|
|
||||||
''' <param name="pString"></param>
|
|
||||||
''' <returns></returns>
|
|
||||||
Public Shared Function TestContainsInvalidCharacters(pString As String) As Boolean
|
|
||||||
Return Not pString.Equals(RemoveInvalidCharacters(pString))
|
|
||||||
End Function
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' Checks if a point is Visible on any screen
|
|
||||||
''' </summary>
|
|
||||||
Public Shared Function IsVisibleOnAnyScreen(Location As Point) As Boolean
|
|
||||||
Try
|
|
||||||
Dim oRect As New Rectangle(Location, New Size(0, 0))
|
|
||||||
|
|
||||||
For Each oScreen In Screen.AllScreens
|
|
||||||
If oScreen.WorkingArea.IntersectsWith(oRect) Then
|
|
||||||
Return True
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
|
|
||||||
Return False
|
|
||||||
Catch ex As Exception
|
|
||||||
Return False
|
|
||||||
End Try
|
|
||||||
End Function
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' Checks if Size is not negative
|
|
||||||
''' </summary>
|
|
||||||
Public Shared Function SizeIsVisible(Size As Size) As Boolean
|
|
||||||
If Size.Width >= 0 And Size.Height >= 0 Then
|
|
||||||
Return True
|
|
||||||
End If
|
|
||||||
|
|
||||||
Return False
|
|
||||||
End Function
|
|
||||||
|
|
||||||
''' <summary>
|
|
||||||
''' Checks if Location is not negative
|
|
||||||
''' </summary>
|
|
||||||
Public Shared Function LocationIsVisible(Location As Point) As Boolean
|
|
||||||
If Location.X >= 0 And Location.Y >= 0 Then
|
|
||||||
Return True
|
|
||||||
End If
|
|
||||||
|
|
||||||
Return False
|
|
||||||
End Function
|
|
||||||
|
|
||||||
Public Shared Function BytesToString(ByteCount As Long) As String
|
|
||||||
Dim oSuffixes As New List(Of String) From {"B", "KB", "MB", "GB", "TB", "PB", "EB"}
|
|
||||||
If ByteCount = 0 Then
|
|
||||||
Return "0" & oSuffixes.First()
|
|
||||||
End If
|
|
||||||
Dim oBytes = Math.Abs(ByteCount)
|
|
||||||
Dim oIndex = Convert.ToInt32(Math.Floor(Math.Log(oBytes, 1024)))
|
|
||||||
Dim oNum = Math.Round(oBytes / Math.Pow(1024, oIndex), 1)
|
|
||||||
Return (Math.Sign(ByteCount) * oNum).ToString() & oSuffixes.Item(oIndex)
|
|
||||||
End Function
|
|
||||||
End Class
|
|
||||||
@ -1,23 +0,0 @@
|
|||||||
Public Class Watch
|
|
||||||
|
|
||||||
Private ReadOnly _StopWatch As Stopwatch
|
|
||||||
Private ReadOnly _Name As String
|
|
||||||
|
|
||||||
Public Sub New(pName As String)
|
|
||||||
_StopWatch = New Stopwatch()
|
|
||||||
_StopWatch.Start()
|
|
||||||
|
|
||||||
_Name = pName
|
|
||||||
Debug.WriteLine($"Starting [{pName}].")
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Public Sub Restart()
|
|
||||||
_StopWatch.Restart()
|
|
||||||
Debug.WriteLine($"Starting [{_Name}].")
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Public Sub [Stop]()
|
|
||||||
_StopWatch.Stop()
|
|
||||||
Debug.WriteLine($"Stopped [{_Name}] after {_StopWatch.Elapsed.TotalSeconds} seconds.")
|
|
||||||
End Sub
|
|
||||||
End Class
|
|
||||||
@ -1,4 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<packages>
|
|
||||||
<package id="NLog" version="5.0.5" targetFramework="net461" />
|
|
||||||
</packages>
|
|
||||||
@ -1,8 +1,4 @@
|
|||||||
Imports Independentsoft.Email
|
Imports System.Net.Mail
|
||||||
Imports Independentsoft.Email.Pop3
|
|
||||||
Imports Independentsoft.Email.Mime
|
|
||||||
Imports Independentsoft.Email.Imap
|
|
||||||
Imports System.Net.Mail
|
|
||||||
Imports System.Net
|
Imports System.Net
|
||||||
Imports System.Reflection
|
Imports System.Reflection
|
||||||
Imports System.IO
|
Imports System.IO
|
||||||
|
|||||||
@ -435,7 +435,7 @@ Public Class Email2
|
|||||||
|
|
||||||
Dim oTempPath As String = IO.Path.GetTempPath()
|
Dim oTempPath As String = IO.Path.GetTempPath()
|
||||||
Dim oFileNameWithoutExtension = Path.GetFileNameWithoutExtension(pMsgFile)
|
Dim oFileNameWithoutExtension = Path.GetFileNameWithoutExtension(pMsgFile)
|
||||||
Dim oFileNameWithoutInvalidChars = Language.Utils.RemoveInvalidCharacters(oFileNameWithoutExtension)
|
Dim oFileNameWithoutInvalidChars = StringEx.RemoveInvalidCharacters(oFileNameWithoutExtension)
|
||||||
Dim oEmlPath As String = IO.Path.Combine(oTempPath, $"{oFileNameWithoutInvalidChars}.eml")
|
Dim oEmlPath As String = IO.Path.Combine(oTempPath, $"{oFileNameWithoutInvalidChars}.eml")
|
||||||
Dim oVersionedPath As String = FileEx.GetVersionedFilename(oEmlPath)
|
Dim oVersionedPath As String = FileEx.GetVersionedFilename(oEmlPath)
|
||||||
|
|
||||||
|
|||||||
@ -140,10 +140,6 @@
|
|||||||
<Project>{6ea0c51f-c2b1-4462-8198-3de0b32b74f8}</Project>
|
<Project>{6ea0c51f-c2b1-4462-8198-3de0b32b74f8}</Project>
|
||||||
<Name>Base</Name>
|
<Name>Base</Name>
|
||||||
</ProjectReference>
|
</ProjectReference>
|
||||||
<ProjectReference Include="..\Language\Language.vbproj">
|
|
||||||
<Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
|
|
||||||
<Name>Language</Name>
|
|
||||||
</ProjectReference>
|
|
||||||
<ProjectReference Include="..\Logging\Logging.vbproj">
|
<ProjectReference Include="..\Logging\Logging.vbproj">
|
||||||
<Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
|
<Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
|
||||||
<Name>Logging</Name>
|
<Name>Logging</Name>
|
||||||
|
|||||||
@ -17,8 +17,6 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Interfaces", "Interfaces\In
|
|||||||
EndProject
|
EndProject
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Jobs", "Jobs\Jobs.vbproj", "{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}"
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Jobs", "Jobs\Jobs.vbproj", "{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}"
|
||||||
EndProject
|
EndProject
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Language", "Language\Language.vbproj", "{D3C8CFED-D6F6-43A8-9BDF-454145D0352F}"
|
|
||||||
EndProject
|
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "License", "License\License.vbproj", "{5EBACBFA-F11A-4BBF-8D02-91461F2293ED}"
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "License", "License\License.vbproj", "{5EBACBFA-F11A-4BBF-8D02-91461F2293ED}"
|
||||||
EndProject
|
EndProject
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Logging", "Logging\Logging.vbproj", "{903B2D7D-3B80-4BE9-8713-7447B704E1B0}"
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Logging", "Logging\Logging.vbproj", "{903B2D7D-3B80-4BE9-8713-7447B704E1B0}"
|
||||||
@ -37,7 +35,7 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Messaging", "Messaging\Mess
|
|||||||
EndProject
|
EndProject
|
||||||
Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "Database.Test", "Database.Test\Database.Test.vbproj", "{91B4DFC0-543C-43A7-A9E0-6817DCA277EC}"
|
Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "Database.Test", "Database.Test\Database.Test.vbproj", "{91B4DFC0-543C-43A7-A9E0-6817DCA277EC}"
|
||||||
EndProject
|
EndProject
|
||||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Base.Test", "Base.Test\Base.Test.vbproj", "{2485A8FE-2CE1-418A-B1A0-1332AECE54C4}"
|
Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "Base.Test", "Base.Test\Base.Test.vbproj", "{2485A8FE-2CE1-418A-B1A0-1332AECE54C4}"
|
||||||
EndProject
|
EndProject
|
||||||
Global
|
Global
|
||||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||||
@ -73,10 +71,6 @@ Global
|
|||||||
{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}.Release|Any CPU.Build.0 = Release|Any CPU
|
{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||||
{D3C8CFED-D6F6-43A8-9BDF-454145D0352F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
|
||||||
{D3C8CFED-D6F6-43A8-9BDF-454145D0352F}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
|
||||||
{D3C8CFED-D6F6-43A8-9BDF-454145D0352F}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
|
||||||
{D3C8CFED-D6F6-43A8-9BDF-454145D0352F}.Release|Any CPU.Build.0 = Release|Any CPU
|
|
||||||
{5EBACBFA-F11A-4BBF-8D02-91461F2293ED}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
{5EBACBFA-F11A-4BBF-8D02-91461F2293ED}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
{5EBACBFA-F11A-4BBF-8D02-91461F2293ED}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
{5EBACBFA-F11A-4BBF-8D02-91461F2293ED}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
{5EBACBFA-F11A-4BBF-8D02-91461F2293ED}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
{5EBACBFA-F11A-4BBF-8D02-91461F2293ED}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
|
|||||||
@ -226,7 +226,7 @@ Partial Public Class FileDrop
|
|||||||
|
|
||||||
oMailItem = oApp.ActiveExplorer.Selection.Item(oIndex)
|
oMailItem = oApp.ActiveExplorer.Selection.Item(oIndex)
|
||||||
|
|
||||||
Dim oSubject As String = ConvertTextToSlug(oMailItem.Subject)
|
Dim oSubject As String = StringEx.ConvertTextToSlug(oMailItem.Subject)
|
||||||
If oSubject = "" Then
|
If oSubject = "" Then
|
||||||
oSubject = "NO_SUBJECT"
|
oSubject = "NO_SUBJECT"
|
||||||
End If
|
End If
|
||||||
|
|||||||
@ -138,10 +138,6 @@
|
|||||||
<Project>{6ea0c51f-c2b1-4462-8198-3de0b32b74f8}</Project>
|
<Project>{6ea0c51f-c2b1-4462-8198-3de0b32b74f8}</Project>
|
||||||
<Name>Base</Name>
|
<Name>Base</Name>
|
||||||
</ProjectReference>
|
</ProjectReference>
|
||||||
<ProjectReference Include="..\Language\Language.vbproj">
|
|
||||||
<Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
|
|
||||||
<Name>Language</Name>
|
|
||||||
</ProjectReference>
|
|
||||||
<ProjectReference Include="..\Logging\Logging.vbproj">
|
<ProjectReference Include="..\Logging\Logging.vbproj">
|
||||||
<Project>{903B2D7D-3B80-4BE9-8713-7447B704E1B0}</Project>
|
<Project>{903B2D7D-3B80-4BE9-8713-7447B704E1B0}</Project>
|
||||||
<Name>Logging</Name>
|
<Name>Logging</Name>
|
||||||
|
|||||||
@ -2,6 +2,7 @@
|
|||||||
Imports DigitalData.Modules.Logging
|
Imports DigitalData.Modules.Logging
|
||||||
Imports DigitalData.Modules.Windream
|
Imports DigitalData.Modules.Windream
|
||||||
Imports DigitalData.Modules.Language
|
Imports DigitalData.Modules.Language
|
||||||
|
Imports DigitalData.Modules.Base
|
||||||
|
|
||||||
Public Class ConnectionBuilder
|
Public Class ConnectionBuilder
|
||||||
Implements IConnectionBuilder
|
Implements IConnectionBuilder
|
||||||
@ -64,9 +65,9 @@ Public Class ConnectionBuilder
|
|||||||
End Function
|
End Function
|
||||||
|
|
||||||
Public Function WithWindreamObjectsOrDriveLetter(BasePath As String, DriveLetter As String) As IConnectionBuilder Implements IConnectionBuilder.WithWindreamObjectsOrDriveLetter
|
Public Function WithWindreamObjectsOrDriveLetter(BasePath As String, DriveLetter As String) As IConnectionBuilder Implements IConnectionBuilder.WithWindreamObjectsOrDriveLetter
|
||||||
If Utils.NotNull(BasePath, Nothing) IsNot Nothing Then
|
If ObjectEx.NotNull(BasePath, Nothing) IsNot Nothing Then
|
||||||
Return WithWindreamObjects(BasePath)
|
Return WithWindreamObjects(BasePath)
|
||||||
ElseIf Utils.NotNull(DriveLetter, Nothing) IsNot Nothing Then
|
ElseIf ObjectEx.NotNull(DriveLetter, Nothing) IsNot Nothing Then
|
||||||
Return WithDriveLetter(DriveLetter)
|
Return WithDriveLetter(DriveLetter)
|
||||||
Else
|
Else
|
||||||
Return WithWindreamObjects()
|
Return WithWindreamObjects()
|
||||||
|
|||||||
@ -819,7 +819,7 @@ Public Class Windream
|
|||||||
Dim oNormalizedPath As String = pPath
|
Dim oNormalizedPath As String = pPath
|
||||||
|
|
||||||
If pCleanPath = True Then
|
If pCleanPath = True Then
|
||||||
oNormalizedPath = Utils.RemoveInvalidCharacters(pPath)
|
oNormalizedPath = StringEx.RemoveInvalidCharacters(pPath)
|
||||||
_logger.Debug("Path after RemoveInvalidCharacters: [{0}]", oNormalizedPath)
|
_logger.Debug("Path after RemoveInvalidCharacters: [{0}]", oNormalizedPath)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|||||||
@ -137,10 +137,6 @@
|
|||||||
<Project>{6EA0C51F-C2B1-4462-8198-3DE0B32B74F8}</Project>
|
<Project>{6EA0C51F-C2B1-4462-8198-3DE0B32B74F8}</Project>
|
||||||
<Name>Base</Name>
|
<Name>Base</Name>
|
||||||
</ProjectReference>
|
</ProjectReference>
|
||||||
<ProjectReference Include="..\Language\Language.vbproj">
|
|
||||||
<Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
|
|
||||||
<Name>Language</Name>
|
|
||||||
</ProjectReference>
|
|
||||||
<ProjectReference Include="..\Logging\Logging.vbproj">
|
<ProjectReference Include="..\Logging\Logging.vbproj">
|
||||||
<Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
|
<Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
|
||||||
<Name>Logging</Name>
|
<Name>Logging</Name>
|
||||||
|
|||||||
@ -132,10 +132,6 @@
|
|||||||
<Project>{25017513-0d97-49d3-98d7-ba76d9b251b0}</Project>
|
<Project>{25017513-0d97-49d3-98d7-ba76d9b251b0}</Project>
|
||||||
<Name>EDMI.API</Name>
|
<Name>EDMI.API</Name>
|
||||||
</ProjectReference>
|
</ProjectReference>
|
||||||
<ProjectReference Include="..\Language\Language.vbproj">
|
|
||||||
<Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
|
|
||||||
<Name>Language</Name>
|
|
||||||
</ProjectReference>
|
|
||||||
<ProjectReference Include="..\Logging\Logging.vbproj">
|
<ProjectReference Include="..\Logging\Logging.vbproj">
|
||||||
<Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
|
<Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
|
||||||
<Name>Logging</Name>
|
<Name>Logging</Name>
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user