edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Chat etc.

Browse Source
This commit is contained in:
ms
2020-05-12 14:55:03 +02:00
parent 46a9991b2a
commit be5014153d
54 changed files with 1993 additions and 263 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Doku.sln
View File

@@ -1,12 +1,14 @@
 
Microsoft Visual Studio Solution File, Format Version 12.00 Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15 # Visual Studio Version 16
VisualStudioVersion = 15.0.28010.0 VisualStudioVersion = 16.0.29911.84
MinimumVisualStudioVersion = 10.0.40219.1 MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Dokumentation", "Dokumentation\Dokumentation.vbproj", "{AAC83634-C001-43FC-8E9D-07A263ED0600}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Dokumentation", "Dokumentation\Dokumentation.vbproj", "{AAC83634-C001-43FC-8E9D-07A263ED0600}"
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Dokumentation_Updater", "Dokumentation_Updater\Dokumentation_Updater.vbproj", "{5C2A947D-17F3-4975-8781-3B662FC72EAB}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Dokumentation_Updater", "Dokumentation_Updater\Dokumentation_Updater.vbproj", "{5C2A947D-17F3-4975-8781-3B662FC72EAB}"
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
EndProject
Global Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU Debug|Any CPU = Debug|Any CPU
@@ -21,6 +23,10 @@ Global
{5C2A947D-17F3-4975-8781-3B662FC72EAB}.Debug|Any CPU.Build.0 = Debug|Any CPU {5C2A947D-17F3-4975-8781-3B662FC72EAB}.Debug|Any CPU.Build.0 = Debug|Any CPU
{5C2A947D-17F3-4975-8781-3B662FC72EAB}.Release|Any CPU.ActiveCfg = Release|Any CPU {5C2A947D-17F3-4975-8781-3B662FC72EAB}.Release|Any CPU.ActiveCfg = Release|Any CPU
{5C2A947D-17F3-4975-8781-3B662FC72EAB}.Release|Any CPU.Build.0 = Release|Any CPU {5C2A947D-17F3-4975-8781-3B662FC72EAB}.Release|Any CPU.Build.0 = Release|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU
{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection EndGlobalSection
GlobalSection(SolutionProperties) = preSolution GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE HideSolutionNode = FALSE

4
Doku/My Project/licenses.licx Normal file
View File

@@ -0,0 +1,4 @@
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12
GrapeCity.ActiveReports.PageReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12

2
Dokumentation/App.config
View File

@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2"/>
</startup> </startup>
</configuration> </configuration>

22
Dokumentation/Classes/Class1.vb
View File

@@ -1,5 +1,6 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Reflection Imports System.Reflection
Imports System.IO
Public Class Class1 Public Class Class1
@@ -819,4 +820,25 @@ Public Class Class1
'returnTable = dv.Table 'returnTable = dv.Table
Return returnTable Return returnTable
End Function End Function
Public Shared Sub CopyDirectory(ByVal sourcePath As String, ByVal destinationPath As String)
Dim sourceDir As DirectoryInfo = New DirectoryInfo(sourcePath)
Dim sourceFiles As FileInfo() = sourceDir.GetFiles(sourcePath, "*")
For source As Integer = 0 To sourceFiles.Length - 1
Dim destinationDir As DirectoryInfo = New DirectoryInfo(destinationPath)
Dim destFiles As FileInfo() = destinationDir.GetFiles()
For destination As Integer = 0 To destFiles.Length - 1
If File.Exists(Path.Combine(destinationPath, sourceFiles(source).Name)) Then
If sourceFiles(source).Name = destFiles(destination).Name Then
If sourceFiles(source).LastWriteTime > destFiles(destination).LastWriteTime Then
sourceFiles(source).CopyTo(Path.Combine(destinationDir.FullName, sourceFiles(source).Name), True)
End If
End If
Else
sourceFiles(source).CopyTo(Path.Combine(destinationDir.FullName, sourceFiles(source).Name), True)
End If
Next
Next
End Sub
End Class End Class

3
Dokumentation/Classes/cBenutzer.vb
View File

@@ -15,7 +15,7 @@ Public Class cBenutzer
Property msDSPrincipalName As String = "" Property msDSPrincipalName As String = ""
Property localdistinguishedName As String = "" Property localdistinguishedName As String = ""
Property suchname As String = "" Property suchname As String = ""
Property Hostname As String = ""
@@ -24,6 +24,7 @@ Public Class cBenutzer
Try Try
userPrincipalName = System.DirectoryServices.AccountManagement.UserPrincipal.Current.UserPrincipalName userPrincipalName = System.DirectoryServices.AccountManagement.UserPrincipal.Current.UserPrincipalName
Name = System.DirectoryServices.AccountManagement.UserPrincipal.Current.Name Name = System.DirectoryServices.AccountManagement.UserPrincipal.Current.Name
Hostname = Environment.MachineName
Catch Catch
End Try End Try
Domäne = System.DirectoryServices.ActiveDirectory.Domain.GetCurrentDomain.ToString Domäne = System.DirectoryServices.ActiveDirectory.Domain.GetCurrentDomain.ToString

82
Dokumentation/Classes/cExtProgramme.vb Normal file
View File

@@ -0,0 +1,82 @@
Public Class cExtProgramme
Public Shared Function startlink(URL As String)
Try
If URL.Contains("http") Or URL.Contains("https") Then
Process.Start(URL)
ElseIf URL = "" Then
Exit Function
Else
Dim mstsc As New Process
mstsc.StartInfo.FileName = "mstsc.exe"
mstsc.StartInfo.Arguments = " /v: " & URL
mstsc.Start()
End If
' Process.Start("mstsc.exe", "/v: dc01")
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End Function
Public Shared Function startputty(IP As String)
Dim Benutzer, Passwort As String
Class1.GetUserPasswort(IP, Benutzer, Passwort)
Try
Dim putty As New Process
putty.StartInfo.FileName = "putty.exe"
If Benutzer = "" And Passwort = "" Then
putty.StartInfo.Arguments = IP
Else
putty.StartInfo.Arguments = IP & " -l " & Benutzer & " -pw " & Passwort
End If
putty.Start()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Shared Function pingip(ip As String, Optional ByVal Argument As String = "")
Dim ping As New Process
'ping.StartInfo.FileName = "cmd.exe"
'ping.StartInfo.Arguments = " /k ping " & ip & Argument
ping.StartInfo.FileName = "powershell.exe"
ping.StartInfo.Arguments = " /noexit /c ping " & ip & Argument
ping.Start()
End Function
Public Shared Function msgsend(argumente As String)
Try
Dim msg As New Process
System.IO.File.WriteAllBytes("msg.exe", My.Resources.msg)
msg.StartInfo.FileName = "msg.exe"
'msg.StartInfo.WorkingDirectory = "C:\Windows\System32\"
msg.StartInfo.Arguments = argumente
msg.Start()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Shared Function StartTeamviewer(ID As String, Optional Passwort As String = "BmWr501956")
If Passwort.Length < 1 Then
Passwort = "BmWr501956"
End If
Dim teamviewer As New Process
With teamviewer.StartInfo
.FileName = "Teamviewer.exe"
.WorkingDirectory = "C:\Program Files (x86)\TeamViewer"
.Arguments = "-i " & ID & " -P " & Passwort
End With
teamviewer.Start()
End Function
End Class

130
Dokumentation/Dokumentation.vbproj
View File

@@ -11,7 +11,7 @@
<AssemblyName>Dokumentation</AssemblyName> <AssemblyName>Dokumentation</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion> <TargetFrameworkVersion>v4.7.2</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects> <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic> <Deterministic>true</Deterministic>
<IsWebBootstrapper>false</IsWebBootstrapper> <IsWebBootstrapper>false</IsWebBootstrapper>
@@ -89,16 +89,68 @@
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="Accessibility" /> <Reference Include="Accessibility" />
<Reference Include="GrapeCity.ActiveReports.ArsClient.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" /> <Reference Include="ClosedXML, Version=0.94.2.0, Culture=neutral, processorArchitecture=MSIL">
<Reference Include="GrapeCity.ActiveReports.Chart.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" /> <HintPath>..\packages\ClosedXML.0.94.2\lib\net46\ClosedXML.dll</HintPath>
<Reference Include="GrapeCity.ActiveReports.Design.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" /> </Reference>
<Reference Include="GrapeCity.ActiveReports.Diagnostics.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" /> <Reference Include="DocumentFormat.OpenXml, Version=2.7.2.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
<Reference Include="GrapeCity.ActiveReports.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" /> <HintPath>..\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
<Reference Include="GrapeCity.ActiveReports.Export.Image.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" /> </Reference>
<Reference Include="Dynamsoft.BarcodeGenerator, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.BarcodeGenerator.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.BarcodeReader, Version=6.1.0.514, Culture=neutral, PublicKeyToken=ad0967c36e09320a, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.BarcodeReader.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Camera, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.Camera.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Forms.Viewer, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.Forms.Viewer.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.ImageCore, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.ImageCore.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.OCR, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.OCR.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.PDF, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.PDF.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Twain, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.Twain.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.WPF.Viewer, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.WPF.Viewer.dll</HintPath>
</Reference>
<Reference Include="ExcelNumberFormat, Version=1.0.3.0, Culture=neutral, PublicKeyToken=23c6f5d73be07eca, processorArchitecture=MSIL">
<HintPath>..\packages\ExcelNumberFormat.1.0.3\lib\net20\ExcelNumberFormat.dll</HintPath>
</Reference>
<Reference Include="FastMember, Version=1.3.0.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\FastMember.1.3.0\lib\net45\FastMember.dll</HintPath>
</Reference>
<Reference Include="Ghostscript.NET, Version=1.2.1.0, Culture=neutral, PublicKeyToken=f85051de34525b59, processorArchitecture=MSIL">
<HintPath>..\packages\Ghostscript.NET.1.2.1\lib\net40\Ghostscript.NET.dll</HintPath>
</Reference>
<Reference Include="GrapeCity.ActiveReports.Chart.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Export.Excel.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" /> <Reference Include="GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Extensibility.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" /> <Reference Include="GrapeCity.ActiveReports.Extensibility.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" /> <Reference Include="GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" /> <Reference Include="GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />
<Reference Include="itextsharp, Version=5.5.13.1, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
<HintPath>..\packages\iTextSharp.5.5.13.1\lib\itextsharp.dll</HintPath>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="NetSpell.SpellChecker, Version=2.1.7.41329, Culture=neutral, PublicKeyToken=318b389f0db66e46">
<HintPath>..\packages\NetSpell.2.1.7\lib\NetSpell.SpellChecker.dll</HintPath>
</Reference>
<Reference Include="Spire.License, Version=1.3.8.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
<HintPath>..\packages\Spire.PDF.6.3.10\lib\net46\Spire.License.dll</HintPath>
</Reference>
<Reference Include="Spire.Pdf, Version=6.3.10.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<HintPath>..\packages\Spire.PDF.6.3.10\lib\net46\Spire.Pdf.dll</HintPath>
</Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Configuration" /> <Reference Include="System.Configuration" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
@@ -109,6 +161,14 @@
<Reference Include="System.DirectoryServices.AccountManagement" /> <Reference Include="System.DirectoryServices.AccountManagement" />
<Reference Include="System.Drawing" /> <Reference Include="System.Drawing" />
<Reference Include="System.Drawing.Design" /> <Reference Include="System.Drawing.Design" />
<Reference Include="System.IO.FileSystem.Primitives, Version=4.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.IO.FileSystem.Primitives.4.0.1\lib\net46\System.IO.FileSystem.Primitives.dll</HintPath>
<Private>True</Private>
<Private>True</Private>
</Reference>
<Reference Include="System.IO.Packaging, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.IO.Packaging.4.0.0\lib\net46\System.IO.Packaging.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.Serialization.Formatters.Soap" /> <Reference Include="System.Runtime.Serialization.Formatters.Soap" />
<Reference Include="System.Security" /> <Reference Include="System.Security" />
<Reference Include="System.Web" /> <Reference Include="System.Web" />
@@ -120,6 +180,7 @@
<Reference Include="System.Xml.Linq" /> <Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" /> <Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" /> <Reference Include="System.Net.Http" />
<Reference Include="WindowsBase" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Import Include="Microsoft.VisualBasic" /> <Import Include="Microsoft.VisualBasic" />
@@ -157,6 +218,30 @@
<Compile Include="Classes\cEintrag.vb" /> <Compile Include="Classes\cEintrag.vb" />
<Compile Include="Classes\cNetzwerk.vb" /> <Compile Include="Classes\cNetzwerk.vb" />
<Compile Include="Classes\cTSUser.vb" /> <Compile Include="Classes\cTSUser.vb" />
<Compile Include="Drucken\frmColumnsPrint.Designer.vb">
<DependentUpon>frmColumnsPrint.vb</DependentUpon>
</Compile>
<Compile Include="Drucken\frmColumnsPrint.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Drucken\rptLeer.Designer.vb">
<DependentUpon>rptLeer.vb</DependentUpon>
</Compile>
<Compile Include="Drucken\rptLeer.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="Drucken\uscntr_Columns.Designer.vb">
<DependentUpon>uscntr_Columns.vb</DependentUpon>
</Compile>
<Compile Include="Drucken\uscntr_Columns.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="frmNotify.Designer.vb">
<DependentUpon>frmNotify.vb</DependentUpon>
</Compile>
<Compile Include="frmNotify.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="uscntr_DomUserList.Designer.vb"> <Compile Include="uscntr_DomUserList.Designer.vb">
<DependentUpon>uscntr_DomUserList.vb</DependentUpon> <DependentUpon>uscntr_DomUserList.vb</DependentUpon>
</Compile> </Compile>
@@ -197,7 +282,7 @@
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Classes\DHCP.vb" /> <Compile Include="Classes\DHCP.vb" />
<Compile Include="Classes\Ext_Programme.vb" /> <Compile Include="Classes\cExtProgramme.vb" />
<Compile Include="Classes\cFirewallEntry.vb" /> <Compile Include="Classes\cFirewallEntry.vb" />
<Compile Include="Classes\cFolder.vb" /> <Compile Include="Classes\cFolder.vb" />
<Compile Include="Classes\cHost.vb" /> <Compile Include="Classes\cHost.vb" />
@@ -359,9 +444,23 @@
<EmbeddedResource Include="Administration\CSVImportieren.resx"> <EmbeddedResource Include="Administration\CSVImportieren.resx">
<DependentUpon>CSVImportieren.vb</DependentUpon> <DependentUpon>CSVImportieren.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Drucken\frmColumnsPrint.resx">
<DependentUpon>frmColumnsPrint.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Drucken\licenses.licx" />
<EmbeddedResource Include="Drucken\rptLeer.resx">
<DependentUpon>rptLeer.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Drucken\uscntr_Columns.resx">
<DependentUpon>uscntr_Columns.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAllgemeinEintrag.resx"> <EmbeddedResource Include="frmAllgemeinEintrag.resx">
<DependentUpon>frmAllgemeinEintrag.vb</DependentUpon> <DependentUpon>frmAllgemeinEintrag.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmNotify.resx">
<DependentUpon>frmNotify.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="licenses.licx" />
<EmbeddedResource Include="uscntr_DomUser.resx"> <EmbeddedResource Include="uscntr_DomUser.resx">
<DependentUpon>uscntr_DomUser.vb</DependentUpon> <DependentUpon>uscntr_DomUser.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -461,6 +560,7 @@
<ItemGroup> <ItemGroup>
<Content Include="dispo_ico.ico" /> <Content Include="dispo_ico.ico" />
<Content Include="doku_ico.ico" /> <Content Include="doku_ico.ico" />
<None Include="packages.config" />
<None Include="Resources\Link.png" /> <None Include="Resources\Link.png" />
<None Include="Resources\Link.bmp" /> <None Include="Resources\Link.bmp" />
<None Include="Resources\Link20.bmp" /> <None Include="Resources\Link20.bmp" />
@@ -472,6 +572,10 @@
<None Include="Resources\ico_putty_exe0001.bmp" /> <None Include="Resources\ico_putty_exe0001.bmp" />
<None Include="Resources\Admin.PNG" /> <None Include="Resources\Admin.PNG" />
<None Include="Resources\Admin20.png" /> <None Include="Resources\Admin20.png" />
<None Include="Resources\del.png" />
<None Include="Resources\Hakerl20.png" />
<None Include="Resources\aviso_messenger.png" />
<Content Include="Resources\excel20.png" />
<Content Include="Resources\pdf512.png" /> <Content Include="Resources\pdf512.png" />
<None Include="Resources\Print.png" /> <None Include="Resources\Print.png" />
<None Include="Resources\Print20x20.png" /> <None Include="Resources\Print20x20.png" />
@@ -490,5 +594,11 @@
<Install>false</Install> <Install>false</Install>
</BootstrapperPackage> </BootstrapperPackage>
</ItemGroup> </ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project> </Project>

118
Dokumentation/Drucken/frmColumnsPrint.Designer.vb generated Normal file
View File

@@ -0,0 +1,118 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmColumnsPrint
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmColumnsPrint))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.CmdPrint = New System.Windows.Forms.Button()
Me.btnAlleDeaktivieren = New System.Windows.Forms.Button()
Me.btnAlleAktivieren = New System.Windows.Forms.Button()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Controls.Add(Me.btnAlleAktivieren)
Me.Panel1.Controls.Add(Me.btnAlleDeaktivieren)
Me.Panel1.Controls.Add(Me.CmdPrint)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(0, 293)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(378, 76)
Me.Panel1.TabIndex = 0
'
'Panel2
'
Me.Panel2.AutoSize = True
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(378, 293)
Me.Panel2.TabIndex = 1
'
'CmdPrint
'
Me.CmdPrint.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdPrint.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmdPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdPrint.Image = Global.Dokumentation.My.Resources.Resources.Print20x20
Me.CmdPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdPrint.Location = New System.Drawing.Point(239, 40)
Me.CmdPrint.Name = "CmdPrint"
Me.CmdPrint.Size = New System.Drawing.Size(127, 28)
Me.CmdPrint.TabIndex = 14
Me.CmdPrint.Text = "Drucken"
Me.CmdPrint.UseVisualStyleBackColor = False
'
'btnAlleDeaktivieren
'
Me.btnAlleDeaktivieren.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnAlleDeaktivieren.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnAlleDeaktivieren.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAlleDeaktivieren.Image = Global.Dokumentation.My.Resources.Resources.del
Me.btnAlleDeaktivieren.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAlleDeaktivieren.Location = New System.Drawing.Point(12, 6)
Me.btnAlleDeaktivieren.Name = "btnAlleDeaktivieren"
Me.btnAlleDeaktivieren.Size = New System.Drawing.Size(127, 28)
Me.btnAlleDeaktivieren.TabIndex = 15
Me.btnAlleDeaktivieren.Text = "Alle abwählen"
Me.btnAlleDeaktivieren.UseVisualStyleBackColor = False
'
'btnAlleAktivieren
'
Me.btnAlleAktivieren.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnAlleAktivieren.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnAlleAktivieren.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAlleAktivieren.Image = CType(resources.GetObject("btnAlleAktivieren.Image"), System.Drawing.Image)
Me.btnAlleAktivieren.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAlleAktivieren.Location = New System.Drawing.Point(12, 40)
Me.btnAlleAktivieren.Name = "btnAlleAktivieren"
Me.btnAlleAktivieren.Size = New System.Drawing.Size(127, 28)
Me.btnAlleAktivieren.TabIndex = 16
Me.btnAlleAktivieren.Text = "Alle auswählen"
Me.btnAlleAktivieren.UseVisualStyleBackColor = False
'
'frmColumnsPrint
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.ClientSize = New System.Drawing.Size(378, 369)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1)
Me.Name = "frmColumnsPrint"
Me.Text = "frmColumnsPrint"
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Panel1 As Panel
Friend WithEvents Panel2 As Panel
Friend WithEvents btnAlleAktivieren As Button
Friend WithEvents btnAlleDeaktivieren As Button
Friend WithEvents CmdPrint As Button
End Class

