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

2
Dokumentation/App.config
View File

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

22
Dokumentation/Classes/Class1.vb
View File

@@ -1,5 +1,6 @@
Imports System.Data.SqlClient
Imports System.Reflection
Imports System.IO
Public Class Class1
@@ -819,4 +820,25 @@ Public Class Class1
'returnTable = dv.Table
Return returnTable
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

3
Dokumentation/Classes/cBenutzer.vb
View File

@@ -15,7 +15,7 @@ Public Class cBenutzer
Property msDSPrincipalName As String = ""
Property localdistinguishedName As String = ""
Property suchname As String = ""
Property Hostname As String = ""
@@ -24,6 +24,7 @@ Public Class cBenutzer
Try
userPrincipalName = System.DirectoryServices.AccountManagement.UserPrincipal.Current.UserPrincipalName
Name = System.DirectoryServices.AccountManagement.UserPrincipal.Current.Name
Hostname = Environment.MachineName
Catch
End Try
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>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<TargetFrameworkVersion>v4.7.2</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
<IsWebBootstrapper>false</IsWebBootstrapper>
@@ -89,16 +89,68 @@
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="GrapeCity.ActiveReports.ArsClient.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Chart.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Design.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Diagnostics.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Document.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.Export.Image.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<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="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.Extensibility.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
<Reference Include="GrapeCity.ActiveReports.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, 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.Configuration" />
<Reference Include="System.Data" />
@@ -109,6 +161,14 @@
<Reference Include="System.DirectoryServices.AccountManagement" />
<Reference Include="System.Drawing" />
<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.Security" />
<Reference Include="System.Web" />
@@ -120,6 +180,7 @@
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
<Reference Include="WindowsBase" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
@@ -157,6 +218,30 @@
<Compile Include="Classes\cEintrag.vb" />
<Compile Include="Classes\cNetzwerk.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">
<DependentUpon>uscntr_DomUserList.vb</DependentUpon>
</Compile>
@@ -197,7 +282,7 @@
<SubType>Form</SubType>
</Compile>
<Compile Include="Classes\DHCP.vb" />
<Compile Include="Classes\Ext_Programme.vb" />
<Compile Include="Classes\cExtProgramme.vb" />
<Compile Include="Classes\cFirewallEntry.vb" />
<Compile Include="Classes\cFolder.vb" />
<Compile Include="Classes\cHost.vb" />
@@ -359,9 +444,23 @@
<EmbeddedResource Include="Administration\CSVImportieren.resx">
<DependentUpon>CSVImportieren.vb</DependentUpon>
</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">
<DependentUpon>frmAllgemeinEintrag.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNotify.resx">
<DependentUpon>frmNotify.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="licenses.licx" />
<EmbeddedResource Include="uscntr_DomUser.resx">
<DependentUpon>uscntr_DomUser.vb</DependentUpon>
</EmbeddedResource>
@@ -461,6 +560,7 @@
<ItemGroup>
<Content Include="dispo_ico.ico" />
<Content Include="doku_ico.ico" />
<None Include="packages.config" />
<None Include="Resources\Link.png" />
<None Include="Resources\Link.bmp" />
<None Include="Resources\Link20.bmp" />
@@ -472,6 +572,10 @@
<None Include="Resources\ico_putty_exe0001.bmp" />
<None Include="Resources\Admin.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" />
<None Include="Resources\Print.png" />
<None Include="Resources\Print20x20.png" />
@@ -490,5 +594,11 @@
<Install>false</Install>
</BootstrapperPackage>
</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" />
</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.rdbHostCheckListe = New System.Windows.Forms.RadioButton()
Me.lblZugangsdatenDruckWarnung = New System.Windows.Forms.Label()
Me.btnManuell = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'CmdPrint
@@ -37,9 +38,9 @@ Partial Class frmPrint
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(169, 69)
Me.CmdPrint.Location = New System.Drawing.Point(193, 69)
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.Text = "Drucken"
Me.CmdPrint.UseVisualStyleBackColor = False
@@ -86,12 +87,27 @@ Partial Class frmPrint
Me.lblZugangsdatenDruckWarnung.Text = "Zugangsdaten werden gedruckt!"
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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.ClientSize = New System.Drawing.Size(342, 114)
Me.Controls.Add(Me.btnManuell)
Me.Controls.Add(Me.lblZugangsdatenDruckWarnung)
Me.Controls.Add(Me.rdbHostCheckListe)
Me.Controls.Add(Me.rdbHostListe)
@@ -110,4 +126,5 @@ Partial Class frmPrint
Friend WithEvents rdbHostListe As RadioButton
Friend WithEvents rdbHostCheckListe As RadioButton
Friend WithEvents lblZugangsdatenDruckWarnung As Label
Friend WithEvents btnManuell As Button
End Class

6
Dokumentation/Drucken/frmPrint.vb
View File

@@ -44,4 +44,10 @@
'If Me.DruckeZugangsdaten = True Then lblZugangsdatenDruckWarnung.Visible = True
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

23
Dokumentation/Drucken/frmPrintActiveReports.vb
View File

@@ -17,6 +17,19 @@
If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
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
Dim tsbPDF As New ToolStripButton("PDF")
tsbPDF.Image = My.Resources.pdf512
@@ -24,6 +37,12 @@
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()
End Sub
@@ -45,6 +64,10 @@
Report.dt = Me.dt
Report.DHCPAndrucken = Me.DHCPAndrucken
Viewer1.LoadDocument(Report)
Case "Manuell"
Dim Report As New rptLeer
Report.dt = Me.dt
Viewer1.LoadDocument(Report)
End Select
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
Ext_Programme.startlink(TxtLink.Text)
cExtProgramme.startlink(TxtLink.Text)
End Sub
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 VERAG_PROG_ALLGEMEIN
Imports System.Reflection
Public Class Login
Property userPrincipalName As String = ""
@@ -32,6 +34,15 @@ Public Class Login
End Select
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
lblInfo.Text = ""
Login()
@@ -42,8 +53,10 @@ Public Class Login
Timer1.Enabled = False
Try
Abfrage(userPrincipalName)
' LoadUSRID()
Catch
MsgBox("Fehler beim Anmelden!")
'MsgBox("Fehler beim Anmelden!")
PasswortabfrageLogin.Show()
End Try
End Sub
@@ -62,6 +75,7 @@ Public Class Login
' MsgBox("Treffer!")
Class1.LoggedOnUserRights = cBerechtigungen.ReadAll(Class1.LoggedOnUser.BenutzeranmeldeName)
gefunden = True
LoadUSRID()
ShowMain()
Me.Hide()
Exit For
@@ -199,7 +213,7 @@ Public Class Login
End Select
End Function
Function ShowMain()
Function ShowMain(Optional ByVal MessageActivated As Boolean = True)
Dim main As New Main
For Each right As cBerechtigungen In Class1.LoggedOnUserRights
@@ -216,6 +230,7 @@ Public Class Login
End If
Next
main.picAVISOMessenger.Enabled = MessageActivated
main.Show()
End Function

13
Dokumentation/Login/PasswortabfrageLogin.vb
View File

@@ -1,11 +1,22 @@
Public Class PasswortabfrageLogin
Private Sub CmdLogin_Click(sender As Object, e As EventArgs) Handles CmdLogin.Click
If TxtPasswort.Text = "BmWr501956" Then
Main.Show()
Dim main As New Main
main.picAVISOMessenger.Enabled = False
main.picAVISOMessenger.Visible = False
main.Show()
Me.Close()
Else
MsgBox("Nein, das war falsch!")
Application.Exit()
End If
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

203
Dokumentation/Main.Designer.vb generated
View File