135
Dokumentation/Drucken/frmColumnsPrint.resx Normal file
View File

@@ -0,0 +1,135 @@
<?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.Runtime.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:import namespace="http://www.w3.org/XML/1998/namespace" />
<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" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</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" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnAlleAktivieren.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAexJREFUOE+lks9LFHEYxt/AQ+Q/4EVIwoNomK1UZCqZYF28JIiwF5UyS81UNHHB
1YPLEgpKBwmhQFQExW5dghIUUZZulh0C3QIx8Cfapjnz9H3f2Vm+O46guw88zLzv+8yHd2a+ZBgGkrVp
mGAdq/ukgbYCn8bkmhSQtbm/C2rKRcW4X+qEgazF8FdQTTrKR31Scz8hIOvzjy+g2svwvH4stRmdnRvI
Wlr7BqrLRIqvVGqYZmx+LiArvLUBasgBPctW329HenpGAx5rA/3eMstUm1BLPqjxKgbnp6XnzAmQV3ZK
DyE6vthdBmq9gYxXVVLrGdvEsMjhXxSPNEuYnmah5+O7uAdYuUO1oLabckQO/x1JTwfZtjZUejIzAGrO
A3XdBdVn4ef2b+mzqqeCoBfX1dyD4Oy49Jwg27FvyEoLPAR1Fokvdd+X3tvQB+sndBYj1f9AejrA6Tjg
wtqy+uDq4a578nqVE71qM4+qSxQ0G6Ff3yWnA5zW/rIFzez3gl4WgnwK2lFgwdoLcHu4QeZ63s0ngCsb
YTljDLrAUNkuB3uRA5nreTfHAdmsO28aZSvr1W/BO9knfWfWza7A/cgf0KMroOfXZDuROovOrJtPANms
1c11vF+eix16t5ybXYHsmM64me1TgYnZwH+y2KJ6D1Lc4QAAAABJRU5ErkJggg==
</value>
</data>
</root>

45
Dokumentation/Drucken/frmColumnsPrint.vb Normal file
View File

@@ -0,0 +1,45 @@
Public Class frmColumnsPrint
Public DS As DataSet
Private Sub frmColumnsPrint_Load(sender As Object, e As EventArgs) Handles Me.Load
FillPanel()
End Sub
Function FillPanel()
Dim dt As DataTable = Class1.OrderDataTableby(DS.Tables(0), "HOST ASC")
Dim i As Integer = 0
For Each ch As DataColumn In dt.Columns
Dim uscol As New uscntr_Columns
uscol.Label1.Text = ch.ToString
uscol.Location = New Point(0, i * uscol.Height)
Panel2.Controls.Add(uscol)
i = i + 1
Next
End Function
Private Sub btnAlleDeaktivieren_Click(sender As Object, e As EventArgs) Handles btnAlleDeaktivieren.Click
For Each uscol As uscntr_Columns In Panel2.Controls
uscol.BackColor = Color.Red
Next
End Sub
Private Sub btnAlleAktivieren_Click(sender As Object, e As EventArgs) Handles btnAlleAktivieren.Click
For Each uscol As uscntr_Columns In Panel2.Controls
uscol.BackColor = Color.LightGreen
Next
End Sub
Private Sub CmdPrint_Click(sender As Object, e As EventArgs) Handles CmdPrint.Click
Dim dswork As DataSet = DS.Copy()
For Each uscol As uscntr_Columns In Panel2.Controls
If uscol.BackColor = Color.Red Then
dswork.Tables(0).Columns.Remove(uscol.Label1.Text)
End If
Next
Dim PrintAR As New frmPrintActiveReports
PrintAR.dt = dswork.Tables(0)
PrintAR.DruckArt = "Manuell"
PrintAR.Show()
End Sub
End Class

21
Dokumentation/Drucken/frmPrint.Designer.vb generated
View File

@@ -28,6 +28,7 @@ Partial Class frmPrint
Me.rdbHostListe = New System.Windows.Forms.RadioButton() Me.rdbHostListe = New System.Windows.Forms.RadioButton()
Me.rdbHostCheckListe = New System.Windows.Forms.RadioButton() Me.rdbHostCheckListe = New System.Windows.Forms.RadioButton()
Me.lblZugangsdatenDruckWarnung = New System.Windows.Forms.Label() Me.lblZugangsdatenDruckWarnung = New System.Windows.Forms.Label()
Me.btnManuell = New System.Windows.Forms.Button()
Me.SuspendLayout() Me.SuspendLayout()
' '
'CmdPrint 'CmdPrint
@@ -37,9 +38,9 @@ Partial Class frmPrint
Me.CmdPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.CmdPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdPrint.Image = Global.Dokumentation.My.Resources.Resources.Print20x20 Me.CmdPrint.Image = Global.Dokumentation.My.Resources.Resources.Print20x20
Me.CmdPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.CmdPrint.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdPrint.Location = New System.Drawing.Point(169, 69) Me.CmdPrint.Location = New System.Drawing.Point(193, 69)
Me.CmdPrint.Name = "CmdPrint" Me.CmdPrint.Name = "CmdPrint"
Me.CmdPrint.Size = New System.Drawing.Size(151, 28) Me.CmdPrint.Size = New System.Drawing.Size(127, 28)
Me.CmdPrint.TabIndex = 13 Me.CmdPrint.TabIndex = 13
Me.CmdPrint.Text = "Drucken" Me.CmdPrint.Text = "Drucken"
Me.CmdPrint.UseVisualStyleBackColor = False Me.CmdPrint.UseVisualStyleBackColor = False
@@ -86,12 +87,27 @@ Partial Class frmPrint
Me.lblZugangsdatenDruckWarnung.Text = "Zugangsdaten werden gedruckt!" Me.lblZugangsdatenDruckWarnung.Text = "Zugangsdaten werden gedruckt!"
Me.lblZugangsdatenDruckWarnung.Visible = False Me.lblZugangsdatenDruckWarnung.Visible = False
' '
'btnManuell
'
Me.btnManuell.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnManuell.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnManuell.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnManuell.Image = Global.Dokumentation.My.Resources.Resources.Print20x20
Me.btnManuell.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnManuell.Location = New System.Drawing.Point(12, 69)
Me.btnManuell.Name = "btnManuell"
Me.btnManuell.Size = New System.Drawing.Size(127, 28)
Me.btnManuell.TabIndex = 19
Me.btnManuell.Text = "Manuell"
Me.btnManuell.UseVisualStyleBackColor = False
'
'frmPrint 'frmPrint
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ControlLightLight Me.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.ClientSize = New System.Drawing.Size(342, 114) Me.ClientSize = New System.Drawing.Size(342, 114)
Me.Controls.Add(Me.btnManuell)
Me.Controls.Add(Me.lblZugangsdatenDruckWarnung) Me.Controls.Add(Me.lblZugangsdatenDruckWarnung)
Me.Controls.Add(Me.rdbHostCheckListe) Me.Controls.Add(Me.rdbHostCheckListe)
Me.Controls.Add(Me.rdbHostListe) Me.Controls.Add(Me.rdbHostListe)
@@ -110,4 +126,5 @@ Partial Class frmPrint
Friend WithEvents rdbHostListe As RadioButton Friend WithEvents rdbHostListe As RadioButton
Friend WithEvents rdbHostCheckListe As RadioButton Friend WithEvents rdbHostCheckListe As RadioButton
Friend WithEvents lblZugangsdatenDruckWarnung As Label Friend WithEvents lblZugangsdatenDruckWarnung As Label
Friend WithEvents btnManuell As Button
End Class End Class

6
Dokumentation/Drucken/frmPrint.vb
View File

@@ -44,4 +44,10 @@
'If Me.DruckeZugangsdaten = True Then lblZugangsdatenDruckWarnung.Visible = True 'If Me.DruckeZugangsdaten = True Then lblZugangsdatenDruckWarnung.Visible = True
End Sub End Sub
Private Sub btnManuell_Click(sender As Object, e As EventArgs) Handles btnManuell.Click
Dim frm As New frmColumnsPrint
frm.DS = ds
frm.Show()
End Sub
End Class End Class

23
Dokumentation/Drucken/frmPrintActiveReports.vb
View File

@@ -17,6 +17,19 @@
If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName) If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
End Sub End Sub
Private Sub tsbEX_Click(sender As Object, e As EventArgs)
'Dim Dateiname As String
Dim savefiledialog As New SaveFileDialog
savefiledialog.Filter = "Excel files (*.xls)|*.xls"
savefiledialog.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
savefiledialog.ShowDialog()
Dim p As New GrapeCity.ActiveReports.Export.Excel.Section.XlsExport
If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)
If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
End Sub
Private Sub frmPrintActiveReports_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmPrintActiveReports_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim tsbPDF As New ToolStripButton("PDF") Dim tsbPDF As New ToolStripButton("PDF")
tsbPDF.Image = My.Resources.pdf512 tsbPDF.Image = My.Resources.pdf512
@@ -24,6 +37,12 @@
AddHandler tsbPDF.Click, AddressOf tsbPDF_Click AddHandler tsbPDF.Click, AddressOf tsbPDF_Click
Dim tsbEX As New ToolStripButton("Excel")
tsbEX.Image = My.Resources.excel20
Viewer1.Toolbar.MainBar.Items.Insert(5, tsbEX)
AddHandler tsbEX.Click, AddressOf tsbEX_Click
Print() Print()
End Sub End Sub
@@ -45,6 +64,10 @@
Report.dt = Me.dt Report.dt = Me.dt
Report.DHCPAndrucken = Me.DHCPAndrucken Report.DHCPAndrucken = Me.DHCPAndrucken
Viewer1.LoadDocument(Report) Viewer1.LoadDocument(Report)
Case "Manuell"
Dim Report As New rptLeer
Report.dt = Me.dt
Viewer1.LoadDocument(Report)
End Select End Select
End Sub End Sub

4
Dokumentation/Drucken/licenses.licx Normal file
View File

@@ -0,0 +1,4 @@
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12
GrapeCity.ActiveReports.PageReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12

67
Dokumentation/Drucken/rptLeer.Designer.vb generated Normal file
View File

@@ -0,0 +1,67 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptLeer
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptLeer))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.CanGrow = False
Me.PageHeader.Height = 0.3333333!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Height = 0.1145834!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'rptLeer
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.2755905!
Me.PageSettings.Margins.Left = 0.2755905!
Me.PageSettings.Margins.Right = 0.2755905!
Me.PageSettings.Margins.Top = 0.2755905!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 10.90551!
Me.ScriptLanguage = "VB.NET"
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
End Class

126
Dokumentation/Drucken/rptLeer.resx Normal file
View File

@@ -0,0 +1,126 @@
<?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.Runtime.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:import namespace="http://www.w3.org/XML/1998/namespace" />
<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" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</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" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

73
Dokumentation/Drucken/rptLeer.vb Normal file
View File