@@ -24,9 +24,10 @@ Partial Class Main
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
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.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.LblVersion = 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.ToolStripMenuItem2 = 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.Label20 = New System.Windows.Forms.Label()
Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
Me.chkTSSitzungen = New System.Windows.Forms.CheckBox()
Me.lblCount = New System.Windows.Forms.Label()
Me.btnNeu = New System.Windows.Forms.Button()
@@ -81,7 +85,6 @@ Partial Class Main
Me.DgVMain = New System.Windows.Forms.DataGridView()
Me.DGVMainContext = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DgvMainContextMenuItemHost = New System.Windows.Forms.ToolStripMenuItem()
Me.ErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SMBToolStripMenuItem = 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.TimerWillkommen = New System.Windows.Forms.Timer(Me.components)
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.Panel4.SuspendLayout()
Me.PanType.SuspendLayout()
@@ -113,6 +118,7 @@ Partial Class Main
Me.Panel1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
Me.PanNetzwerk.SuspendLayout()
CType(Me.DgVMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DGVMainContext.SuspendLayout()
@@ -128,12 +134,13 @@ Partial Class Main
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
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
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel4.Controls.Add(Me.Button1)
Me.Panel4.Controls.Add(Me.LblDEBUGMODE)
Me.Panel4.Controls.Add(Me.LblVersion)
Me.Panel4.Controls.Add(Me.LblInfo)
@@ -147,22 +154,22 @@ Partial Class Main
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(272, 24)
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
'
'btnBenutzerverwaltung
'Button1
'
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, 670)
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
Me.Button1.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.Button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Image = Global.Dokumentation.My.Resources.Resources.excel20
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.Location = New System.Drawing.Point(440, 52)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(151, 28)
Me.Button1.TabIndex = 43
Me.Button1.Text = "Telefonliste"
Me.Button1.UseVisualStyleBackColor = False
'
'LblDEBUGMODE
'
@@ -179,7 +186,7 @@ Partial Class Main
'
Me.LblVersion.Anchor = System.Windows.Forms.AnchorStyles.Right
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.Size = New System.Drawing.Size(42, 13)
Me.LblVersion.TabIndex = 17
@@ -200,7 +207,7 @@ Partial Class Main
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.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.Size = New System.Drawing.Size(121, 23)
Me.CmdSucheReset.TabIndex = 15
@@ -211,7 +218,7 @@ Partial Class Main
'
Me.TxtSuche.Anchor = System.Windows.Forms.AnchorStyles.Right
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.Size = New System.Drawing.Size(138, 20)
Me.TxtSuche.TabIndex = 3
@@ -221,7 +228,7 @@ Partial Class Main
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
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.Location = New System.Drawing.Point(580, 26)
Me.Label1.Location = New System.Drawing.Point(613, 26)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(47, 13)
Me.Label1.TabIndex = 4
@@ -232,7 +239,7 @@ Partial Class Main
Me.PanType.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.PanType.Controls.Add(Me.LstType)
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.Size = New System.Drawing.Size(183, 41)
Me.PanType.TabIndex = 12
@@ -260,7 +267,7 @@ Partial Class Main
'
Me.PictureBox1.Anchor = System.Windows.Forms.AnchorStyles.Right
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.Size = New System.Drawing.Size(333, 67)
Me.PictureBox1.TabIndex = 1
@@ -272,7 +279,7 @@ Partial Class Main
Me.PanSuche.Controls.Add(Me.RadGlobal)
Me.PanSuche.Controls.Add(Me.RadNurNetzwerk)
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.Size = New System.Drawing.Size(314, 31)
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.Location = New System.Drawing.Point(0, 0)
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.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.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(50, 20)
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(49, 20)
Me.ToolStripMenuItem1.Text = "Extras"
'
'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"
'
'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"
'
'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"
'
'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"
'
'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"
'
'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)"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(173, 6)
Me.ToolStripSeparator1.Size = New System.Drawing.Size(174, 6)
'
'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"
'
'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"
'
'ToolStripMenuItem2
@@ -420,9 +427,25 @@ Partial Class Main
Me.ToolStripMenuItemINFO.Size = New System.Drawing.Size(24, 20)
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
'
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.chkTSSitzungen)
Me.Panel3.Controls.Add(Me.lblCount)
@@ -442,9 +465,35 @@ Partial Class Main
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel3.Location = New System.Drawing.Point(0, 130)
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
'
'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
'
Me.chkTSSitzungen.AutoSize = True
@@ -458,7 +507,7 @@ Partial Class Main
'lblCount
'
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.Size = New System.Drawing.Size(45, 13)
Me.lblCount.TabIndex = 18
@@ -471,7 +520,7 @@ Partial Class Main
Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNeu.Image = Global.Dokumentation.My.Resources.Resources.Bearbeiten20
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.Size = New System.Drawing.Size(151, 28)
Me.btnNeu.TabIndex = 17
@@ -483,7 +532,7 @@ Partial Class Main
Me.ChkDHCPClients.AutoSize = True
Me.ChkDHCPClients.Checked = True
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.Size = New System.Drawing.Size(136, 17)
Me.ChkDHCPClients.TabIndex = 16
@@ -493,7 +542,7 @@ Partial Class Main
'ChkFreieHosts
'
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.Size = New System.Drawing.Size(122, 17)
Me.ChkFreieHosts.TabIndex = 15
@@ -505,7 +554,7 @@ Partial Class Main
Me.ChkKompAnsicht.AutoSize = True
Me.ChkKompAnsicht.Checked = True
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.Size = New System.Drawing.Size(124, 17)
Me.ChkKompAnsicht.TabIndex = 14
@@ -516,7 +565,7 @@ Partial Class Main
'
Me.PanNetzwerk.Controls.Add(Me.CmdNWDateien)
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.Size = New System.Drawing.Size(191, 85)
Me.PanNetzwerk.TabIndex = 13
@@ -528,7 +577,7 @@ Partial Class Main
Me.CmdNWDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdNWDateien.Image = Global.Dokumentation.My.Resources.Resources.Folder20
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.Size = New System.Drawing.Size(151, 28)
Me.CmdNWDateien.TabIndex = 15
@@ -542,7 +591,7 @@ Partial Class Main
Me.CmdNetzwerkbearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdNetzwerkbearbeiten.Image = Global.Dokumentation.My.Resources.Resources.Netzwerk20
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.Size = New System.Drawing.Size(151, 28)
Me.CmdNetzwerkbearbeiten.TabIndex = 8
@@ -556,7 +605,7 @@ Partial Class Main
Me.CmDBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmDBearbeiten.Image = Global.Dokumentation.My.Resources.Resources.Bearbeiten20
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.Size = New System.Drawing.Size(151, 28)
Me.CmDBearbeiten.TabIndex = 6
@@ -570,7 +619,7 @@ Partial Class Main
Me.CmdFiles.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdFiles.Image = Global.Dokumentation.My.Resources.Resources.Folder20
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.Size = New System.Drawing.Size(151, 28)
Me.CmdFiles.TabIndex = 12
@@ -581,7 +630,7 @@ Partial Class Main
'
Me.LstAllgemein.BackColor = System.Drawing.SystemColors.ControlLightLight
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.Size = New System.Drawing.Size(151, 95)
Me.LstAllgemein.TabIndex = 11
@@ -603,7 +652,7 @@ Partial Class Main
Me.CmdLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.CmdLink.Image = Global.Dokumentation.My.Resources.Resources.Link20
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.Size = New System.Drawing.Size(151, 28)
Me.CmdLink.TabIndex = 9
@@ -624,7 +673,7 @@ Partial Class Main
'
Me.LstNetzwerk.BackColor = System.Drawing.SystemColors.ControlLightLight
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.Size = New System.Drawing.Size(151, 95)
Me.LstNetzwerk.TabIndex = 1
@@ -633,15 +682,15 @@ Partial Class Main
'
Me.LstStandort.BackColor = System.Drawing.SystemColors.ControlLightLight
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.Size = New System.Drawing.Size(151, 95)
Me.LstStandort.Size = New System.Drawing.Size(151, 160)
Me.LstStandort.TabIndex = 0
'
'CMdTest2
'
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.Size = New System.Drawing.Size(75, 100)
Me.CMdTest2.TabIndex = 3
@@ -651,7 +700,7 @@ Partial Class Main
'CmdTest
'
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.Size = New System.Drawing.Size(75, 100)
Me.CmdTest.TabIndex = 2
@@ -672,7 +721,18 @@ Partial Class Main
'
'DgVMain
'
Me.DgVMain.AllowUserToAddRows = False
Me.DgVMain.AllowUserToDeleteRows = False
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.ContextMenuStrip = Me.DGVMainContext
Me.DgVMain.Dock = System.Windows.Forms.DockStyle.Fill
@@ -680,15 +740,17 @@ Partial Class Main
Me.DgVMain.MultiSelect = False
Me.DgVMain.Name = "DgVMain"
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.Size = New System.Drawing.Size(1016, 754)
Me.DgVMain.Size = New System.Drawing.Size(1049, 821)
Me.DgVMain.TabIndex = 3
'
'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.Size = New System.Drawing.Size(230, 236)
Me.DGVMainContext.Size = New System.Drawing.Size(230, 214)
'
'DgvMainContextMenuItemHost
'
@@ -696,12 +758,6 @@ Partial Class Main
Me.DgvMainContextMenuItemHost.Size = New System.Drawing.Size(229, 22)
Me.DgvMainContextMenuItemHost.Text = "Bearbeiten"
'
'ErstellenToolStripMenuItem
'
Me.ErstellenToolStripMenuItem.Name = "ErstellenToolStripMenuItem"
Me.ErstellenToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
Me.ErstellenToolStripMenuItem.Text = "Erstellen"
'
'DateienToolStripMenuItem
'
Me.DateienToolStripMenuItem.Name = "DateienToolStripMenuItem"
@@ -790,9 +846,9 @@ Partial Class Main
Me.PanTools.Controls.Add(Me.CmdTest)
Me.PanTools.Controls.Add(Me.CMdTest2)
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.Size = New System.Drawing.Size(1016, 100)
Me.PanTools.Size = New System.Drawing.Size(1049, 100)
Me.PanTools.TabIndex = 4
Me.PanTools.Visible = False
'
@@ -811,7 +867,7 @@ Partial Class Main
'btnTest3
'
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.Size = New System.Drawing.Size(75, 100)
Me.btnTest3.TabIndex = 13
@@ -862,17 +918,22 @@ Partial Class Main
'panTSSitzungen
'
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.Size = New System.Drawing.Size(365, 854)
Me.panTSSitzungen.Size = New System.Drawing.Size(365, 921)
Me.panTSSitzungen.TabIndex = 5
Me.panTSSitzungen.Visible = False
'
'Timer_Refresh
'
Me.Timer_Refresh.Enabled = True
Me.Timer_Refresh.Interval = 5000
'
'Main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
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.PanTools)
Me.Controls.Add(Me.panTSSitzungen)
@@ -882,6 +943,7 @@ Partial Class Main
Me.MainMenuStrip = Me.MenuStrip1
Me.MinimumSize = New System.Drawing.Size(1024, 740)
Me.Name = "Main"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Dokumentation"
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
@@ -898,6 +960,7 @@ Partial Class Main
Me.MenuStrip1.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
Me.PanNetzwerk.ResumeLayout(False)
CType(Me.DgVMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.DGVMainContext.ResumeLayout(False)
@@ -942,7 +1005,6 @@ Partial Class Main
Friend WithEvents PanNetzwerk As Panel
Friend WithEvents PanSuche As Panel
Friend WithEvents PanType As Panel
Friend WithEvents ErstellenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ChkKompAnsicht As CheckBox
Friend WithEvents ExportToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ImportToolStripMenuItem As ToolStripMenuItem
@@ -987,4 +1049,9 @@ Partial Class Main
Friend WithEvents chkTSSitzungen As CheckBox
Friend WithEvents TeamviewerVerbindenToolStripMenuItem As ToolStripMenuItem
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

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">
<value>788, 17</value>
</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">
<value>59</value>
</metadata>

267
Dokumentation/Main.vb
View File

@@ -32,6 +32,8 @@ Public Class Main
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
@@ -190,7 +192,10 @@ Public Class Main
'MsgBox(LstStandort.Items.Count)
If Class1.LoggedOnUser.Domäne = "verag.ost.dmn" Then
LstStandort.SelectedItem = "Verag_SUB"
Try
LstStandort.SelectedItem = "Verag_SUB"
Catch
End Try
' MsgBox("Hier")
Else
LstStandort.SelectedIndex = 0
@@ -532,18 +537,19 @@ Public Class Main
MsgBox("With DGV: " & ex.Message)
End Try
If SelectedDGVIndex < DgVMain.Rows.Count - 1 Then
Try
DgVMain.ClearSelection()
DgVMain.Rows(SelectedDGVIndex).Selected = True
DgVMain.FirstDisplayedScrollingRowIndex = FirstDisplayedDGVEntry
Catch
End Try
Else
DgVMain.Rows(0).Selected = True
End If
Try
If SelectedDGVIndex < DgVMain.Rows.Count - 1 Then
Try
DgVMain.ClearSelection()
DgVMain.Rows(SelectedDGVIndex).Selected = True
DgVMain.FirstDisplayedScrollingRowIndex = FirstDisplayedDGVEntry
Catch
End Try
Else
DgVMain.Rows(0).Selected = True
End If
Catch
End Try
''--------------------------------------------------------------------------------------------------------/START//Farbig hervorheben, Check DHCP Filter
Dim indexDHCP As Integer = DgVMain.Columns("DHCP").Index
@@ -669,9 +675,7 @@ Public Class Main
End Sub
Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
Dim test As New cDomUser
test.getDomUserByID("7a5ea2da4ec34c74b3145bf090b39631")
MsgBox(test.du_Nachname)
Class1.CopyDirectory("\\\\datenarchiv.verag.ost.dmn\Datenarchiv\DOKUMENTE\CHAT_EMOJIS\", sAppPath & "\Test\")
End Sub
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()
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
If TxtSuche.TextLength < 1 And LstType.SelectedItem = "" Then
@@ -800,7 +801,7 @@ Public Class Main
TypeFilter()
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
Dim frm As New frmHostBearbeiten
Try
@@ -896,16 +897,16 @@ Public Class Main
Private Sub DgvMainContextMenuItemPutty_Click(sender As Object, e As EventArgs)
werbinich()
Ext_Programme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
cExtProgramme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
End Sub
Private Sub DgvMainContextMenuItemLink_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemLink.Click, CmdLink.Click
werbinich()
Ext_Programme.startlink(DgVMain.CurrentRow.Cells("Link").Value)
cExtProgramme.startlink(DgVMain.CurrentRow.Cells("Link").Value)
End Sub
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
Private Sub ChkTools_CheckedChanged(sender As Object, e As EventArgs) Handles ChkTools.CheckedChanged
@@ -917,15 +918,14 @@ Public Class Main
End Sub
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
Private Sub CmdFiles_Click(sender As Object, e As EventArgs) Handles CmdFiles.Click, DateienToolStripMenuItem.Click
If DgVMain.GetCellCount(DataGridViewElementStates.Selected) > 0 Then
explorerstarten("Client")
Else
LblUhrzeit.Text = "Keine Auswahl getätigt"
End If
If DgVMain.GetCellCount(DataGridViewElementStates.Selected) = 0 Then Exit Sub
explorerstarten("Client")
End Sub
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
werbinich()
If sender = "Client" Then
Try
'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
cFolder.explorerstarten(SenderIP) : Exit Function
ElseIf sender = "Netzwerk" Then
Path = Class1.FilePath & "\" & SenderStandort & "_Allgemein"
@@ -1004,40 +954,41 @@ Public Class Main
ElseIf Tabelle = "TbL_Allgemein" Then
Try
dbload()
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)
sda.Fill(ds)
con.Close()
'dbload()
'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)
'sda.Fill(ds)
'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")
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
'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
If islinked = "1" Then
Dim dslinked As New DataSet()
'If islinked = "1" Then
' Dim dslinked As New DataSet()
dbload()
con.Open()
' dbload()
' con.Open()
Dim da As New SqlDataAdapter("SELECT * FROM Tbl_Allgemein WHERE LinkedWith='" & LinkedWith & "'", con)
da.Fill(dslinked)
' Dim da As New SqlDataAdapter("SELECT * FROM Tbl_Allgemein WHERE LinkedWith='" & LinkedWith & "'", con)
' 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")
Else
'MsgBox("not linked")
Path = Class1.FilePath & "\" & DgVMain.CurrentRow.Cells("Rubrik").Value & "\" & DgVMain.CurrentRow.Cells("Titel").Value '& "\" & SenderHost
End If
' 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
' 'MsgBox("not linked")
Path = Class1.FilePath & "\" & DgVMain.CurrentRow.Cells("Rubrik").Value & "\" & DgVMain.CurrentRow.Cells("Titel").Value '& "\" & SenderHost
'End If
Catch ex As Exception
MsgBox("ExplorerStarten() Tbl_Allgemein: " & ex.Message)
End Try
@@ -1102,7 +1053,7 @@ Public Class Main
End If
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()
End Sub
@@ -1192,6 +1143,7 @@ Public Class Main
Catch ex As Exception
MsgBox("Kann Versionen nicht vergleichen: " & ex.Message)
TimerUpdate.Enabled = False
End Try
@@ -1211,7 +1163,7 @@ Public Class Main
End Sub
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
@@ -1280,7 +1232,7 @@ Public Class Main
End Sub
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
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
Host2Connect.gethost(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
If Host2Connect.TeamviewerID.Length > 1 Then
Ext_Programme.StartTeamviewer(Host2Connect.TeamviewerID, Host2Connect.TeamviewerKennwort)
cExtProgramme.StartTeamviewer(Host2Connect.TeamviewerID, Host2Connect.TeamviewerKennwort)
Else
MsgBox("TeamviewerID nicht eingepflegt!")
End If
@@ -1333,8 +1285,96 @@ Public Class Main
End Function
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
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 Class
'1208

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

@@ -80,6 +80,16 @@ Namespace My.Resources
End Get
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -90,6 +100,26 @@ Namespace My.Resources
End Get
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -100,6 +130,16 @@ Namespace My.Resources
End Get
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -229,7 +269,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.47 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.56 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

90
Dokumentation/My Project/Resources.resx
View File

@@ -121,50 +121,32 @@
<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>
</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="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 name="Hakerl20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Hakerl20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
</data>
<data name="Programmcode" xml:space="preserve">
<value>DOKU</value>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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 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="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 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>
@@ -172,4 +154,34 @@
<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>
</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>

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

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My
<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)> _
Partial Friend NotInheritable Class MySettings
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.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
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

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
Private Sub CmdLink_Click(sender As Object, e As EventArgs) Handles CmdLink.Click
Ext_Programme.startlink(TxtLink.Text)
cExtProgramme.startlink(TxtLink.Text)
End Sub
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
Private Sub CmdHostLink_Click(sender As Object, e As EventArgs) Handles CmdHostLink.Click
Ext_Programme.startlink(TxtLink.Text)
cExtProgramme.startlink(TxtLink.Text)
End Sub
Private Sub CmdDateien_Click(sender As Object, e As EventArgs) Handles CmdDateien.Click
@@ -375,10 +375,10 @@
End Sub
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
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 Class

1
Dokumentation/frmLeer.Designer.vb generated
View File

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

5
Dokumentation/frmLeer.vb
View File

@@ -1,4 +1,5 @@
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

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
'
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.Size = New System.Drawing.Size(75, 23)
Me.cmdSenden.TabIndex = 2
@@ -80,7 +80,7 @@ Partial Class uscntr_SendMSG
Me.PanServerListe.Location = New System.Drawing.Point(0, 100)
Me.PanServerListe.MinimumSize = New System.Drawing.Size(196, 0)
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
'
'PanMain
@@ -92,9 +92,9 @@ Partial Class uscntr_SendMSG
Me.PanMain.Controls.Add(Me.cmdSenden)
Me.PanMain.Dock = System.Windows.Forms.DockStyle.Fill
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.Size = New System.Drawing.Size(461, 250)
Me.PanMain.Size = New System.Drawing.Size(461, 300)
Me.PanMain.TabIndex = 4
'
'LabelInfo
@@ -109,7 +109,7 @@ Partial Class uscntr_SendMSG
'cmdVorschau
'
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.Size = New System.Drawing.Size(75, 23)
Me.cmdVorschau.TabIndex = 3
@@ -127,7 +127,7 @@ Partial Class uscntr_SendMSG
Me.Controls.Add(Me.PanMain)
Me.MinimumSize = New System.Drawing.Size(461, 199)
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.PerformLayout()
Me.PanMain.ResumeLayout(False)

7
Dokumentation/uscntr_SendMSG.vb
View File

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

11
Dokumentation/uscntr_TSSitzungen.Designer.vb generated
View File

@@ -23,6 +23,7 @@ Partial Class uscntr_TSSitzungen
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
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.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.VerbindenMitTeamVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -53,6 +54,14 @@ Partial Class uscntr_TSSitzungen
Me.dgvTSSitzungen.AllowUserToDeleteRows = False
Me.dgvTSSitzungen.AllowUserToResizeRows = False
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.ContextMenuStrip = Me.ContextMenuStrip1
Me.dgvTSSitzungen.Dock = System.Windows.Forms.DockStyle.Fill
@@ -97,7 +106,7 @@ Partial Class uscntr_TSSitzungen
'
'Timer1
'
Me.Timer1.Interval = 600000
Me.Timer1.Interval = 10000
'
'Panel1
'

6
Dokumentation/uscntr_TSSitzungen.vb
View File

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