@@ -0,0 +1,73 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptLeer
Public dt As DataTable
Dim HP As Integer = 0
Public counter As Integer = 0
Public AltColor As Color = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
For Each txtbox As SectionReportModel.TextBox In Sections(1).Controls
txtbox.Text = Class1.DBNull2emptyString(Fields.Item(txtbox.Name).Value)
Next
counter = counter + 1
If counter Mod 2 = 0 Then
Detail.BackColor = Color.Transparent
Else
Detail.BackColor = AltColor
End If
End Sub
Private Sub rptLeer_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
DataSource = dt
Dim ColSize As Size
For i = 0 To (Fields.Count - 1)
Select Case Fields(i).Name
Case "FQDN"
ColSize = New Size(1.5, 5)
Case "IPAdresse"
ColSize = New Size(1, 5)
Case "Modell"
ColSize = New Size(1.2, 5)
Case "Standort"
ColSize = New Size(1.9, 5)
Case "Type"
ColSize = New Size(1, 5)
Case "QINFO"
ColSize = New Size(1.7, 5)
End Select
Dim tb As New GrapeCity.ActiveReports.SectionReportModel.TextBox
tb.Size = ColSize 'New System.Drawing.Size(2, 5)
tb.Location = New Point(ReturnHP(i, tb.Size.Width, False), 0)
tb.Name = Fields(i).Name
tb.Text = Fields(i).Name
tb.Height = 0.3
Me.Sections(1).Controls.Add(tb)
Dim tb2 As New GrapeCity.ActiveReports.SectionReportModel.TextBox
tb2.Size = ColSize 'New System.Drawing.Size(2, 5)
tb2.Location = New Point(ReturnHP(i, tb2.Size.Width, True), 0)
tb2.Font = New Font(tb2.Font.FontFamily, 9, FontStyle.Bold)
tb2.Name = Fields(i).Name & "_Oben"
tb2.Text = Fields(i).Name
Me.Sections(0).Controls.Add(tb2)
Next
End Sub
Function ReturnHP(i As Integer, HL As Integer, addieren As Boolean)
If i = 0 Then
If addieren = True Then HP = HP + HL
Return 0
Exit Function
End If
Dim ret As Integer = HP
If addieren = True Then HP = HP + HL
Return ret
End Function
End Class

80
Dokumentation/Drucken/uscntr_Columns.Designer.vb generated Normal file
View File

@@ -0,0 +1,80 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class uscntr_Columns
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnDelete = New System.Windows.Forms.Button()
Me.btnOK = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(20, 17)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(55, 16)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Label1"
'
'btnDelete
'
Me.btnDelete.BackColor = System.Drawing.Color.White
Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDelete.Image = Global.Dokumentation.My.Resources.Resources.del
Me.btnDelete.Location = New System.Drawing.Point(260, 14)
Me.btnDelete.Name = "btnDelete"
Me.btnDelete.Size = New System.Drawing.Size(48, 23)
Me.btnDelete.TabIndex = 1
Me.btnDelete.UseVisualStyleBackColor = False
'
'btnOK
'
Me.btnOK.BackColor = System.Drawing.Color.White
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Image = Global.Dokumentation.My.Resources.Resources.Hakerl20
Me.btnOK.Location = New System.Drawing.Point(314, 14)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(48, 23)
Me.btnOK.TabIndex = 2
Me.btnOK.UseVisualStyleBackColor = False
'
'uscntr_Columns
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.btnDelete)
Me.Controls.Add(Me.Label1)
Me.Name = "uscntr_Columns"
Me.Size = New System.Drawing.Size(394, 50)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents btnDelete As Button
Friend WithEvents btnOK As Button
End Class

120
Dokumentation/Drucken/uscntr_Columns.resx Normal file
View File

@@ -0,0 +1,120 @@
<?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.Runtime.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:import namespace="http://www.w3.org/XML/1998/namespace" />
<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" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</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" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

14
Dokumentation/Drucken/uscntr_Columns.vb Normal file
View File

@@ -0,0 +1,14 @@
Public Class uscntr_Columns
Private Sub uscntr_Columns_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.BackColor = Color.Red
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Me.BackColor = Color.LightGreen
End Sub
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
Me.BackColor = Color.Red
End Sub
End Class

2
Dokumentation/EintragBearbeiten.vb
View File

@@ -305,7 +305,7 @@ Public Class EintragBearbeiten
Private Sub CmdLink_Click(sender As Object, e As EventArgs) Handles CmdLink.Click Private Sub CmdLink_Click(sender As Object, e As EventArgs) Handles CmdLink.Click
Ext_Programme.startlink(TxtLink.Text) cExtProgramme.startlink(TxtLink.Text)
End Sub End Sub
Private Sub ChkKennwortAnzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles ChkKennwortAnzeigen.CheckedChanged Private Sub ChkKennwortAnzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles ChkKennwortAnzeigen.CheckedChanged

19
Dokumentation/Login/Login.vb
View File

@@ -1,4 +1,6 @@
Imports System.Net.Dns Imports System.Net.Dns
Imports VERAG_PROG_ALLGEMEIN
Imports System.Reflection
Public Class Login Public Class Login
Property userPrincipalName As String = "" Property userPrincipalName As String = ""
@@ -32,6 +34,15 @@ Public Class Login
End Select End Select
End Function End Function
Public Function LoadUSRID()
Dim ds As New DataSet
cSQL.SQL2DS("select * from [ADMIN].dbo.tblMitarbeiter where mit_aliasad_domain = '" & Environment.UserDomainName & "' AND mit_AliasAD_Username = '" & Environment.UserName & "'", ds)
VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = ds.Tables(0).Rows(0).Item("mit_id").ToString
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
End Function
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
lblInfo.Text = "" lblInfo.Text = ""
Login() Login()
@@ -42,8 +53,10 @@ Public Class Login
Timer1.Enabled = False Timer1.Enabled = False
Try Try
Abfrage(userPrincipalName) Abfrage(userPrincipalName)
' LoadUSRID()
Catch Catch
MsgBox("Fehler beim Anmelden!") 'MsgBox("Fehler beim Anmelden!")
PasswortabfrageLogin.Show() PasswortabfrageLogin.Show()
End Try End Try
End Sub End Sub
@@ -62,6 +75,7 @@ Public Class Login
' MsgBox("Treffer!") ' MsgBox("Treffer!")
Class1.LoggedOnUserRights = cBerechtigungen.ReadAll(Class1.LoggedOnUser.BenutzeranmeldeName) Class1.LoggedOnUserRights = cBerechtigungen.ReadAll(Class1.LoggedOnUser.BenutzeranmeldeName)
gefunden = True gefunden = True
LoadUSRID()
ShowMain() ShowMain()
Me.Hide() Me.Hide()
Exit For Exit For
@@ -199,7 +213,7 @@ Public Class Login
End Select End Select
End Function End Function
Function ShowMain() Function ShowMain(Optional ByVal MessageActivated As Boolean = True)
Dim main As New Main Dim main As New Main
For Each right As cBerechtigungen In Class1.LoggedOnUserRights For Each right As cBerechtigungen In Class1.LoggedOnUserRights
@@ -216,6 +230,7 @@ Public Class Login
End If End If
Next Next
main.picAVISOMessenger.Enabled = MessageActivated
main.Show() main.Show()
End Function End Function

13
Dokumentation/Login/PasswortabfrageLogin.vb
View File

@@ -1,11 +1,22 @@
Public Class PasswortabfrageLogin Public Class PasswortabfrageLogin
Private Sub CmdLogin_Click(sender As Object, e As EventArgs) Handles CmdLogin.Click Private Sub CmdLogin_Click(sender As Object, e As EventArgs) Handles CmdLogin.Click
If TxtPasswort.Text = "BmWr501956" Then If TxtPasswort.Text = "BmWr501956" Then
Main.Show() Dim main As New Main
main.picAVISOMessenger.Enabled = False
main.picAVISOMessenger.Visible = False
main.Show()
Me.Close() Me.Close()
Else Else
MsgBox("Nein, das war falsch!") MsgBox("Nein, das war falsch!")
Application.Exit() Application.Exit()
End If End If
End Sub End Sub
Private Sub TxtPasswort_Enter(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TxtPasswort.KeyDown
If e.KeyCode = Keys.Enter Then
CmdLogin.PerformClick()
End If
End Sub
End Class End Class

203
Dokumentation/Main.Designer.vb generated
View File

@@ -24,9 +24,10 @@ Partial Class Main
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel()
Me.btnBenutzerverwaltung = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.LblDEBUGMODE = New System.Windows.Forms.Label() Me.LblDEBUGMODE = New System.Windows.Forms.Label()
Me.LblVersion = New System.Windows.Forms.Label() Me.LblVersion = New System.Windows.Forms.Label()
Me.LblInfo = New System.Windows.Forms.Label() Me.LblInfo = New System.Windows.Forms.Label()
@@ -57,7 +58,10 @@ Partial Class Main
Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItemINFO = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItemINFO = New System.Windows.Forms.ToolStripMenuItem()
Me.btnBenutzerverwaltung = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label20 = New System.Windows.Forms.Label()
Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
Me.chkTSSitzungen = New System.Windows.Forms.CheckBox() Me.chkTSSitzungen = New System.Windows.Forms.CheckBox()
Me.lblCount = New System.Windows.Forms.Label() Me.lblCount = New System.Windows.Forms.Label()
Me.btnNeu = New System.Windows.Forms.Button() Me.btnNeu = New System.Windows.Forms.Button()
@@ -81,7 +85,6 @@ Partial Class Main
Me.DgVMain = New System.Windows.Forms.DataGridView() Me.DgVMain = New System.Windows.Forms.DataGridView()
Me.DGVMainContext = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.DGVMainContext = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DgvMainContextMenuItemHost = New System.Windows.Forms.ToolStripMenuItem() Me.DgvMainContextMenuItemHost = New System.Windows.Forms.ToolStripMenuItem()
Me.ErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SMBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SMBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DgvMainContextMenuItemLink = New System.Windows.Forms.ToolStripMenuItem() Me.DgvMainContextMenuItemLink = New System.Windows.Forms.ToolStripMenuItem()
@@ -105,6 +108,8 @@ Partial Class Main
Me.TimerUpdate = New System.Windows.Forms.Timer(Me.components) Me.TimerUpdate = New System.Windows.Forms.Timer(Me.components)
Me.TimerWillkommen = New System.Windows.Forms.Timer(Me.components) Me.TimerWillkommen = New System.Windows.Forms.Timer(Me.components)
Me.panTSSitzungen = New System.Windows.Forms.Panel() Me.panTSSitzungen = New System.Windows.Forms.Panel()
Me.Timer_Refresh = New System.Windows.Forms.Timer(Me.components)
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
Me.Panel4.SuspendLayout() Me.Panel4.SuspendLayout()
Me.PanType.SuspendLayout() Me.PanType.SuspendLayout()
@@ -113,6 +118,7 @@ Partial Class Main
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PanNetzwerk.SuspendLayout() Me.PanNetzwerk.SuspendLayout()
CType(Me.DgVMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DgVMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DGVMainContext.SuspendLayout() Me.DGVMainContext.SuspendLayout()
@@ -128,12 +134,13 @@ Partial Class Main
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0) Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1581, 130) Me.Panel2.Size = New System.Drawing.Size(1614, 130)
Me.Panel2.TabIndex = 1 Me.Panel2.TabIndex = 1
' '
'Panel4 'Panel4
' '
Me.Panel4.BackColor = System.Drawing.SystemColors.GradientInactiveCaption Me.Panel4.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel4.Controls.Add(Me.Button1)
Me.Panel4.Controls.Add(Me.LblDEBUGMODE) Me.Panel4.Controls.Add(Me.LblDEBUGMODE)
Me.Panel4.Controls.Add(Me.LblVersion) Me.Panel4.Controls.Add(Me.LblVersion)
Me.Panel4.Controls.Add(Me.LblInfo) Me.Panel4.Controls.Add(Me.LblInfo)
@@ -147,22 +154,22 @@ Partial Class Main
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(272, 24) Me.Panel4.Location = New System.Drawing.Point(272, 24)
Me.Panel4.Name = "Panel4" Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1309, 106) Me.Panel4.Size = New System.Drawing.Size(1342, 106)
Me.Panel4.TabIndex = 14 Me.Panel4.TabIndex = 14
' '
'btnBenutzerverwaltung 'Button1
' '
Me.btnBenutzerverwaltung.BackColor = System.Drawing.SystemColors.ControlLightLight Me.Button1.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnBenutzerverwaltung.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.Button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnBenutzerverwaltung.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBenutzerverwaltung.Image = Global.Dokumentation.My.Resources.Resources.Admin20 Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.excel20
Me.btnBenutzerverwaltung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(25, 670) Me.Button1.Location = New System.Drawing.Point(440, 52)
Me.btnBenutzerverwaltung.Name = "btnBenutzerverwaltung" Me.Button1.Name = "Button1"
Me.btnBenutzerverwaltung.Size = New System.Drawing.Size(151, 28) Me.Button1.Size = New System.Drawing.Size(151, 28)
Me.btnBenutzerverwaltung.TabIndex = 20 Me.Button1.TabIndex = 43
Me.btnBenutzerverwaltung.Text = "Benutzerverwaltung" Me.Button1.Text = "Telefonliste"
Me.btnBenutzerverwaltung.UseVisualStyleBackColor = False Me.Button1.UseVisualStyleBackColor = False
' '
'LblDEBUGMODE 'LblDEBUGMODE
' '
@@ -179,7 +186,7 @@ Partial Class Main
' '
Me.LblVersion.Anchor = System.Windows.Forms.AnchorStyles.Right Me.LblVersion.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.LblVersion.AutoSize = True Me.LblVersion.AutoSize = True
Me.LblVersion.Location = New System.Drawing.Point(962, 81) Me.LblVersion.Location = New System.Drawing.Point(995, 81)
Me.LblVersion.Name = "LblVersion" Me.LblVersion.Name = "LblVersion"
Me.LblVersion.Size = New System.Drawing.Size(42, 13) Me.LblVersion.Size = New System.Drawing.Size(42, 13)
Me.LblVersion.TabIndex = 17 Me.LblVersion.TabIndex = 17
@@ -200,7 +207,7 @@ Partial Class Main
Me.CmdSucheReset.BackColor = System.Drawing.SystemColors.ControlLightLight Me.CmdSucheReset.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.CmdSucheReset.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.CmdSucheReset.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmdSucheReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.CmdSucheReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdSucheReset.Location = New System.Drawing.Point(813, 71) Me.CmdSucheReset.Location = New System.Drawing.Point(846, 71)
Me.CmdSucheReset.Name = "CmdSucheReset" Me.CmdSucheReset.Name = "CmdSucheReset"
Me.CmdSucheReset.Size = New System.Drawing.Size(121, 23) Me.CmdSucheReset.Size = New System.Drawing.Size(121, 23)
Me.CmdSucheReset.TabIndex = 15 Me.CmdSucheReset.TabIndex = 15
@@ -211,7 +218,7 @@ Partial Class Main
' '
Me.TxtSuche.Anchor = System.Windows.Forms.AnchorStyles.Right Me.TxtSuche.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.TxtSuche.BackColor = System.Drawing.SystemColors.ControlLightLight Me.TxtSuche.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.TxtSuche.Location = New System.Drawing.Point(627, 23) Me.TxtSuche.Location = New System.Drawing.Point(660, 23)
Me.TxtSuche.Name = "TxtSuche" Me.TxtSuche.Name = "TxtSuche"
Me.TxtSuche.Size = New System.Drawing.Size(138, 20) Me.TxtSuche.Size = New System.Drawing.Size(138, 20)
Me.TxtSuche.TabIndex = 3 Me.TxtSuche.TabIndex = 3
@@ -221,7 +228,7 @@ Partial Class Main
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(580, 26) Me.Label1.Location = New System.Drawing.Point(613, 26)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(47, 13) Me.Label1.Size = New System.Drawing.Size(47, 13)
Me.Label1.TabIndex = 4 Me.Label1.TabIndex = 4
@@ -232,7 +239,7 @@ Partial Class Main
Me.PanType.Anchor = System.Windows.Forms.AnchorStyles.Right Me.PanType.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.PanType.Controls.Add(Me.LstType) Me.PanType.Controls.Add(Me.LstType)
Me.PanType.Controls.Add(Me.Label2) Me.PanType.Controls.Add(Me.Label2)
Me.PanType.Location = New System.Drawing.Point(771, 5) Me.PanType.Location = New System.Drawing.Point(804, 5)
Me.PanType.Name = "PanType" Me.PanType.Name = "PanType"
Me.PanType.Size = New System.Drawing.Size(183, 41) Me.PanType.Size = New System.Drawing.Size(183, 41)
Me.PanType.TabIndex = 12 Me.PanType.TabIndex = 12
@@ -260,7 +267,7 @@ Partial Class Main
' '
Me.PictureBox1.Anchor = System.Windows.Forms.AnchorStyles.Right Me.PictureBox1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(965, 2) Me.PictureBox1.Location = New System.Drawing.Point(998, 2)
Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(333, 67) Me.PictureBox1.Size = New System.Drawing.Size(333, 67)
Me.PictureBox1.TabIndex = 1 Me.PictureBox1.TabIndex = 1
@@ -272,7 +279,7 @@ Partial Class Main
Me.PanSuche.Controls.Add(Me.RadGlobal) Me.PanSuche.Controls.Add(Me.RadGlobal)
Me.PanSuche.Controls.Add(Me.RadNurNetzwerk) Me.PanSuche.Controls.Add(Me.RadNurNetzwerk)
Me.PanSuche.Controls.Add(Me.RadStandort) Me.PanSuche.Controls.Add(Me.RadStandort)
Me.PanSuche.Location = New System.Drawing.Point(627, 49) Me.PanSuche.Location = New System.Drawing.Point(660, 49)
Me.PanSuche.Name = "PanSuche" Me.PanSuche.Name = "PanSuche"
Me.PanSuche.Size = New System.Drawing.Size(314, 31) Me.PanSuche.Size = New System.Drawing.Size(314, 31)
Me.PanSuche.TabIndex = 11 Me.PanSuche.TabIndex = 11
@@ -344,7 +351,7 @@ Partial Class Main
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO}) Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem2, Me.ToolStripMenuItemINFO})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1581, 24) Me.MenuStrip1.Size = New System.Drawing.Size(1614, 24)
Me.MenuStrip1.TabIndex = 2 Me.MenuStrip1.TabIndex = 2
Me.MenuStrip1.Text = "MenuStrip1" Me.MenuStrip1.Text = "MenuStrip1"
' '
@@ -352,60 +359,60 @@ Partial Class Main
' '
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NetzwerkeToolStripMenuItem, Me.AnsichtDruckenToolStripMenuItem, Me.ExportToolStripMenuItem, Me.ImportToolStripMenuItem, Me.BenutzerToolStripMenuItem, Me.AllesSichernCSVToolStripMenuItem, Me.ToolStripSeparator1, Me.UpdateToolStripMenuItem, Me.ExitToolStripMenuItem}) Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NetzwerkeToolStripMenuItem, Me.AnsichtDruckenToolStripMenuItem, Me.ExportToolStripMenuItem, Me.ImportToolStripMenuItem, Me.BenutzerToolStripMenuItem, Me.AllesSichernCSVToolStripMenuItem, Me.ToolStripSeparator1, Me.UpdateToolStripMenuItem, Me.ExitToolStripMenuItem})
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(50, 20) Me.ToolStripMenuItem1.Size = New System.Drawing.Size(49, 20)
Me.ToolStripMenuItem1.Text = "Extras" Me.ToolStripMenuItem1.Text = "Extras"
' '
'NetzwerkeToolStripMenuItem 'NetzwerkeToolStripMenuItem
' '
Me.NetzwerkeToolStripMenuItem.Name = "NetzwerkeToolStripMenuItem" Me.NetzwerkeToolStripMenuItem.Name = "NetzwerkeToolStripMenuItem"
Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(176, 22) Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.NetzwerkeToolStripMenuItem.Text = "Tabellen bearbeiten" Me.NetzwerkeToolStripMenuItem.Text = "Tabellen bearbeiten"
' '
'AnsichtDruckenToolStripMenuItem 'AnsichtDruckenToolStripMenuItem
' '
Me.AnsichtDruckenToolStripMenuItem.Name = "AnsichtDruckenToolStripMenuItem" Me.AnsichtDruckenToolStripMenuItem.Name = "AnsichtDruckenToolStripMenuItem"
Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(176, 22) Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.AnsichtDruckenToolStripMenuItem.Text = "Drucken" Me.AnsichtDruckenToolStripMenuItem.Text = "Drucken"
' '
'ExportToolStripMenuItem 'ExportToolStripMenuItem
' '
Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem" Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(176, 22) Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.ExportToolStripMenuItem.Text = "Export" Me.ExportToolStripMenuItem.Text = "Export"
' '
'ImportToolStripMenuItem 'ImportToolStripMenuItem
' '
Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem" Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem"
Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(176, 22) Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.ImportToolStripMenuItem.Text = "Import" Me.ImportToolStripMenuItem.Text = "Import"
' '
'BenutzerToolStripMenuItem 'BenutzerToolStripMenuItem
' '
Me.BenutzerToolStripMenuItem.Name = "BenutzerToolStripMenuItem" Me.BenutzerToolStripMenuItem.Name = "BenutzerToolStripMenuItem"
Me.BenutzerToolStripMenuItem.Size = New System.Drawing.Size(176, 22) Me.BenutzerToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.BenutzerToolStripMenuItem.Text = "Benutzer" Me.BenutzerToolStripMenuItem.Text = "Benutzer"
' '
'AllesSichernCSVToolStripMenuItem 'AllesSichernCSVToolStripMenuItem
' '
Me.AllesSichernCSVToolStripMenuItem.Name = "AllesSichernCSVToolStripMenuItem" Me.AllesSichernCSVToolStripMenuItem.Name = "AllesSichernCSVToolStripMenuItem"
Me.AllesSichernCSVToolStripMenuItem.Size = New System.Drawing.Size(176, 22) Me.AllesSichernCSVToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.AllesSichernCSVToolStripMenuItem.Text = "Alles Sichern (CSV)" Me.AllesSichernCSVToolStripMenuItem.Text = "Alles Sichern (CSV)"
' '
'ToolStripSeparator1 'ToolStripSeparator1
' '
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(173, 6) Me.ToolStripSeparator1.Size = New System.Drawing.Size(174, 6)
' '
'UpdateToolStripMenuItem 'UpdateToolStripMenuItem
' '
Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem" Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(176, 22) Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.UpdateToolStripMenuItem.Text = "Update" Me.UpdateToolStripMenuItem.Text = "Update"
' '
'ExitToolStripMenuItem 'ExitToolStripMenuItem
' '
Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem" Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(176, 22) Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
Me.ExitToolStripMenuItem.Text = "Exit" Me.ExitToolStripMenuItem.Text = "Exit"
' '
'ToolStripMenuItem2 'ToolStripMenuItem2
@@ -420,9 +427,25 @@ Partial Class Main
Me.ToolStripMenuItemINFO.Size = New System.Drawing.Size(24, 20) Me.ToolStripMenuItemINFO.Size = New System.Drawing.Size(24, 20)
Me.ToolStripMenuItemINFO.Text = "?" Me.ToolStripMenuItemINFO.Text = "?"
' '
'btnBenutzerverwaltung
'
Me.btnBenutzerverwaltung.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnBenutzerverwaltung.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnBenutzerverwaltung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBenutzerverwaltung.Image = Global.Dokumentation.My.Resources.Resources.Admin20
Me.btnBenutzerverwaltung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(25, 695)
Me.btnBenutzerverwaltung.Name = "btnBenutzerverwaltung"
Me.btnBenutzerverwaltung.Size = New System.Drawing.Size(151, 28)
Me.btnBenutzerverwaltung.TabIndex = 20
Me.btnBenutzerverwaltung.Text = "Benutzerverwaltung"
Me.btnBenutzerverwaltung.UseVisualStyleBackColor = False
'
'Panel3 'Panel3
' '
Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel3.Controls.Add(Me.Label20)
Me.Panel3.Controls.Add(Me.picAVISOMessenger)
Me.Panel3.Controls.Add(Me.btnBenutzerverwaltung) Me.Panel3.Controls.Add(Me.btnBenutzerverwaltung)
Me.Panel3.Controls.Add(Me.chkTSSitzungen) Me.Panel3.Controls.Add(Me.chkTSSitzungen)
Me.Panel3.Controls.Add(Me.lblCount) Me.Panel3.Controls.Add(Me.lblCount)
@@ -442,9 +465,35 @@ Partial Class Main
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel3.Location = New System.Drawing.Point(0, 130) Me.Panel3.Location = New System.Drawing.Point(0, 130)
Me.Panel3.Name = "Panel3" Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(200, 854) Me.Panel3.Size = New System.Drawing.Size(200, 921)
Me.Panel3.TabIndex = 2 Me.Panel3.TabIndex = 2
' '
'Label20
'
Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Label20.BackColor = System.Drawing.Color.Red
Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label20.ForeColor = System.Drawing.Color.White
Me.Label20.Location = New System.Drawing.Point(148, 862)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(28, 19)
Me.Label20.TabIndex = 42
Me.Label20.Text = "99"
Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.Label20.Visible = False
'
'picAVISOMessenger
'
Me.picAVISOMessenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.picAVISOMessenger.BackgroundImage = Global.Dokumentation.My.Resources.Resources.aviso_messenger
Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
Me.picAVISOMessenger.Location = New System.Drawing.Point(107, 821)
Me.picAVISOMessenger.Name = "picAVISOMessenger"
Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
Me.picAVISOMessenger.TabIndex = 41
Me.picAVISOMessenger.TabStop = False
'
'chkTSSitzungen 'chkTSSitzungen
' '
Me.chkTSSitzungen.AutoSize = True Me.chkTSSitzungen.AutoSize = True
@@ -458,7 +507,7 @@ Partial Class Main
'lblCount 'lblCount
' '
Me.lblCount.AutoSize = True Me.lblCount.AutoSize = True
Me.lblCount.Location = New System.Drawing.Point(12, 832) Me.lblCount.Location = New System.Drawing.Point(12, 899)
Me.lblCount.Name = "lblCount" Me.lblCount.Name = "lblCount"
Me.lblCount.Size = New System.Drawing.Size(45, 13) Me.lblCount.Size = New System.Drawing.Size(45, 13)
Me.lblCount.TabIndex = 18 Me.lblCount.TabIndex = 18
@@ -471,7 +520,7 @@ Partial Class Main
Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNeu.Image = Global.Dokumentation.My.Resources.Resources.Bearbeiten20 Me.btnNeu.Image = Global.Dokumentation.My.Resources.Resources.Bearbeiten20
Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNeu.Location = New System.Drawing.Point(25, 447) Me.btnNeu.Location = New System.Drawing.Point(25, 476)
Me.btnNeu.Name = "btnNeu" Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(151, 28) Me.btnNeu.Size = New System.Drawing.Size(151, 28)
Me.btnNeu.TabIndex = 17 Me.btnNeu.TabIndex = 17
@@ -483,7 +532,7 @@ Partial Class Main
Me.ChkDHCPClients.AutoSize = True Me.ChkDHCPClients.AutoSize = True
Me.ChkDHCPClients.Checked = True Me.ChkDHCPClients.Checked = True
Me.ChkDHCPClients.CheckState = System.Windows.Forms.CheckState.Checked Me.ChkDHCPClients.CheckState = System.Windows.Forms.CheckState.Checked
Me.ChkDHCPClients.Location = New System.Drawing.Point(25, 628) Me.ChkDHCPClients.Location = New System.Drawing.Point(25, 662)
Me.ChkDHCPClients.Name = "ChkDHCPClients" Me.ChkDHCPClients.Name = "ChkDHCPClients"
Me.ChkDHCPClients.Size = New System.Drawing.Size(136, 17) Me.ChkDHCPClients.Size = New System.Drawing.Size(136, 17)
Me.ChkDHCPClients.TabIndex = 16 Me.ChkDHCPClients.TabIndex = 16
@@ -493,7 +542,7 @@ Partial Class Main
'ChkFreieHosts 'ChkFreieHosts
' '
Me.ChkFreieHosts.AutoSize = True Me.ChkFreieHosts.AutoSize = True
Me.ChkFreieHosts.Location = New System.Drawing.Point(25, 605) Me.ChkFreieHosts.Location = New System.Drawing.Point(25, 639)
Me.ChkFreieHosts.Name = "ChkFreieHosts" Me.ChkFreieHosts.Name = "ChkFreieHosts"
Me.ChkFreieHosts.Size = New System.Drawing.Size(122, 17) Me.ChkFreieHosts.Size = New System.Drawing.Size(122, 17)
Me.ChkFreieHosts.TabIndex = 15 Me.ChkFreieHosts.TabIndex = 15
@@ -505,7 +554,7 @@ Partial Class Main
Me.ChkKompAnsicht.AutoSize = True Me.ChkKompAnsicht.AutoSize = True
Me.ChkKompAnsicht.Checked = True Me.ChkKompAnsicht.Checked = True
Me.ChkKompAnsicht.CheckState = System.Windows.Forms.CheckState.Checked Me.ChkKompAnsicht.CheckState = System.Windows.Forms.CheckState.Checked
Me.ChkKompAnsicht.Location = New System.Drawing.Point(25, 582) Me.ChkKompAnsicht.Location = New System.Drawing.Point(25, 616)
Me.ChkKompAnsicht.Name = "ChkKompAnsicht" Me.ChkKompAnsicht.Name = "ChkKompAnsicht"
Me.ChkKompAnsicht.Size = New System.Drawing.Size(124, 17) Me.ChkKompAnsicht.Size = New System.Drawing.Size(124, 17)
Me.ChkKompAnsicht.TabIndex = 14 Me.ChkKompAnsicht.TabIndex = 14
@@ -516,7 +565,7 @@ Partial Class Main
' '
Me.PanNetzwerk.Controls.Add(Me.CmdNWDateien) Me.PanNetzwerk.Controls.Add(Me.CmdNWDateien)
Me.PanNetzwerk.Controls.Add(Me.CmdNetzwerkbearbeiten) Me.PanNetzwerk.Controls.Add(Me.CmdNetzwerkbearbeiten)
Me.PanNetzwerk.Location = New System.Drawing.Point(6, 491) Me.PanNetzwerk.Location = New System.Drawing.Point(3, 525)
Me.PanNetzwerk.Name = "PanNetzwerk" Me.PanNetzwerk.Name = "PanNetzwerk"
Me.PanNetzwerk.Size = New System.Drawing.Size(191, 85) Me.PanNetzwerk.Size = New System.Drawing.Size(191, 85)
Me.PanNetzwerk.TabIndex = 13 Me.PanNetzwerk.TabIndex = 13
@@ -528,7 +577,7 @@ Partial Class Main
Me.CmdNWDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.CmdNWDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdNWDateien.Image = Global.Dokumentation.My.Resources.Resources.Folder20 Me.CmdNWDateien.Image = Global.Dokumentation.My.Resources.Resources.Folder20
Me.CmdNWDateien.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.CmdNWDateien.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdNWDateien.Location = New System.Drawing.Point(19, 11) Me.CmdNWDateien.Location = New System.Drawing.Point(22, 11)
Me.CmdNWDateien.Name = "CmdNWDateien" Me.CmdNWDateien.Name = "CmdNWDateien"
Me.CmdNWDateien.Size = New System.Drawing.Size(151, 28) Me.CmdNWDateien.Size = New System.Drawing.Size(151, 28)
Me.CmdNWDateien.TabIndex = 15 Me.CmdNWDateien.TabIndex = 15
@@ -542,7 +591,7 @@ Partial Class Main
Me.CmdNetzwerkbearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.CmdNetzwerkbearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdNetzwerkbearbeiten.Image = Global.Dokumentation.My.Resources.Resources.Netzwerk20 Me.CmdNetzwerkbearbeiten.Image = Global.Dokumentation.My.Resources.Resources.Netzwerk20
Me.CmdNetzwerkbearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.CmdNetzwerkbearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdNetzwerkbearbeiten.Location = New System.Drawing.Point(19, 45) Me.CmdNetzwerkbearbeiten.Location = New System.Drawing.Point(22, 45)
Me.CmdNetzwerkbearbeiten.Name = "CmdNetzwerkbearbeiten" Me.CmdNetzwerkbearbeiten.Name = "CmdNetzwerkbearbeiten"
Me.CmdNetzwerkbearbeiten.Size = New System.Drawing.Size(151, 28) Me.CmdNetzwerkbearbeiten.Size = New System.Drawing.Size(151, 28)
Me.CmdNetzwerkbearbeiten.TabIndex = 8 Me.CmdNetzwerkbearbeiten.TabIndex = 8
@@ -556,7 +605,7 @@ Partial Class Main
Me.CmDBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.CmDBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmDBearbeiten.Image = Global.Dokumentation.My.Resources.Resources.Bearbeiten20 Me.CmDBearbeiten.Image = Global.Dokumentation.My.Resources.Resources.Bearbeiten20
Me.CmDBearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.CmDBearbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmDBearbeiten.Location = New System.Drawing.Point(25, 413) Me.CmDBearbeiten.Location = New System.Drawing.Point(25, 442)
Me.CmDBearbeiten.Name = "CmDBearbeiten" Me.CmDBearbeiten.Name = "CmDBearbeiten"
Me.CmDBearbeiten.Size = New System.Drawing.Size(151, 28) Me.CmDBearbeiten.Size = New System.Drawing.Size(151, 28)
Me.CmDBearbeiten.TabIndex = 6 Me.CmDBearbeiten.TabIndex = 6
@@ -570,7 +619,7 @@ Partial Class Main
Me.CmdFiles.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.CmdFiles.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdFiles.Image = Global.Dokumentation.My.Resources.Resources.Folder20 Me.CmdFiles.Image = Global.Dokumentation.My.Resources.Resources.Folder20
Me.CmdFiles.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.CmdFiles.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdFiles.Location = New System.Drawing.Point(25, 379) Me.CmdFiles.Location = New System.Drawing.Point(25, 408)
Me.CmdFiles.Name = "CmdFiles" Me.CmdFiles.Name = "CmdFiles"
Me.CmdFiles.Size = New System.Drawing.Size(151, 28) Me.CmdFiles.Size = New System.Drawing.Size(151, 28)
Me.CmdFiles.TabIndex = 12 Me.CmdFiles.TabIndex = 12
@@ -581,7 +630,7 @@ Partial Class Main
' '
Me.LstAllgemein.BackColor = System.Drawing.SystemColors.ControlLightLight Me.LstAllgemein.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.LstAllgemein.FormattingEnabled = True Me.LstAllgemein.FormattingEnabled = True
Me.LstAllgemein.Location = New System.Drawing.Point(25, 244) Me.LstAllgemein.Location = New System.Drawing.Point(25, 273)
Me.LstAllgemein.Name = "LstAllgemein" Me.LstAllgemein.Name = "LstAllgemein"
Me.LstAllgemein.Size = New System.Drawing.Size(151, 95) Me.LstAllgemein.Size = New System.Drawing.Size(151, 95)
Me.LstAllgemein.TabIndex = 11 Me.LstAllgemein.TabIndex = 11
@@ -603,7 +652,7 @@ Partial Class Main
Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdLink.Image = Global.Dokumentation.My.Resources.Resources.Link20 Me.CmdLink.Image = Global.Dokumentation.My.Resources.Resources.Link20
Me.CmdLink.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.CmdLink.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.CmdLink.Location = New System.Drawing.Point(25, 345) Me.CmdLink.Location = New System.Drawing.Point(25, 374)
Me.CmdLink.Name = "CmdLink" Me.CmdLink.Name = "CmdLink"
Me.CmdLink.Size = New System.Drawing.Size(151, 28) Me.CmdLink.Size = New System.Drawing.Size(151, 28)
Me.CmdLink.TabIndex = 9 Me.CmdLink.TabIndex = 9
@@ -624,7 +673,7 @@ Partial Class Main
' '
Me.LstNetzwerk.BackColor = System.Drawing.SystemColors.ControlLightLight Me.LstNetzwerk.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.LstNetzwerk.FormattingEnabled = True Me.LstNetzwerk.FormattingEnabled = True
Me.LstNetzwerk.Location = New System.Drawing.Point(23, 107) Me.LstNetzwerk.Location = New System.Drawing.Point(25, 172)
Me.LstNetzwerk.Name = "LstNetzwerk" Me.LstNetzwerk.Name = "LstNetzwerk"
Me.LstNetzwerk.Size = New System.Drawing.Size(151, 95) Me.LstNetzwerk.Size = New System.Drawing.Size(151, 95)
Me.LstNetzwerk.TabIndex = 1 Me.LstNetzwerk.TabIndex = 1
@@ -633,15 +682,15 @@ Partial Class Main
' '
Me.LstStandort.BackColor = System.Drawing.SystemColors.ControlLightLight Me.LstStandort.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.LstStandort.FormattingEnabled = True Me.LstStandort.FormattingEnabled = True
Me.LstStandort.Location = New System.Drawing.Point(23, 6) Me.LstStandort.Location = New System.Drawing.Point(25, 6)
Me.LstStandort.Name = "LstStandort" Me.LstStandort.Name = "LstStandort"
Me.LstStandort.Size = New System.Drawing.Size(151, 95) Me.LstStandort.Size = New System.Drawing.Size(151, 160)
Me.LstStandort.TabIndex = 0 Me.LstStandort.TabIndex = 0
' '
'CMdTest2 'CMdTest2
' '
Me.CMdTest2.Dock = System.Windows.Forms.DockStyle.Right Me.CMdTest2.Dock = System.Windows.Forms.DockStyle.Right
Me.CMdTest2.Location = New System.Drawing.Point(941, 0) Me.CMdTest2.Location = New System.Drawing.Point(974, 0)
Me.CMdTest2.Name = "CMdTest2" Me.CMdTest2.Name = "CMdTest2"
Me.CMdTest2.Size = New System.Drawing.Size(75, 100) Me.CMdTest2.Size = New System.Drawing.Size(75, 100)
Me.CMdTest2.TabIndex = 3 Me.CMdTest2.TabIndex = 3
@@ -651,7 +700,7 @@ Partial Class Main
'CmdTest 'CmdTest
' '
Me.CmdTest.Dock = System.Windows.Forms.DockStyle.Right Me.CmdTest.Dock = System.Windows.Forms.DockStyle.Right
Me.CmdTest.Location = New System.Drawing.Point(866, 0) Me.CmdTest.Location = New System.Drawing.Point(899, 0)
Me.CmdTest.Name = "CmdTest" Me.CmdTest.Name = "CmdTest"
Me.CmdTest.Size = New System.Drawing.Size(75, 100) Me.CmdTest.Size = New System.Drawing.Size(75, 100)
Me.CmdTest.TabIndex = 2 Me.CmdTest.TabIndex = 2
@@ -672,7 +721,18 @@ Partial Class Main
' '
'DgVMain 'DgVMain
' '
Me.DgVMain.AllowUserToAddRows = False
Me.DgVMain.AllowUserToDeleteRows = False
Me.DgVMain.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.DgVMain.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
Me.DgVMain.BorderStyle = System.Windows.Forms.BorderStyle.None
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DgVMain.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.DgVMain.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DgVMain.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DgVMain.ContextMenuStrip = Me.DGVMainContext Me.DgVMain.ContextMenuStrip = Me.DGVMainContext
Me.DgVMain.Dock = System.Windows.Forms.DockStyle.Fill Me.DgVMain.Dock = System.Windows.Forms.DockStyle.Fill
@@ -680,15 +740,17 @@ Partial Class Main
Me.DgVMain.MultiSelect = False Me.DgVMain.MultiSelect = False
Me.DgVMain.Name = "DgVMain" Me.DgVMain.Name = "DgVMain"
Me.DgVMain.ReadOnly = True Me.DgVMain.ReadOnly = True
Me.DgVMain.RowHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single]
Me.DgVMain.RowHeadersVisible = False
Me.DgVMain.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.DgVMain.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DgVMain.Size = New System.Drawing.Size(1016, 754) Me.DgVMain.Size = New System.Drawing.Size(1049, 821)
Me.DgVMain.TabIndex = 3 Me.DgVMain.TabIndex = 3
' '
'DGVMainContext 'DGVMainContext
' '
Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.ErstellenToolStripMenuItem, Me.DateienToolStripMenuItem, Me.SMBToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem}) Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.DateienToolStripMenuItem, Me.SMBToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
Me.DGVMainContext.Name = "ContextMenuStrip2" Me.DGVMainContext.Name = "ContextMenuStrip2"
Me.DGVMainContext.Size = New System.Drawing.Size(230, 236) Me.DGVMainContext.Size = New System.Drawing.Size(230, 214)
' '
'DgvMainContextMenuItemHost 'DgvMainContextMenuItemHost
' '
@@ -696,12 +758,6 @@ Partial Class Main
Me.DgvMainContextMenuItemHost.Size = New System.Drawing.Size(229, 22) Me.DgvMainContextMenuItemHost.Size = New System.Drawing.Size(229, 22)
Me.DgvMainContextMenuItemHost.Text = "Bearbeiten" Me.DgvMainContextMenuItemHost.Text = "Bearbeiten"
' '
'ErstellenToolStripMenuItem
'
Me.ErstellenToolStripMenuItem.Name = "ErstellenToolStripMenuItem"
Me.ErstellenToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
Me.ErstellenToolStripMenuItem.Text = "Erstellen"
'
'DateienToolStripMenuItem 'DateienToolStripMenuItem
' '
Me.DateienToolStripMenuItem.Name = "DateienToolStripMenuItem" Me.DateienToolStripMenuItem.Name = "DateienToolStripMenuItem"
@@ -790,9 +846,9 @@ Partial Class Main
Me.PanTools.Controls.Add(Me.CmdTest) Me.PanTools.Controls.Add(Me.CmdTest)
Me.PanTools.Controls.Add(Me.CMdTest2) Me.PanTools.Controls.Add(Me.CMdTest2)
Me.PanTools.Dock = System.Windows.Forms.DockStyle.Bottom Me.PanTools.Dock = System.Windows.Forms.DockStyle.Bottom
Me.PanTools.Location = New System.Drawing.Point(200, 884) Me.PanTools.Location = New System.Drawing.Point(200, 951)
Me.PanTools.Name = "PanTools" Me.PanTools.Name = "PanTools"
Me.PanTools.Size = New System.Drawing.Size(1016, 100) Me.PanTools.Size = New System.Drawing.Size(1049, 100)
Me.PanTools.TabIndex = 4 Me.PanTools.TabIndex = 4
Me.PanTools.Visible = False Me.PanTools.Visible = False
' '
@@ -811,7 +867,7 @@ Partial Class Main
'btnTest3 'btnTest3
' '
Me.btnTest3.Dock = System.Windows.Forms.DockStyle.Right Me.btnTest3.Dock = System.Windows.Forms.DockStyle.Right
Me.btnTest3.Location = New System.Drawing.Point(791, 0) Me.btnTest3.Location = New System.Drawing.Point(824, 0)
Me.btnTest3.Name = "btnTest3" Me.btnTest3.Name = "btnTest3"
Me.btnTest3.Size = New System.Drawing.Size(75, 100) Me.btnTest3.Size = New System.Drawing.Size(75, 100)
Me.btnTest3.TabIndex = 13 Me.btnTest3.TabIndex = 13
@@ -862,17 +918,22 @@ Partial Class Main
'panTSSitzungen 'panTSSitzungen
' '
Me.panTSSitzungen.Dock = System.Windows.Forms.DockStyle.Right Me.panTSSitzungen.Dock = System.Windows.Forms.DockStyle.Right
Me.panTSSitzungen.Location = New System.Drawing.Point(1216, 130) Me.panTSSitzungen.Location = New System.Drawing.Point(1249, 130)
Me.panTSSitzungen.Name = "panTSSitzungen" Me.panTSSitzungen.Name = "panTSSitzungen"
Me.panTSSitzungen.Size = New System.Drawing.Size(365, 854) Me.panTSSitzungen.Size = New System.Drawing.Size(365, 921)
Me.panTSSitzungen.TabIndex = 5 Me.panTSSitzungen.TabIndex = 5
Me.panTSSitzungen.Visible = False Me.panTSSitzungen.Visible = False
' '
'Timer_Refresh
'
Me.Timer_Refresh.Enabled = True
Me.Timer_Refresh.Interval = 5000
'
'Main 'Main
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1581, 984) Me.ClientSize = New System.Drawing.Size(1614, 1051)
Me.Controls.Add(Me.DgVMain) Me.Controls.Add(Me.DgVMain)
Me.Controls.Add(Me.PanTools) Me.Controls.Add(Me.PanTools)
Me.Controls.Add(Me.panTSSitzungen) Me.Controls.Add(Me.panTSSitzungen)
@@ -882,6 +943,7 @@ Partial Class Main
Me.MainMenuStrip = Me.MenuStrip1 Me.MainMenuStrip = Me.MenuStrip1
Me.MinimumSize = New System.Drawing.Size(1024, 740) Me.MinimumSize = New System.Drawing.Size(1024, 740)
Me.Name = "Main" Me.Name = "Main"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Dokumentation" Me.Text = "Dokumentation"
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout() Me.Panel2.PerformLayout()
@@ -898,6 +960,7 @@ Partial Class Main
Me.MenuStrip1.PerformLayout() Me.MenuStrip1.PerformLayout()
Me.Panel3.ResumeLayout(False) Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout() Me.Panel3.PerformLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
Me.PanNetzwerk.ResumeLayout(False) Me.PanNetzwerk.ResumeLayout(False)
CType(Me.DgVMain, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DgVMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.DGVMainContext.ResumeLayout(False) Me.DGVMainContext.ResumeLayout(False)
@@ -942,7 +1005,6 @@ Partial Class Main
Friend WithEvents PanNetzwerk As Panel Friend WithEvents PanNetzwerk As Panel
Friend WithEvents PanSuche As Panel Friend WithEvents PanSuche As Panel
Friend WithEvents PanType As Panel Friend WithEvents PanType As Panel
Friend WithEvents ErstellenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ChkKompAnsicht As CheckBox Friend WithEvents ChkKompAnsicht As CheckBox
Friend WithEvents ExportToolStripMenuItem As ToolStripMenuItem Friend WithEvents ExportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ImportToolStripMenuItem As ToolStripMenuItem Friend WithEvents ImportToolStripMenuItem As ToolStripMenuItem
@@ -987,4 +1049,9 @@ Partial Class Main
Friend WithEvents chkTSSitzungen As CheckBox Friend WithEvents chkTSSitzungen As CheckBox
Friend WithEvents TeamviewerVerbindenToolStripMenuItem As ToolStripMenuItem Friend WithEvents TeamviewerVerbindenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnBenutzerverwaltung As Button Friend WithEvents btnBenutzerverwaltung As Button
Friend WithEvents picAVISOMessenger As PictureBox
Friend WithEvents Label20 As Label
Friend WithEvents Timer_Refresh As Timer
Friend WithEvents Timer1 As Timer
Friend WithEvents Button1 As Button
End Class End Class

6
Dokumentation/Main.resx
View File

@@ -292,6 +292,12 @@
<metadata name="TimerWillkommen.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerWillkommen.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>788, 17</value> <value>788, 17</value>
</metadata> </metadata>
<metadata name="Timer_Refresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>939, 17</value>
</metadata>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1067, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>59</value> <value>59</value>
</metadata> </metadata>

267
Dokumentation/Main.vb
View File

@@ -32,6 +32,8 @@ Public Class Main
Public printds As DataSet = Nothing Public printds As DataSet = Nothing
Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -190,7 +192,10 @@ Public Class Main
'MsgBox(LstStandort.Items.Count) 'MsgBox(LstStandort.Items.Count)
If Class1.LoggedOnUser.Domäne = "verag.ost.dmn" Then If Class1.LoggedOnUser.Domäne = "verag.ost.dmn" Then
LstStandort.SelectedItem = "Verag_SUB" Try
LstStandort.SelectedItem = "Verag_SUB"
Catch
End Try
' MsgBox("Hier") ' MsgBox("Hier")
Else Else
LstStandort.SelectedIndex = 0 LstStandort.SelectedIndex = 0
@@ -532,18 +537,19 @@ Public Class Main
MsgBox("With DGV: " & ex.Message) MsgBox("With DGV: " & ex.Message)
End Try End Try
Try
If SelectedDGVIndex < DgVMain.Rows.Count - 1 Then If SelectedDGVIndex < DgVMain.Rows.Count - 1 Then
Try Try
DgVMain.ClearSelection() DgVMain.ClearSelection()
DgVMain.Rows(SelectedDGVIndex).Selected = True DgVMain.Rows(SelectedDGVIndex).Selected = True
DgVMain.FirstDisplayedScrollingRowIndex = FirstDisplayedDGVEntry DgVMain.FirstDisplayedScrollingRowIndex = FirstDisplayedDGVEntry
Catch Catch
End Try End Try
Else Else
DgVMain.Rows(0).Selected = True DgVMain.Rows(0).Selected = True
End If End If
Catch
End Try
''--------------------------------------------------------------------------------------------------------/START//Farbig hervorheben, Check DHCP Filter ''--------------------------------------------------------------------------------------------------------/START//Farbig hervorheben, Check DHCP Filter
Dim indexDHCP As Integer = DgVMain.Columns("DHCP").Index Dim indexDHCP As Integer = DgVMain.Columns("DHCP").Index
@@ -669,9 +675,7 @@ Public Class Main
End Sub End Sub
Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
Dim test As New cDomUser Class1.CopyDirectory("\\\\datenarchiv.verag.ost.dmn\Datenarchiv\DOKUMENTE\CHAT_EMOJIS\", sAppPath & "\Test\")
test.getDomUserByID("7a5ea2da4ec34c74b3145bf090b39631")
MsgBox(test.du_Nachname)
End Sub End Sub
Public Function GetDHCPClients(Netzwerk As String, DHCPServer As String, Fill As Boolean, ByRef ds As DataSet) Public Function GetDHCPClients(Netzwerk As String, DHCPServer As String, Fill As Boolean, ByRef ds As DataSet)
@@ -773,10 +777,7 @@ Public Class Main
NetzwerkAdmin.Show() NetzwerkAdmin.Show()
End Sub End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
LstStandortLoad()
NetzwerkInfoAnzeige()
End Sub
Private Sub TxtSuche_TextChanged(sender As Object, e As EventArgs) Handles TxtSuche.TextChanged, RadNurNetzwerk.CheckedChanged, RadGlobal.CheckedChanged, RadStandort.CheckedChanged, LstType.SelectedIndexChanged ', TxtSuche.MouseClick Private Sub TxtSuche_TextChanged(sender As Object, e As EventArgs) Handles TxtSuche.TextChanged, RadNurNetzwerk.CheckedChanged, RadGlobal.CheckedChanged, RadStandort.CheckedChanged, LstType.SelectedIndexChanged ', TxtSuche.MouseClick
If TxtSuche.TextLength < 1 And LstType.SelectedItem = "" Then If TxtSuche.TextLength < 1 And LstType.SelectedItem = "" Then
@@ -800,7 +801,7 @@ Public Class Main
TypeFilter() TypeFilter()
End Sub End Sub
Private Sub DgvMainContextMenuItemHost_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemHost.Click, CmDBearbeiten.Click, DgVMain.CellDoubleClick, DgVMain.RowHeaderMouseDoubleClick Private Sub DgvMainContextMenuItemHost_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemHost.Click, CmDBearbeiten.Click, DgVMain.CellDoubleClick ', DgVMain.RowHeaderMouseDoubleClick
If Tabelle = "TbL_Netzwerkclients" Then If Tabelle = "TbL_Netzwerkclients" Then
Dim frm As New frmHostBearbeiten Dim frm As New frmHostBearbeiten
Try Try
@@ -896,16 +897,16 @@ Public Class Main
Private Sub DgvMainContextMenuItemPutty_Click(sender As Object, e As EventArgs) Private Sub DgvMainContextMenuItemPutty_Click(sender As Object, e As EventArgs)
werbinich() werbinich()
Ext_Programme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value)) cExtProgramme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
End Sub End Sub
Private Sub DgvMainContextMenuItemLink_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemLink.Click, CmdLink.Click Private Sub DgvMainContextMenuItemLink_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemLink.Click, CmdLink.Click
werbinich() werbinich()
Ext_Programme.startlink(DgVMain.CurrentRow.Cells("Link").Value) cExtProgramme.startlink(DgVMain.CurrentRow.Cells("Link").Value)
End Sub End Sub
Private Sub CmdPutty_Click(sender As Object, e As EventArgs) Handles CmdPutty.Click, PuttyToolStripMenuItem.Click Private Sub CmdPutty_Click(sender As Object, e As EventArgs) Handles CmdPutty.Click, PuttyToolStripMenuItem.Click
Ext_Programme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value)) cExtProgramme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
End Sub End Sub
Private Sub ChkTools_CheckedChanged(sender As Object, e As EventArgs) Handles ChkTools.CheckedChanged Private Sub ChkTools_CheckedChanged(sender As Object, e As EventArgs) Handles ChkTools.CheckedChanged
@@ -917,15 +918,14 @@ Public Class Main
End Sub End Sub
Private Sub CmdPing_Click(sender As Object, e As EventArgs) Handles CmdPing.Click, PingToolStripMenuItem.Click Private Sub CmdPing_Click(sender As Object, e As EventArgs) Handles CmdPing.Click, PingToolStripMenuItem.Click
Ext_Programme.pingip(DgVMain.CurrentRow.Cells("IPAdresse").Value) cExtProgramme.pingip(DgVMain.CurrentRow.Cells("IPAdresse").Value)
End Sub End Sub
Private Sub CmdFiles_Click(sender As Object, e As EventArgs) Handles CmdFiles.Click, DateienToolStripMenuItem.Click Private Sub CmdFiles_Click(sender As Object, e As EventArgs) Handles CmdFiles.Click, DateienToolStripMenuItem.Click
If DgVMain.GetCellCount(DataGridViewElementStates.Selected) > 0 Then If DgVMain.GetCellCount(DataGridViewElementStates.Selected) = 0 Then Exit Sub
explorerstarten("Client") explorerstarten("Client")
Else
LblUhrzeit.Text = "Keine Auswahl getätigt"
End If
End Sub End Sub
Private Sub CmdNWDateien_Click(sender As Object, e As EventArgs) Handles CmdNWDateien.Click, NetzwerkdateienToolStripMenuItem.Click Private Sub CmdNWDateien_Click(sender As Object, e As EventArgs) Handles CmdNWDateien.Click, NetzwerkdateienToolStripMenuItem.Click
@@ -944,57 +944,7 @@ Public Class Main
If Tabelle = "TbL_Netzwerkclients" Then If Tabelle = "TbL_Netzwerkclients" Then
werbinich() werbinich()
If sender = "Client" Then If sender = "Client" Then
Try cFolder.explorerstarten(SenderIP) : Exit Function
'dbload()
'con.Open()
'Dim sda As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", con)
'sda.Fill(ds)
'con.Close()
cSQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", ds)
If IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
islinked = "0"
ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
islinked = ds.Tables(0).Rows(0).Item("Linked")
End If
If IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then
LinkedWith = ""
ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then
LinkedWith = ds.Tables(0).Rows(0).Item("LinkedWith")
End If
'Dim linked As Integer = ds.Tables(0).Rows(0).Item("Linked")
'Dim IPA As String = ds.Tables(0).Rows(0).Item("LinkedWith")
If islinked = "1" Then
Dim dslinked As New DataSet()
'dbload()
'con.Open()
'Dim da As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", con)
'da.Fill(dslinked)
'con.Close()
cSQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", dslinked)
Select Case art
Case "Dateien"
Path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("NWStandort") & "_" & dslinked.Tables(0).Rows(0).Item("NetName") & "\" & dslinked.Tables(0).Rows(0).Item("Host")
Case "SMB"
Path = "\\" & dslinked.Tables(0).Rows(0).Item("IPAdresse")
End Select
Else
Select Case art
Case "Dateien"
Path = Class1.FilePath & "\" & SenderStandort & "_" & SenderNetzwerk & "\" & SenderHost
Case "SMB"
Path = "\\" & SenderIP
End Select
End If
Catch ex As Exception
MsgBox("ExplorerStarten() Tbl_Netzwerkclients: " & ex.Message)
End Try
ElseIf sender = "Netzwerk" Then ElseIf sender = "Netzwerk" Then
Path = Class1.FilePath & "\" & SenderStandort & "_Allgemein" Path = Class1.FilePath & "\" & SenderStandort & "_Allgemein"
@@ -1004,40 +954,41 @@ Public Class Main
ElseIf Tabelle = "TbL_Allgemein" Then ElseIf Tabelle = "TbL_Allgemein" Then
Try Try
dbload() 'dbload()
con.Open() 'con.Open()
Dim sda As New SqlDataAdapter("Select * FROM TbL_Allgemein WHERE Rubrik='" & DgVMain.CurrentRow.Cells("Rubrik").Value & "' AND Titel='" & DgVMain.CurrentRow.Cells("Titel").Value & "'", con) 'Dim sda As New SqlDataAdapter("Select * FROM TbL_Allgemein WHERE Rubrik='" & DgVMain.CurrentRow.Cells("Rubrik").Value & "' AND Titel='" & DgVMain.CurrentRow.Cells("Titel").Value & "'", con)
sda.Fill(ds) 'sda.Fill(ds)
con.Close() 'con.Close()
cSQL.SQL2DS("Select * FROM TbL_Allgemein WHERE Rubrik='" & DgVMain.CurrentRow.Cells("Rubrik").Value & "' AND Titel='" & DgVMain.CurrentRow.Cells("Titel").Value & "'", ds)
Dim Info As String = ds.Tables(0).Rows(0).Item("Info") Dim Info As String = ds.Tables(0).Rows(0).Item("Info")
If IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then 'If IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
islinked = "0" ' islinked = "0"
ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then 'ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
islinked = ds.Tables(0).Rows(0).Item("Linked") ' islinked = ds.Tables(0).Rows(0).Item("Linked")
End If 'End If
If IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then 'If IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then
LinkedWith = "" ' LinkedWith = ""
ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then 'ElseIf Not IsDBNull(ds.Tables(0).Rows(0).Item("LinkedWith")) Then
LinkedWith = ds.Tables(0).Rows(0).Item("LinkedWith") ' LinkedWith = ds.Tables(0).Rows(0).Item("LinkedWith")
End If 'End If
If islinked = "1" Then 'If islinked = "1" Then
Dim dslinked As New DataSet() ' Dim dslinked As New DataSet()
dbload() ' dbload()
con.Open() ' con.Open()
Dim da As New SqlDataAdapter("SELECT * FROM Tbl_Allgemein WHERE LinkedWith='" & LinkedWith & "'", con) ' Dim da As New SqlDataAdapter("SELECT * FROM Tbl_Allgemein WHERE LinkedWith='" & LinkedWith & "'", con)
da.Fill(dslinked) ' da.Fill(dslinked)
con.Close() ' con.Close()
Path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("Rubrik") & "\" & dslinked.Tables(0).Rows(0).Item("Titel") '& "\" & dslinked.Tables(0).Rows(0).Item("Host") ' Path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("Rubrik") & "\" & dslinked.Tables(0).Rows(0).Item("Titel") '& "\" & dslinked.Tables(0).Rows(0).Item("Host")
Else 'Else
'MsgBox("not linked") ' 'MsgBox("not linked")
Path = Class1.FilePath & "\" & DgVMain.CurrentRow.Cells("Rubrik").Value & "\" & DgVMain.CurrentRow.Cells("Titel").Value '& "\" & SenderHost Path = Class1.FilePath & "\" & DgVMain.CurrentRow.Cells("Rubrik").Value & "\" & DgVMain.CurrentRow.Cells("Titel").Value '& "\" & SenderHost
End If 'End If
Catch ex As Exception Catch ex As Exception
MsgBox("ExplorerStarten() Tbl_Allgemein: " & ex.Message) MsgBox("ExplorerStarten() Tbl_Allgemein: " & ex.Message)
End Try End Try
@@ -1102,7 +1053,7 @@ Public Class Main
End If End If
End Function End Function
Private Sub ErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErstellenToolStripMenuItem.Click Private Sub ErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs)
neuerEintrag() neuerEintrag()
End Sub End Sub
@@ -1192,6 +1143,7 @@ Public Class Main
Catch ex As Exception Catch ex As Exception
MsgBox("Kann Versionen nicht vergleichen: " & ex.Message) MsgBox("Kann Versionen nicht vergleichen: " & ex.Message)
TimerUpdate.Enabled = False
End Try End Try
@@ -1211,7 +1163,7 @@ Public Class Main
End Sub End Sub
Private Sub TimerUpdate_Tick(sender As Object, e As EventArgs) Handles TimerUpdate.Tick Private Sub TimerUpdate_Tick(sender As Object, e As EventArgs) Handles TimerUpdate.Tick
If Class1.DebugMode = False Then CheckUpdate("Timer") If Class1.DebugMode = False Then CheckUpdate("Timer")
End Sub End Sub
@@ -1280,7 +1232,7 @@ Public Class Main
End Sub End Sub
Private Sub PingtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PingtToolStripMenuItem.Click, CmdPintT.Click Private Sub PingtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PingtToolStripMenuItem.Click, CmdPintT.Click
Ext_Programme.pingip(DgVMain.CurrentRow.Cells("IPAdresse").Value, " -t") cExtProgramme.pingip(DgVMain.CurrentRow.Cells("IPAdresse").Value, " -t")
End Sub End Sub
Private Sub AllesSichernCSVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllesSichernCSVToolStripMenuItem.Click Private Sub AllesSichernCSVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllesSichernCSVToolStripMenuItem.Click
@@ -1313,7 +1265,7 @@ Public Class Main
Dim Host2Connect As New cHost Dim Host2Connect As New cHost
Host2Connect.gethost(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value)) Host2Connect.gethost(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
If Host2Connect.TeamviewerID.Length > 1 Then If Host2Connect.TeamviewerID.Length > 1 Then
Ext_Programme.StartTeamviewer(Host2Connect.TeamviewerID, Host2Connect.TeamviewerKennwort) cExtProgramme.StartTeamviewer(Host2Connect.TeamviewerID, Host2Connect.TeamviewerKennwort)
Else Else
MsgBox("TeamviewerID nicht eingepflegt!") MsgBox("TeamviewerID nicht eingepflegt!")
End If End If
@@ -1333,8 +1285,96 @@ Public Class Main
End Function End Function
End Sub End Sub
Private Sub DgVMain_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DgVMain.CellContentClick Dim Timer_REFRESH_firstTime = True
Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_Refresh.Tick
If Timer_REFRESH_firstTime Then
Timer_REFRESH_firstTime = False
Exit Sub
End If
Try
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
' MsgBox(newMsg)
Label20.Text = newMsg
Label20.Visible = (newMsg > 0)
If newMsg Then
' Me.Icon = My.Resources.avisoNewMsg
Dim isshown = False
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is frmNotify Then
isshown = True
End If
Next
Dim isInFront = False
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
' If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then
If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then
isInFront = True
End If
End If
Next
If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
Else
' Me.Icon = My.Resources.Aviso
End If
If Label20.Visible Then Label20.BringToFront()
End If
Catch ex As Exception
End Try
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
Exit Sub
End If
Next
Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger
f.Location = Cursor.Position
f.Show(Me)
End Sub
Sub newNotify(art As frmNotify.cNotify_ART, title As Integer, text As String, id As Integer)
' Exit Sub 'NICHT AKTIV
Dim formTmp = Me.ActiveForm
Dim frmNotify As New frmNotify(art, title, text, id)
frmNotify.TimerInterval = 1200000 ' 20min
Dim tmpY As Integer = Me.Height
If tmpY <= 0 Then tmpY = My.Computer.Screen.WorkingArea.Height
For Each ft As Form In Application.OpenForms
' MsgBox(ft.GetType.ToString)
If ft.GetType.ToString = "frmNotify" Then
If ft.Location.Y < tmpY Then tmpY = ft.Location.Y
End If
Next
frmNotify.Y = tmpY - frmNotify.Height - 10
frmNotify.Show()
' If formTmp IsNot Nothing Then formTmp.Focus()
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste")
'MsgBox(DS.da_id)
DS.OPEN_SINGLE()
End Sub
Private Sub PictureBox1_Click_1(sender As Object, e As EventArgs) Handles PictureBox1.Click
LstStandortLoad()
'dgvload_filter
End Sub End Sub
Private Sub ObjektLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektLöschenToolStripMenuItem.Click Private Sub ObjektLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektLöschenToolStripMenuItem.Click
@@ -1463,6 +1503,7 @@ Public Class Main
End Sub End Sub
End Class End Class
'1208 '1208

42
Dokumentation/My Project/Resources.Designer.vb generated
View File

@@ -80,6 +80,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property aviso_messenger() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("aviso_messenger", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -90,6 +100,26 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property del() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("del", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property excel20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("excel20", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -100,6 +130,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Hakerl20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Hakerl20", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -229,7 +269,7 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.47 ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.56 ähnelt.
'''</summary> '''</summary>
Friend ReadOnly Property Version() As String Friend ReadOnly Property Version() As String
Get Get

90
Dokumentation/My Project/Resources.resx
View File

@@ -121,50 +121,32 @@
<data name="Folder20" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Folder20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Folder20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Folder20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Update" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Hakerl20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Update.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Hakerl20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Bearbeiten20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Bearbeiten20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mail20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>0.0.1.47</value>
</data>
<data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Print20x20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Print20x20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Netzwerk20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Netzwerk20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_putty_exe0001" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_putty_exe0001.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Programmname" xml:space="preserve">
<value>Dokumentation</value>
</data>
<data name="Link20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Print" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf512" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="msg" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="msg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\msg.exe;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>..\Resources\msg.exe;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="Programmcode" xml:space="preserve"> <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>DOKU</value> <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Link1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Bearbeiten20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Bearbeiten20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>0.0.1.56</value>
</data>
<data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_putty_exe0001" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_putty_exe0001.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Netzwerk20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Netzwerk20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="excel20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\excel20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Admin" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Admin" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -172,4 +154,34 @@
<data name="Admin20" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Admin20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Admin20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Admin20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Programmname" xml:space="preserve">
<value>Dokumentation</value>
</data>
<data name="Link20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Print20x20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Print20x20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Update" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Update.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Print" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf512" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mail20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Programmcode" xml:space="preserve">
<value>DOKU</value>
</data>
<data name="Link1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root> </root>

2
Dokumentation/My Project/Settings.Designer.vb generated
View File

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.2.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase

6
Dokumentation/My Project/licenses.licx
View File

@@ -1,2 +1,4 @@
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff GrapeCity.ActiveReports.PageReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12

BIN
Dokumentation/Resources/Hakerl20.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 599 B

BIN
Dokumentation/Resources/aviso_messenger.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

BIN
Dokumentation/Resources/del.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.4 KiB

BIN
Dokumentation/Resources/excel20.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1016 B

2
Dokumentation/frmAllgemeinEintrag.vb
View File

@@ -41,7 +41,7 @@
End Sub End Sub
Private Sub CmdLink_Click(sender As Object, e As EventArgs) Handles CmdLink.Click Private Sub CmdLink_Click(sender As Object, e As EventArgs) Handles CmdLink.Click
Ext_Programme.startlink(TxtLink.Text) cExtProgramme.startlink(TxtLink.Text)
End Sub End Sub
Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click

6
Dokumentation/frmHostBearbeiten.vb
View File

@@ -267,7 +267,7 @@
End Sub End Sub
Private Sub CmdHostLink_Click(sender As Object, e As EventArgs) Handles CmdHostLink.Click Private Sub CmdHostLink_Click(sender As Object, e As EventArgs) Handles CmdHostLink.Click
Ext_Programme.startlink(TxtLink.Text) cExtProgramme.startlink(TxtLink.Text)
End Sub End Sub
Private Sub CmdDateien_Click(sender As Object, e As EventArgs) Handles CmdDateien.Click Private Sub CmdDateien_Click(sender As Object, e As EventArgs) Handles CmdDateien.Click
@@ -375,10 +375,10 @@
End Sub End Sub
Private Sub cmdTVConnect_Click(sender As Object, e As EventArgs) Handles cmdTVConnect.Click Private Sub cmdTVConnect_Click(sender As Object, e As EventArgs) Handles cmdTVConnect.Click
Ext_Programme.StartTeamviewer(txtTeamviewer.Text, txtTVKennwort.Text) cExtProgramme.StartTeamviewer(txtTeamviewer.Text, txtTVKennwort.Text)
End Sub End Sub
Private Sub cmdPutty_Click(sender As Object, e As EventArgs) Handles cmdPutty.Click Private Sub cmdPutty_Click(sender As Object, e As EventArgs) Handles cmdPutty.Click
Ext_Programme.startputty(Class1.MainHost(TxtIP.Text)) cExtProgramme.startputty(Class1.MainHost(TxtIP.Text))
End Sub End Sub
End Class End Class

1
Dokumentation/frmLeer.Designer.vb generated
View File

@@ -47,6 +47,7 @@ Partial Class frmLeer
Me.Controls.Add(Me.PanMain) Me.Controls.Add(Me.PanMain)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmLeer" Me.Name = "frmLeer"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "frmLeer" Me.Text = "frmLeer"
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()

5
Dokumentation/frmLeer.vb
View File

@@ -1,4 +1,5 @@
Public Class frmLeer Public Class frmLeer
Private Sub frmLeer_Load(sender As Object, e As EventArgs) Handles Me.Load
' Me.Location = New Point(MousePosition.X - Me.Size.Width / 2, MousePosition.Y - Me.Size.Height / 2)
End Sub
End Class End Class

129
Dokumentation/frmNotify.Designer.vb generated Normal file
View File

@@ -0,0 +1,129 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmNotify
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Timer = New System.Windows.Forms.Timer()
Me.pnl = New System.Windows.Forms.Panel()
Me.lblText = New System.Windows.Forms.Label()
Me.Header = New System.Windows.Forms.Panel()
Me.lblTitle = New System.Windows.Forms.Label()
Me.btnClose = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.Header.SuspendLayout()
Me.SuspendLayout()
'
'Timer
'
Me.Timer.Enabled = True
Me.Timer.Interval = 5000
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.lblText)
Me.pnl.Controls.Add(Me.Header)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(300, 70)
Me.pnl.TabIndex = 1
'
'lblText
'
Me.lblText.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblText.Dock = System.Windows.Forms.DockStyle.Fill
Me.lblText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblText.Location = New System.Drawing.Point(0, 25)
Me.lblText.Name = "lblText"
Me.lblText.Size = New System.Drawing.Size(298, 43)
Me.lblText.TabIndex = 0
Me.lblText.Text = "Der LKW SD 13 AS steht bereits seit über 2 Stunden! "
Me.lblText.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Header
'
Me.Header.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Header.Controls.Add(Me.lblTitle)
Me.Header.Controls.Add(Me.btnClose)
Me.Header.Dock = System.Windows.Forms.DockStyle.Top
Me.Header.Location = New System.Drawing.Point(0, 0)
Me.Header.Name = "Header"
Me.Header.Size = New System.Drawing.Size(298, 25)
Me.Header.TabIndex = 87
'
'lblTitle
'
Me.lblTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblTitle.ForeColor = System.Drawing.Color.White
Me.lblTitle.Location = New System.Drawing.Point(3, 0)
Me.lblTitle.Name = "lblTitle"
Me.lblTitle.Size = New System.Drawing.Size(241, 24)
Me.lblTitle.TabIndex = 88
Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'btnClose
'
Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnClose.BackColor = System.Drawing.Color.Red
Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.White
Me.btnClose.FlatAppearance.BorderSize = 0
Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnClose.ForeColor = System.Drawing.Color.White
Me.btnClose.Location = New System.Drawing.Point(264, -1)
Me.btnClose.Name = "btnClose"
Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.btnClose.Size = New System.Drawing.Size(35, 25)
Me.btnClose.TabIndex = 86
Me.btnClose.Text = "X"
Me.btnClose.UseVisualStyleBackColor = False
'
'frmNotify
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.ClientSize = New System.Drawing.Size(300, 70)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MaximumSize = New System.Drawing.Size(300, 300)
Me.MinimumSize = New System.Drawing.Size(100, 70)
Me.Name = "frmNotify"
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.Text = "frmNotify"
Me.TopMost = True
Me.pnl.ResumeLayout(False)
Me.Header.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Timer As System.Windows.Forms.Timer
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents btnClose As System.Windows.Forms.Button
Friend WithEvents Header As System.Windows.Forms.Panel
Public WithEvents lblText As System.Windows.Forms.Label
Public WithEvents lblTitle As System.Windows.Forms.Label
End Class

123
Dokumentation/frmNotify.resx Normal file
View File

@@ -0,0 +1,123 @@
<?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.Runtime.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:import namespace="http://www.w3.org/XML/1998/namespace" />
<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" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</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" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

113
Dokumentation/frmNotify.vb Normal file
View File

@@ -0,0 +1,113 @@
Public Class frmNotify
Public Y As Integer = 0
Public AvisoID As Integer = 0
Public TimerInterval = 5000
Public Notify_ART As cNotify_ART
Enum cNotify_ART
AVISO_2H
NEUER_CHAT
End Enum
Protected Overrides ReadOnly Property ShowWithoutActivation() As Boolean
Get
Return True
End Get
End Property
Sub New(title As String, text As String)
Me.InitializeComponent()
Me.lblTitle.Text = title
Me.lblText.Text = text
End Sub
Sub New(art As cNotify_ART, typ As Integer, text As String, Optional id As Integer = -1)
Me.InitializeComponent()
Me.Notify_ART = art
Select Case Notify_ART
Case cNotify_ART.AVISO_2H
Me.AvisoID = id
Select Case typ
Case 1
Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
Me.lblText.Text = "Der LKW '" & text & "' ist vor über 2 Stunden eingetroffen."
Case 2
Me.lblTitle.Text = "LKW Standzeit - Vermerk eintragen"
Me.lblText.Text = "Der LKW '" & text & "' ist vor über 2 Stunden eingetroffen." &
"Bitte VERMERK eintragen!"
Case 3
Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
Me.lblText.Text = "Der LKW '" & text & "' steht bereits über 24 Stunden!"
Me.Header.BackColor = Color.Red
End Select
Case cNotify_ART.NEUER_CHAT
Me.lblTitle.Text = "CHAT Nachricht"
Me.lblText.Text = text
End Select
End Sub
Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
Me.Close()
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Me.Close()
End Sub
Private Sub frmNotify_Load(sender As Object, e As EventArgs) Handles Me.Load
Timer.Interval = TimerInterval
lblText.Cursor = IIf(AvisoID > 0, Cursors.Hand, Cursors.Default)
'If Y = 0 Then
'Me.Location = New Point(Me.Owner.Width - Me.Width - 10, Me.Owner.Height - Me.Height - 10)
' Else
' Me.Location = New Point(Me.Owner.Width - Me.Width - 10, Y)
' End If
Dim WIDTH = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Width
Dim hEIGHT = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Width
'RECHTS UNTEN:
'If Y = 0 Then
' Me.Location = New Point(WIDTH - Me.Width - 10, hEIGHT - Me.Height - 10)
'Else
' Me.Location = New Point(WIDTH - Me.Width - 10, Y)
'End If
If Y = 0 Then
Me.Location = New Point(10, hEIGHT - Me.Height - 10)
Else
Me.Location = New Point(10, Y)
End If
End Sub
Private Sub lblText_Click(sender As Object, e As EventArgs) Handles lblText.Click
Select Case Notify_ART
Case cNotify_ART.AVISO_2H
' frmMain.Details_anzeigen(AvisoID)
Me.Close()
Case cNotify_ART.NEUER_CHAT
For Each openForm In Application.OpenForms()
If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
Exit Sub
End If
Next
Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger
f.Location = Cursor.Position
f.Show()
Me.Close()
End Select
End Sub
End Class

4
Dokumentation/licenses.licx Normal file
View File

@@ -0,0 +1,4 @@
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12
GrapeCity.ActiveReports.PageReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12

14
Dokumentation/packages.config Normal file
View File

@@ -0,0 +1,14 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="ClosedXML" version="0.94.2" targetFramework="net472" />
<package id="DocumentFormat.OpenXml" version="2.7.2" targetFramework="net472" />
<package id="Dynamsoft.DotNet.TWAIN" version="8.0.0" targetFramework="net472" />
<package id="ExcelNumberFormat" version="1.0.3" targetFramework="net472" />
<package id="FastMember" version="1.3.0" targetFramework="net472" />
<package id="Ghostscript.NET" version="1.2.1" targetFramework="net472" />
<package id="iTextSharp" version="5.5.13.1" targetFramework="net472" />
<package id="NetSpell" version="2.1.7" targetFramework="net472" />
<package id="Spire.PDF" version="6.3.10" targetFramework="net472" />
<package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net472" />
<package id="System.IO.Packaging" version="4.0.0" targetFramework="net472" />
</packages>

12
Dokumentation/uscntr_SendMSG.Designer.vb generated
View File

@@ -55,7 +55,7 @@ Partial Class uscntr_SendMSG
'cmdSenden 'cmdSenden
' '
Me.cmdSenden.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmdSenden.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cmdSenden.Location = New System.Drawing.Point(383, 224) Me.cmdSenden.Location = New System.Drawing.Point(383, 274)
Me.cmdSenden.Name = "cmdSenden" Me.cmdSenden.Name = "cmdSenden"
Me.cmdSenden.Size = New System.Drawing.Size(75, 23) Me.cmdSenden.Size = New System.Drawing.Size(75, 23)
Me.cmdSenden.TabIndex = 2 Me.cmdSenden.TabIndex = 2
@@ -80,7 +80,7 @@ Partial Class uscntr_SendMSG
Me.PanServerListe.Location = New System.Drawing.Point(0, 100) Me.PanServerListe.Location = New System.Drawing.Point(0, 100)
Me.PanServerListe.MinimumSize = New System.Drawing.Size(196, 0) Me.PanServerListe.MinimumSize = New System.Drawing.Size(196, 0)
Me.PanServerListe.Name = "PanServerListe" Me.PanServerListe.Name = "PanServerListe"
Me.PanServerListe.Size = New System.Drawing.Size(196, 150) Me.PanServerListe.Size = New System.Drawing.Size(196, 200)
Me.PanServerListe.TabIndex = 0 Me.PanServerListe.TabIndex = 0
' '
'PanMain 'PanMain
@@ -92,9 +92,9 @@ Partial Class uscntr_SendMSG
Me.PanMain.Controls.Add(Me.cmdSenden) Me.PanMain.Controls.Add(Me.cmdSenden)
Me.PanMain.Dock = System.Windows.Forms.DockStyle.Fill Me.PanMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.PanMain.Location = New System.Drawing.Point(0, 0) Me.PanMain.Location = New System.Drawing.Point(0, 0)
Me.PanMain.MinimumSize = New System.Drawing.Size(461, 220) Me.PanMain.MinimumSize = New System.Drawing.Size(461, 300)
Me.PanMain.Name = "PanMain" Me.PanMain.Name = "PanMain"
Me.PanMain.Size = New System.Drawing.Size(461, 250) Me.PanMain.Size = New System.Drawing.Size(461, 300)
Me.PanMain.TabIndex = 4 Me.PanMain.TabIndex = 4
' '
'LabelInfo 'LabelInfo
@@ -109,7 +109,7 @@ Partial Class uscntr_SendMSG
'cmdVorschau 'cmdVorschau
' '
Me.cmdVorschau.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.cmdVorschau.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cmdVorschau.Location = New System.Drawing.Point(205, 224) Me.cmdVorschau.Location = New System.Drawing.Point(205, 274)
Me.cmdVorschau.Name = "cmdVorschau" Me.cmdVorschau.Name = "cmdVorschau"
Me.cmdVorschau.Size = New System.Drawing.Size(75, 23) Me.cmdVorschau.Size = New System.Drawing.Size(75, 23)
Me.cmdVorschau.TabIndex = 3 Me.cmdVorschau.TabIndex = 3
@@ -127,7 +127,7 @@ Partial Class uscntr_SendMSG
Me.Controls.Add(Me.PanMain) Me.Controls.Add(Me.PanMain)
Me.MinimumSize = New System.Drawing.Size(461, 199) Me.MinimumSize = New System.Drawing.Size(461, 199)
Me.Name = "uscntr_SendMSG" Me.Name = "uscntr_SendMSG"
Me.Size = New System.Drawing.Size(461, 250) Me.Size = New System.Drawing.Size(461, 300)
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
Me.PanMain.ResumeLayout(False) Me.PanMain.ResumeLayout(False)

7
Dokumentation/uscntr_SendMSG.vb
View File

@@ -16,18 +16,21 @@
PanServerListe.Controls.Clear() PanServerListe.Controls.Clear()
Dim i As Integer = 0 Dim i As Integer = 0
Dim h As Integer = 0
For Each Server As String In Class1.TerminalServerList For Each Server As String In Class1.TerminalServerList
Dim usrcntrl As New uscntr_TSServer Dim usrcntrl As New uscntr_TSServer
usrcntrl.btnServer.Text = Server usrcntrl.btnServer.Text = Server
usrcntrl.Location = New Point(0, i * usrcntrl.Height) usrcntrl.Location = New Point(0, i * usrcntrl.Height)
i = i + 1 i = i + 1
h = i * usrcntrl.Height
PanServerListe.Controls.Add(usrcntrl) PanServerListe.Controls.Add(usrcntrl)
AddHandler usrcntrl.btnServer.Click, Function() AddHandler usrcntrl.btnServer.Click, Function()
UpdateSelectedServerList() UpdateSelectedServerList()
End Function End Function
Next Next
Me.Height = h + 100
End Function End Function
Sub UpdateSelectedServerList() Sub UpdateSelectedServerList()
@@ -74,10 +77,10 @@
Private Sub cmdSenden_Click(sender As Object, e As EventArgs) Handles cmdSenden.Click Private Sub cmdSenden_Click(sender As Object, e As EventArgs) Handles cmdSenden.Click
If MsgBox("Nachricht senden?", MsgBoxStyle.OkCancel, "Senden?") = MsgBoxResult.Ok Then If MsgBox("Nachricht senden?", MsgBoxStyle.OkCancel, "Senden?") = MsgBoxResult.Ok Then
If SingleUserRec = True Then If SingleUserRec = True Then
Ext_Programme.msgsend(msgfin) cExtProgramme.msgsend(msgfin)
Else Else
For Each srv As String In recserver For Each srv As String In recserver
Ext_Programme.msgsend(String.Format(msg, "*", srv, TextBox1.Text)) cExtProgramme.msgsend(String.Format(msg, "*", srv, TextBox1.Text))
Threading.Thread.Sleep(3000) Threading.Thread.Sleep(3000)
Next Next
End If End If

11
Dokumentation/uscntr_TSSitzungen.Designer.vb generated
View File

@@ -23,6 +23,7 @@ Partial Class uscntr_TSSitzungen
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.dgvTSSitzungen = New System.Windows.Forms.DataGridView() Me.dgvTSSitzungen = New System.Windows.Forms.DataGridView()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.VerbindenMitTeamVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VerbindenMitTeamVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -53,6 +54,14 @@ Partial Class uscntr_TSSitzungen
Me.dgvTSSitzungen.AllowUserToDeleteRows = False Me.dgvTSSitzungen.AllowUserToDeleteRows = False
Me.dgvTSSitzungen.AllowUserToResizeRows = False Me.dgvTSSitzungen.AllowUserToResizeRows = False
Me.dgvTSSitzungen.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill Me.dgvTSSitzungen.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvTSSitzungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvTSSitzungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvTSSitzungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvTSSitzungen.ContextMenuStrip = Me.ContextMenuStrip1 Me.dgvTSSitzungen.ContextMenuStrip = Me.ContextMenuStrip1
Me.dgvTSSitzungen.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvTSSitzungen.Dock = System.Windows.Forms.DockStyle.Fill
@@ -97,7 +106,7 @@ Partial Class uscntr_TSSitzungen
' '
'Timer1 'Timer1
' '
Me.Timer1.Interval = 600000 Me.Timer1.Interval = 10000
' '
'Panel1 'Panel1
' '

6
Dokumentation/uscntr_TSSitzungen.vb
View File

@@ -58,7 +58,7 @@
dgvTSSitzungen.Rows(SelectedIndex).Selected = True dgvTSSitzungen.Rows(SelectedIndex).Selected = True
dgvTSSitzungen.FirstDisplayedScrollingRowIndex = StartIndex dgvTSSitzungen.FirstDisplayedScrollingRowIndex = StartIndex
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) 'MsgBox(ex.Message)
End Try End Try
@@ -67,7 +67,7 @@
Private Sub dgvTSSitzungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTSSitzungen.CellDoubleClick 'dgvTSSitzungen.CellContentDoubleClick, Private Sub dgvTSSitzungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTSSitzungen.CellDoubleClick 'dgvTSSitzungen.CellContentDoubleClick,
Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value) Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value)
Ext_Programme.StartTeamviewer(sitzung) cExtProgramme.StartTeamviewer(sitzung)
End Sub End Sub
@@ -137,7 +137,7 @@
Private Sub VerbindenMitTeamVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerbindenMitTeamVToolStripMenuItem.Click Private Sub VerbindenMitTeamVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerbindenMitTeamVToolStripMenuItem.Click
Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value) Dim sitzung As String = Class1.DBNull2emptyString(dgvTSSitzungen.CurrentRow.Cells("TeamviewerID").Value)
Ext_Programme.StartTeamviewer(sitzung) cExtProgramme.StartTeamviewer(sitzung)
End Sub End Sub
Private Sub btnClick(sender As Object, e As EventArgs) Handles btnSitzung.Click, btnClient.Click Private Sub btnClick(sender As Object, e As EventArgs) Handles btnSitzung.Click, btnClient.Click

63
Dokumentation_Updater/Dokumentation_Updater.vbproj
View File

@@ -51,16 +51,78 @@
<ApplicationIcon>Update.ico</ApplicationIcon> <ApplicationIcon>Update.ico</ApplicationIcon>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="ClosedXML, Version=0.94.2.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\ClosedXML.0.94.2\lib\net46\ClosedXML.dll</HintPath>
</Reference>
<Reference Include="DocumentFormat.OpenXml, Version=2.7.2.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
<HintPath>..\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.BarcodeGenerator, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.BarcodeGenerator.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.BarcodeReader, Version=6.1.0.514, Culture=neutral, PublicKeyToken=ad0967c36e09320a, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.BarcodeReader.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Camera, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.Camera.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Forms.Viewer, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.Forms.Viewer.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.ImageCore, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.ImageCore.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.OCR, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.OCR.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.PDF, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.PDF.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Twain, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.Twain.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.WPF.Viewer, Version=8.0.0.510, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<HintPath>..\packages\Dynamsoft.DotNet.TWAIN.8.0.0\lib\net40\Dynamsoft.WPF.Viewer.dll</HintPath>
</Reference>
<Reference Include="ExcelNumberFormat, Version=1.0.3.0, Culture=neutral, PublicKeyToken=23c6f5d73be07eca, processorArchitecture=MSIL">
<HintPath>..\packages\ExcelNumberFormat.1.0.3\lib\net20\ExcelNumberFormat.dll</HintPath>
</Reference>
<Reference Include="FastMember, Version=1.3.0.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\packages\FastMember.1.3.0\lib\net45\FastMember.dll</HintPath>
</Reference>
<Reference Include="Ghostscript.NET, Version=1.2.1.0, Culture=neutral, PublicKeyToken=f85051de34525b59, processorArchitecture=MSIL">
<HintPath>..\packages\Ghostscript.NET.1.2.1\lib\net40\Ghostscript.NET.dll</HintPath>
</Reference>
<Reference Include="itextsharp, Version=5.5.13.1, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
<HintPath>..\packages\iTextSharp.5.5.13.1\lib\itextsharp.dll</HintPath>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="NetSpell.SpellChecker, Version=2.1.7.41329, Culture=neutral, PublicKeyToken=318b389f0db66e46">
<HintPath>..\packages\NetSpell.2.1.7\lib\NetSpell.SpellChecker.dll</HintPath>
</Reference>
<Reference Include="Spire.License, Version=1.3.8.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
<HintPath>..\packages\Spire.PDF.6.3.10\lib\net46\Spire.License.dll</HintPath>
</Reference>
<Reference Include="Spire.Pdf, Version=6.3.10.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<HintPath>..\packages\Spire.PDF.6.3.10\lib\net46\Spire.Pdf.dll</HintPath>
</Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
<Reference Include="System.Deployment" /> <Reference Include="System.Deployment" />
<Reference Include="System.Drawing" /> <Reference Include="System.Drawing" />
<Reference Include="System.IO.FileSystem.Primitives, Version=4.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.IO.FileSystem.Primitives.4.0.1\lib\net46\System.IO.FileSystem.Primitives.dll</HintPath>
</Reference>
<Reference Include="System.IO.Packaging, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.IO.Packaging.4.0.0\lib\net46\System.IO.Packaging.dll</HintPath>
</Reference>
<Reference Include="System.Windows.Forms" /> <Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" /> <Reference Include="System.Xml" />
<Reference Include="System.Core" /> <Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" /> <Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" /> <Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" /> <Reference Include="System.Net.Http" />
<Reference Include="WindowsBase" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Import Include="Microsoft.VisualBasic" /> <Import Include="Microsoft.VisualBasic" />
@@ -121,6 +183,7 @@
<LastGenOutput>Settings.Designer.vb</LastGenOutput> <LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None> </None>
<None Include="App.config" /> <None Include="App.config" />
<None Include="packages.config" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Content Include="Update.ico" /> <Content Include="Update.ico" />

4
Dokumentation_Updater/My Project/licenses.licx Normal file
View File

@@ -0,0 +1,4 @@
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12
GrapeCity.ActiveReports.PageReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12

2
Dokumentation_Updater/Update.Designer.vb generated
View File

@@ -68,7 +68,7 @@ Partial Class Update
Me.Controls.Add(Me.CmdUpdate) Me.Controls.Add(Me.CmdUpdate)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Update" Me.Name = "Update"
Me.Text = "Doku Update 1.0.2" Me.Text = "Doku Update 1.0.3"
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()

1
Dokumentation_Updater/Update.vb
View File

@@ -35,6 +35,7 @@ Public Class Update
For Each p In System.Diagnostics.Process.GetProcessesByName("Dokumentation.exe") For Each p In System.Diagnostics.Process.GetProcessesByName("Dokumentation.exe")
p.Kill() p.Kill()
Next Next
Threading.Thread.Sleep(1500)
Try Try
My.Computer.FileSystem.DeleteFile(sAppPath & "\" & "Dokumentation.exe") My.Computer.FileSystem.DeleteFile(sAppPath & "\" & "Dokumentation.exe")
Catch ex As Exception Catch ex As Exception

14
Dokumentation_Updater/packages.config Normal file
View File

@@ -0,0 +1,14 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="ClosedXML" version="0.94.2" targetFramework="net461" />
<package id="DocumentFormat.OpenXml" version="2.7.2" targetFramework="net461" />
<package id="Dynamsoft.DotNet.TWAIN" version="8.0.0" targetFramework="net461" />
<package id="ExcelNumberFormat" version="1.0.3" targetFramework="net461" />
<package id="FastMember" version="1.3.0" targetFramework="net461" />
<package id="Ghostscript.NET" version="1.2.1" targetFramework="net461" />
<package id="iTextSharp" version="5.5.13.1" targetFramework="net461" />
<package id="NetSpell" version="2.1.7" targetFramework="net461" />
<package id="Spire.PDF" version="6.3.10" targetFramework="net461" />
<package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net461" />
<package id="System.IO.Packaging" version="4.0.0" targetFramework="net461" />
</packages>

BIN
LicxGenerator.exe Normal file
View File

Binary file not shown.

4
licenses.licx Normal file
View File

@@ -0,0 +1,4 @@
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12
GrapeCity.ActiveReports.PageReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12