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

Aktualisieren der Profileigenschaften nach Erstellen/Löschen von Profilen - frmDIProfileigenschaften, frmDIProfilHinzufuegen, frmNIProfileigenschaften, frmNIProfilHinzufuegen; Entfernen des Login Dialogs - frmLogin_DI, frmLogin_ NI

Browse Source
This commit is contained in:
OlgunR 2025-09-23 10:45:00 +02:00
parent 96425efd79
commit ae99271e9d
13 changed files with 132 additions and 615 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ToolCollection/ToolCollection.vbproj
View File

@ -334,18 +334,6 @@
<Compile Include="frmDIRegelverwaltung.vb"> <Compile Include="frmDIRegelverwaltung.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmLogin_DI.Designer.vb">
<DependentUpon>frmLogin_DI.vb</DependentUpon>
</Compile>
<Compile Include="frmLogin_DI.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmLogin_NI.Designer.vb">
<DependentUpon>frmLogin_NI.vb</DependentUpon>
</Compile>
<Compile Include="frmLogin_NI.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmMIProfileigenschaften.Designer.vb"> <Compile Include="frmMIProfileigenschaften.Designer.vb">
<DependentUpon>frmMIProfileigenschaften.vb</DependentUpon> <DependentUpon>frmMIProfileigenschaften.vb</DependentUpon>
</Compile> </Compile>
@ -507,12 +495,6 @@
<EmbeddedResource Include="frmDIRegelverwaltung.resx"> <EmbeddedResource Include="frmDIRegelverwaltung.resx">
<DependentUpon>frmDIRegelverwaltung.vb</DependentUpon> <DependentUpon>frmDIRegelverwaltung.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmLogin_DI.resx">
<DependentUpon>frmLogin_DI.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLogin_NI.resx">
<DependentUpon>frmLogin_NI.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMIProfileigenschaften.resx"> <EmbeddedResource Include="frmMIProfileigenschaften.resx">
<DependentUpon>frmMIProfileigenschaften.vb</DependentUpon> <DependentUpon>frmMIProfileigenschaften.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

19
ToolCollection/frmDIProfilEigenschaften.vb
View File

@ -57,11 +57,11 @@ Public Class frmDIProfilEigenschaften
End Sub End Sub
Private Sub LoadProfilesInCombobox() Private Sub LoadProfilesInCombobox()
'Schreibt die Profile in die Combobox in der Toolbar. 'Schreibt die Profile in die Combobox in der Toolbar.
Try 'Try
ClassDIProfile.Init() ClassDIProfile.Init()
Me.cmbProfilauswahl.DropDownItems.Clear()
If ClassDIProfile.Profile IsNot Nothing Then Me.cmbProfilauswahl.DropDownItems.Clear()
If ClassDIProfile.Profile IsNot Nothing Then
Dim anz As Integer = 0 Dim anz As Integer = 0
For Each item As ClassDIProfil In ClassDIProfile.Profile For Each item As ClassDIProfil In ClassDIProfile.Profile
Me.cmbProfilauswahl.DropDownItems.Add(item.Profilname) Me.cmbProfilauswahl.DropDownItems.Add(item.Profilname)
@ -73,9 +73,9 @@ Public Class frmDIProfilEigenschaften
Prof_Anzahl = anz Prof_Anzahl = anz
Me.tslblAnzahl.Text = "Anzahl Profile: " & anz Me.tslblAnzahl.Text = "Anzahl Profile: " & anz
End If End If
Catch ex As Exception 'Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Profile in Auswahlliste:") ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Profile in Auswahlliste:")
End Try 'End Try
End Sub End Sub
Sub Lade_Profil(ByVal profilname As String) Sub Lade_Profil(ByVal profilname As String)
' das ausgewählte Profil in selectedProfile laden ' das ausgewählte Profil in selectedProfile laden
@ -257,7 +257,8 @@ Public Class frmDIProfilEigenschaften
Private Sub btnHinzufügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHinzufügen.Click Private Sub btnHinzufügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHinzufügen.Click
' das Formular zum Erstellen eines neuen Profil öffnen ' das Formular zum Erstellen eines neuen Profil öffnen
frmLogin_DI.ShowDialog() frmDIProfilHinzufuegen.ShowDialog()
'frmLogin_DI.ShowDialog()
'frmDIProfilHinzufuegen.ShowDialog() 'frmDIProfilHinzufuegen.ShowDialog()
' wenn das Formular geschlossen wurde, werden die Profile neu in die Combobox geladen ' wenn das Formular geschlossen wurde, werden die Profile neu in die Combobox geladen
Me.LoadProfilesInCombobox() Me.LoadProfilesInCombobox()
@ -282,6 +283,8 @@ Public Class frmDIProfilEigenschaften
Me.btnLöschen.Enabled = False Me.btnLöschen.Enabled = False
' kein Profil als selektiert wählen ' kein Profil als selektiert wählen
Me.selectedProfile = Nothing Me.selectedProfile = Nothing
Me.lblProfil.Text = "Kein Profil gewählt"
' die Profile neu in die Combobox laden ' die Profile neu in die Combobox laden
Me.LoadProfilesInCombobox() Me.LoadProfilesInCombobox()
End If End If

1
ToolCollection/frmDIProfilHinzufuegen.vb
View File

@ -31,7 +31,6 @@
Me.chkQuellverzeichnisLoeschen.Checked = False Me.chkQuellverzeichnisLoeschen.Checked = False
Me.ObjekttypenEintragen() Me.ObjekttypenEintragen()
frmLogin_DI.Close()
Label6.Visible = False Label6.Visible = False
End Sub End Sub
Private Sub btnQuellordner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuellordner.Click Private Sub btnQuellordner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuellordner.Click

95
ToolCollection/frmLogin_DI.Designer.vb generated
View File

@ -1,95 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmLogin_DI
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.txtPW = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.btnok = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'txtPW
'
Me.txtPW.Location = New System.Drawing.Point(12, 23)
Me.txtPW.Name = "txtPW"
Me.txtPW.Size = New System.Drawing.Size(248, 22)
Me.txtPW.TabIndex = 7
Me.txtPW.UseSystemPasswordChar = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(9, 7)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(56, 13)
Me.Label1.TabIndex = 6
Me.Label1.Text = "Passwort:"
'
'btnAbbruch
'
Me.btnAbbruch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnAbbruch.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnAbbruch.Location = New System.Drawing.Point(105, 56)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
Me.btnAbbruch.TabIndex = 5
Me.btnAbbruch.Text = "Abbruch"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'btnok
'
Me.btnok.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnok.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnok.Location = New System.Drawing.Point(186, 56)
Me.btnok.Name = "btnok"
Me.btnok.Size = New System.Drawing.Size(75, 23)
Me.btnok.TabIndex = 4
Me.btnok.Text = "Weiter"
Me.btnok.UseVisualStyleBackColor = True
'
'frmLogin_DI
'
Me.AcceptButton = Me.btnok
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.btnok
Me.ClientSize = New System.Drawing.Size(285, 91)
Me.Controls.Add(Me.txtPW)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnok)
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "frmLogin_DI"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Passwort eingeben"
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents txtPW As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
Friend WithEvents btnok As System.Windows.Forms.Button
End Class

120
ToolCollection/frmLogin_DI.resx
View File

@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.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>

33
ToolCollection/frmLogin_DI.vb
View File

@ -1,33 +0,0 @@
Public Class frmLogin_DI
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
If Me.txtPW.Text <> "" Then
If Me.txtPW.Text = My.Settings.vPW_admin Then
Me.Hide()
frmDIProfilHinzufuegen.Show()
Cursor = Cursors.Default
Else
MsgBox("Das eingegebene Passwort stimmt nicht überein!", MsgBoxStyle.Critical, "Falsche Eingabe:")
Me.txtPW.Text = ""
Me.txtPW.Focus()
End If
End If
End Sub
Private Sub frmLogin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.txtPW.Text = ""
End Sub
Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
Me.Close()
End Sub
Private Sub txtPW_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPW.GotFocus
Me.txtPW.BackColor = Color.Lime
End Sub
Private Sub txtPW_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPW.LostFocus
Me.txtPW.BackColor = Color.White
End Sub
Private Sub frmLogin_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
Me.txtPW.Focus()
End Sub
End Class

94
ToolCollection/frmLogin_NI.Designer.vb generated
View File

@ -1,94 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmLogin_NI
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.btnok = New System.Windows.Forms.Button()
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtPW = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'btnok
'
Me.btnok.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnok.Location = New System.Drawing.Point(188, 74)
Me.btnok.Name = "btnok"
Me.btnok.Size = New System.Drawing.Size(75, 23)
Me.btnok.TabIndex = 0
Me.btnok.Text = "Weiter"
Me.btnok.UseVisualStyleBackColor = True
'
'btnAbbruch
'
Me.btnAbbruch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnAbbruch.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnAbbruch.Location = New System.Drawing.Point(107, 74)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
Me.btnAbbruch.TabIndex = 1
Me.btnAbbruch.Text = "Abbruch"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(56, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Passwort:"
'
'txtPW
'
Me.txtPW.Location = New System.Drawing.Point(15, 25)
Me.txtPW.Name = "txtPW"
Me.txtPW.Size = New System.Drawing.Size(248, 22)
Me.txtPW.TabIndex = 3
Me.txtPW.UseSystemPasswordChar = True
'
'frmLogin
'
Me.AcceptButton = Me.btnok
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.btnAbbruch
Me.ClientSize = New System.Drawing.Size(285, 109)
Me.Controls.Add(Me.txtPW)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnok)
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "frmLogin"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Passwort notwendig:"
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnok As System.Windows.Forms.Button
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtPW As System.Windows.Forms.TextBox
End Class

120
ToolCollection/frmLogin_NI.resx
View File

@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.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>

34
ToolCollection/frmLogin_NI.vb
View File

@ -1,34 +0,0 @@
Public Class frmLogin_NI
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
If Me.txtPW.Text <> "" Then
If Me.txtPW.Text = My.Settings.vPW_admin Then
Me.Hide()
frmNIProfilhinzufuegen.ShowDialog()
Cursor = Cursors.Default
Else
MsgBox("Das eingegebene Passwort stimmt nicht überein!", MsgBoxStyle.Critical, "Falsche Eingabe:")
Me.txtPW.Text = ""
Me.txtPW.Focus()
End If
End If
End Sub
Private Sub frmLogin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.txtPW.Text = ""
End Sub
Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
Me.Close()
End Sub
Private Sub txtPW_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPW.GotFocus
Me.txtPW.BackColor = Color.Lime
End Sub
Private Sub txtPW_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPW.LostFocus
Me.txtPW.BackColor = Color.White
End Sub
Private Sub frmLogin_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
Me.txtPW.Focus()
End Sub
End Class

163
ToolCollection/frmNIProfileigenschaften.Designer.vb generated
View File

@ -24,15 +24,15 @@ Partial Class frmNIProfileigenschaften
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIProfileigenschaften)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIProfileigenschaften))
Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 1") Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 1")
Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 2") Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 2")
Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 3") Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 3")
Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Parent", New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2, TreeNode3}) Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Parent", New System.Windows.Forms.TreeNode() {TreeNode10, TreeNode11, TreeNode12})
Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode4}) Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode13})
Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode5}) Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode14})
Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode6}) Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode15})
Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode7}) Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode16})
Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode8}) Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode17})
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton() Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton() Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
@ -148,6 +148,7 @@ Partial Class frmNIProfileigenschaften
Me.Label16 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label()
Me.txtObjekttyp = New System.Windows.Forms.TextBox() Me.txtObjekttyp = New System.Windows.Forms.TextBox()
Me.btnopenSuche = New System.Windows.Forms.Button() Me.btnopenSuche = New System.Windows.Forms.Button()
Me.pnlProfileigenschaften = New System.Windows.Forms.Panel()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.gbxDatenbank.SuspendLayout() Me.gbxDatenbank.SuspendLayout()
Me.gbxDatei.SuspendLayout() Me.gbxDatei.SuspendLayout()
@ -165,6 +166,7 @@ Partial Class frmNIProfileigenschaften
Me.GroupBox5.SuspendLayout() Me.GroupBox5.SuspendLayout()
Me.GroupBox3.SuspendLayout() Me.GroupBox3.SuspendLayout()
Me.TabPage4.SuspendLayout() Me.TabPage4.SuspendLayout()
Me.pnlProfileigenschaften.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'StatusStrip1 'StatusStrip1
@ -176,7 +178,7 @@ Partial Class frmNIProfileigenschaften
Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.ManagerRenderMode Me.StatusStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.ManagerRenderMode
Me.StatusStrip1.ShowItemToolTips = True Me.StatusStrip1.ShowItemToolTips = True
Me.StatusStrip1.Size = New System.Drawing.Size(920, 22) Me.StatusStrip1.Size = New System.Drawing.Size(991, 22)
Me.StatusStrip1.SizingGrip = False Me.StatusStrip1.SizingGrip = False
Me.StatusStrip1.TabIndex = 23 Me.StatusStrip1.TabIndex = 23
Me.StatusStrip1.Text = "StatusStrip1" Me.StatusStrip1.Text = "StatusStrip1"
@ -524,7 +526,7 @@ Partial Class frmNIProfileigenschaften
Me.lblDateiendung.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblDateiendung.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDateiendung.Location = New System.Drawing.Point(130, 25) Me.lblDateiendung.Location = New System.Drawing.Point(130, 25)
Me.lblDateiendung.Name = "lblDateiendung" Me.lblDateiendung.Name = "lblDateiendung"
Me.lblDateiendung.Size = New System.Drawing.Size(114, 13) Me.lblDateiendung.Size = New System.Drawing.Size(113, 13)
Me.lblDateiendung.TabIndex = 3 Me.lblDateiendung.TabIndex = 3
Me.lblDateiendung.Text = "Dateiendungen/Typ*" Me.lblDateiendung.Text = "Dateiendungen/Typ*"
' '
@ -555,11 +557,12 @@ Partial Class frmNIProfileigenschaften
' '
'btnVerknüpfungen 'btnVerknüpfungen
' '
Me.btnVerknüpfungen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.btnVerknüpfungen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnVerknüpfungen.Location = New System.Drawing.Point(754, 36) Me.btnVerknüpfungen.Location = New System.Drawing.Point(746, 26)
Me.btnVerknüpfungen.Name = "btnVerknüpfungen" Me.btnVerknüpfungen.Name = "btnVerknüpfungen"
Me.btnVerknüpfungen.Size = New System.Drawing.Size(150, 23) Me.btnVerknüpfungen.Size = New System.Drawing.Size(171, 23)
Me.btnVerknüpfungen.TabIndex = 49 Me.btnVerknüpfungen.TabIndex = 49
Me.btnVerknüpfungen.Text = "Verknüpfungen verwalten ..." Me.btnVerknüpfungen.Text = "Verknüpfungen verwalten ..."
Me.btnVerknüpfungen.UseVisualStyleBackColor = True Me.btnVerknüpfungen.UseVisualStyleBackColor = True
@ -569,7 +572,7 @@ Partial Class frmNIProfileigenschaften
' '
Me.txtWindreamsuche.BackColor = System.Drawing.SystemColors.Info Me.txtWindreamsuche.BackColor = System.Drawing.SystemColors.Info
Me.txtWindreamsuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtWindreamsuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtWindreamsuche.Location = New System.Drawing.Point(18, 126) Me.txtWindreamsuche.Location = New System.Drawing.Point(7, 118)
Me.txtWindreamsuche.Name = "txtWindreamsuche" Me.txtWindreamsuche.Name = "txtWindreamsuche"
Me.txtWindreamsuche.Size = New System.Drawing.Size(451, 22) Me.txtWindreamsuche.Size = New System.Drawing.Size(451, 22)
Me.txtWindreamsuche.TabIndex = 6 Me.txtWindreamsuche.TabIndex = 6
@ -577,7 +580,7 @@ Partial Class frmNIProfileigenschaften
'btnWindreamsuche 'btnWindreamsuche
' '
Me.btnWindreamsuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnWindreamsuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnWindreamsuche.Location = New System.Drawing.Point(475, 125) Me.btnWindreamsuche.Location = New System.Drawing.Point(464, 117)
Me.btnWindreamsuche.Name = "btnWindreamsuche" Me.btnWindreamsuche.Name = "btnWindreamsuche"
Me.btnWindreamsuche.Size = New System.Drawing.Size(24, 21) Me.btnWindreamsuche.Size = New System.Drawing.Size(24, 21)
Me.btnWindreamsuche.TabIndex = 3 Me.btnWindreamsuche.TabIndex = 3
@ -587,7 +590,7 @@ Partial Class frmNIProfileigenschaften
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(15, 63) Me.Label2.Location = New System.Drawing.Point(4, 55)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(61, 13) Me.Label2.Size = New System.Drawing.Size(61, 13)
Me.Label2.TabIndex = 37 Me.Label2.TabIndex = 37
@ -596,7 +599,7 @@ Partial Class frmNIProfileigenschaften
'Label1 'Label1
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(15, 22) Me.Label1.Location = New System.Drawing.Point(4, 14)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(70, 13) Me.Label1.Size = New System.Drawing.Size(70, 13)
Me.Label1.TabIndex = 36 Me.Label1.TabIndex = 36
@ -604,7 +607,7 @@ Partial Class frmNIProfileigenschaften
' '
'txtProfilname 'txtProfilname
' '
Me.txtProfilname.Location = New System.Drawing.Point(18, 38) Me.txtProfilname.Location = New System.Drawing.Point(7, 30)
Me.txtProfilname.Name = "txtProfilname" Me.txtProfilname.Name = "txtProfilname"
Me.txtProfilname.Size = New System.Drawing.Size(396, 22) Me.txtProfilname.Size = New System.Drawing.Size(396, 22)
Me.txtProfilname.TabIndex = 35 Me.txtProfilname.TabIndex = 35
@ -613,7 +616,7 @@ Partial Class frmNIProfileigenschaften
' '
Me.chkbxAktiv.AutoSize = True Me.chkbxAktiv.AutoSize = True
Me.chkbxAktiv.BackColor = System.Drawing.Color.Transparent Me.chkbxAktiv.BackColor = System.Drawing.Color.Transparent
Me.chkbxAktiv.Location = New System.Drawing.Point(429, 40) Me.chkbxAktiv.Location = New System.Drawing.Point(418, 32)
Me.chkbxAktiv.Name = "chkbxAktiv" Me.chkbxAktiv.Name = "chkbxAktiv"
Me.chkbxAktiv.Size = New System.Drawing.Size(119, 17) Me.chkbxAktiv.Size = New System.Drawing.Size(119, 17)
Me.chkbxAktiv.TabIndex = 52 Me.chkbxAktiv.TabIndex = 52
@ -671,7 +674,7 @@ Partial Class frmNIProfileigenschaften
'Label7 'Label7
' '
Me.Label7.AutoSize = True Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(426, 63) Me.Label7.Location = New System.Drawing.Point(415, 55)
Me.Label7.Name = "Label7" Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(98, 13) Me.Label7.Size = New System.Drawing.Size(98, 13)
Me.Label7.TabIndex = 73 Me.Label7.TabIndex = 73
@ -681,7 +684,7 @@ Partial Class frmNIProfileigenschaften
' '
Me.txtlastRun.BackColor = System.Drawing.Color.WhiteSmoke Me.txtlastRun.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtlastRun.Enabled = False Me.txtlastRun.Enabled = False
Me.txtlastRun.Location = New System.Drawing.Point(429, 79) Me.txtlastRun.Location = New System.Drawing.Point(418, 71)
Me.txtlastRun.Name = "txtlastRun" Me.txtlastRun.Name = "txtlastRun"
Me.txtlastRun.Size = New System.Drawing.Size(160, 22) Me.txtlastRun.Size = New System.Drawing.Size(160, 22)
Me.txtlastRun.TabIndex = 74 Me.txtlastRun.TabIndex = 74
@ -733,7 +736,7 @@ Partial Class frmNIProfileigenschaften
Me.lblSave.AutoSize = True Me.lblSave.AutoSize = True
Me.lblSave.BackColor = System.Drawing.Color.Yellow Me.lblSave.BackColor = System.Drawing.Color.Yellow
Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSave.Location = New System.Drawing.Point(643, 79) Me.lblSave.Location = New System.Drawing.Point(656, 71)
Me.lblSave.Name = "lblSave" Me.lblSave.Name = "lblSave"
Me.lblSave.Size = New System.Drawing.Size(261, 17) Me.lblSave.Size = New System.Drawing.Size(261, 17)
Me.lblSave.TabIndex = 76 Me.lblSave.TabIndex = 76
@ -765,10 +768,10 @@ Partial Class frmNIProfileigenschaften
Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3) Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage4) Me.TabControl1.Controls.Add(Me.TabPage4)
Me.TabControl1.Location = New System.Drawing.Point(18, 159) Me.TabControl1.Location = New System.Drawing.Point(3, 222)
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(890, 442) Me.TabControl1.Size = New System.Drawing.Size(985, 481)
Me.TabControl1.TabIndex = 78 Me.TabControl1.TabIndex = 78
' '
'TabPage1 'TabPage1
@ -781,7 +784,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(882, 416) Me.TabPage1.Size = New System.Drawing.Size(977, 455)
Me.TabPage1.TabIndex = 0 Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Typ und Quelle" Me.TabPage1.Text = "Typ und Quelle"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
@ -802,7 +805,7 @@ Partial Class frmNIProfileigenschaften
Me.grbxLDAP.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.grbxLDAP.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.grbxLDAP.Location = New System.Drawing.Point(407, 210) Me.grbxLDAP.Location = New System.Drawing.Point(407, 210)
Me.grbxLDAP.Name = "grbxLDAP" Me.grbxLDAP.Name = "grbxLDAP"
Me.grbxLDAP.Size = New System.Drawing.Size(413, 176) Me.grbxLDAP.Size = New System.Drawing.Size(508, 215)
Me.grbxLDAP.TabIndex = 79 Me.grbxLDAP.TabIndex = 79
Me.grbxLDAP.TabStop = False Me.grbxLDAP.TabStop = False
Me.grbxLDAP.Text = "Indexierung gegen Active Directory:" Me.grbxLDAP.Text = "Indexierung gegen Active Directory:"
@ -904,7 +907,7 @@ Partial Class frmNIProfileigenschaften
Me.grbxVolltext.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.grbxVolltext.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.grbxVolltext.Location = New System.Drawing.Point(568, 18) Me.grbxVolltext.Location = New System.Drawing.Point(568, 18)
Me.grbxVolltext.Name = "grbxVolltext" Me.grbxVolltext.Name = "grbxVolltext"
Me.grbxVolltext.Size = New System.Drawing.Size(293, 162) Me.grbxVolltext.Size = New System.Drawing.Size(392, 201)
Me.grbxVolltext.TabIndex = 78 Me.grbxVolltext.TabIndex = 78
Me.grbxVolltext.TabStop = False Me.grbxVolltext.TabStop = False
Me.grbxVolltext.Text = "Indexierung gegen den Volltext" Me.grbxVolltext.Text = "Indexierung gegen den Volltext"
@ -957,7 +960,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(882, 416) Me.TabPage2.Size = New System.Drawing.Size(970, 556)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kennzeichnung und Active Directory" Me.TabPage2.Text = "Kennzeichnung und Active Directory"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
@ -1251,7 +1254,7 @@ Partial Class frmNIProfileigenschaften
Me.Label4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(6, 18) Me.Label4.Location = New System.Drawing.Point(6, 18)
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(639, 15) Me.Label4.Size = New System.Drawing.Size(638, 15)
Me.Label4.TabIndex = 71 Me.Label4.TabIndex = 71
Me.Label4.Text = "Wählen Sie hier einen Ordner in windream, in welchen die Datei, nach erfolgreiche" & Me.Label4.Text = "Wählen Sie hier einen Ordner in windream, in welchen die Datei, nach erfolgreiche" &
"r Indexierung verschoben werden soll." "r Indexierung verschoben werden soll."
@ -1290,7 +1293,7 @@ Partial Class frmNIProfileigenschaften
Me.Label24.AutoSize = True Me.Label24.AutoSize = True
Me.Label24.Location = New System.Drawing.Point(461, 56) Me.Label24.Location = New System.Drawing.Point(461, 56)
Me.Label24.Name = "Label24" Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(121, 13) Me.Label24.Size = New System.Drawing.Size(122, 13)
Me.Label24.TabIndex = 63 Me.Label24.TabIndex = 63
Me.Label24.Text = "Beispiel Ordnerebene:" Me.Label24.Text = "Beispiel Ordnerebene:"
' '
@ -1320,31 +1323,31 @@ Partial Class frmNIProfileigenschaften
Me.TreeViewOrdnerVererbung.ImageList = Me.ImageList1 Me.TreeViewOrdnerVererbung.ImageList = Me.ImageList1
Me.TreeViewOrdnerVererbung.Location = New System.Drawing.Point(464, 72) Me.TreeViewOrdnerVererbung.Location = New System.Drawing.Point(464, 72)
Me.TreeViewOrdnerVererbung.Name = "TreeViewOrdnerVererbung" Me.TreeViewOrdnerVererbung.Name = "TreeViewOrdnerVererbung"
TreeNode1.ImageKey = "page.png" TreeNode10.ImageKey = "page.png"
TreeNode1.Name = "Knoten3" TreeNode10.Name = "Knoten3"
TreeNode1.SelectedImageIndex = 1 TreeNode10.SelectedImageIndex = 1
TreeNode1.Text = "Datei 1" TreeNode10.Text = "Datei 1"
TreeNode2.ImageKey = "page.png" TreeNode11.ImageKey = "page.png"
TreeNode2.Name = "Knoten4" TreeNode11.Name = "Knoten4"
TreeNode2.SelectedImageIndex = 1 TreeNode11.SelectedImageIndex = 1
TreeNode2.Text = "Datei 2" TreeNode11.Text = "Datei 2"
TreeNode3.ImageKey = "page.png" TreeNode12.ImageKey = "page.png"
TreeNode3.Name = "Knoten5" TreeNode12.Name = "Knoten5"
TreeNode3.SelectedImageIndex = 1 TreeNode12.SelectedImageIndex = 1
TreeNode3.Text = "Datei 3" TreeNode12.Text = "Datei 3"
TreeNode4.Name = "Knoten4" TreeNode13.Name = "Knoten4"
TreeNode4.Text = "Parent" TreeNode13.Text = "Parent"
TreeNode5.Name = "Knoten3" TreeNode14.Name = "Knoten3"
TreeNode5.Text = "-1" TreeNode14.Text = "-1"
TreeNode6.Name = "Knoten2" TreeNode15.Name = "Knoten2"
TreeNode6.Text = "-2" TreeNode15.Text = "-2"
TreeNode7.Name = "Knoten5" TreeNode16.Name = "Knoten5"
TreeNode7.Text = "-3" TreeNode16.Text = "-3"
TreeNode8.Name = "Knoten1" TreeNode17.Name = "Knoten1"
TreeNode8.Text = "-4" TreeNode17.Text = "-4"
TreeNode9.Name = "Knoten0" TreeNode18.Name = "Knoten0"
TreeNode9.Text = "Windream-/W-Laufwerk" TreeNode18.Text = "Windream-/W-Laufwerk"
Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode9}) Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode18})
Me.TreeViewOrdnerVererbung.SelectedImageIndex = 0 Me.TreeViewOrdnerVererbung.SelectedImageIndex = 0
Me.TreeViewOrdnerVererbung.Size = New System.Drawing.Size(220, 157) Me.TreeViewOrdnerVererbung.Size = New System.Drawing.Size(220, 157)
Me.TreeViewOrdnerVererbung.TabIndex = 59 Me.TreeViewOrdnerVererbung.TabIndex = 59
@ -1401,7 +1404,7 @@ Partial Class frmNIProfileigenschaften
' '
Me.Label16.AutoSize = True Me.Label16.AutoSize = True
Me.Label16.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label16.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label16.Location = New System.Drawing.Point(15, 110) Me.Label16.Location = New System.Drawing.Point(4, 102)
Me.Label16.Name = "Label16" Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(174, 13) Me.Label16.Size = New System.Drawing.Size(174, 13)
Me.Label16.TabIndex = 79 Me.Label16.TabIndex = 79
@ -1409,7 +1412,7 @@ Partial Class frmNIProfileigenschaften
' '
'txtObjekttyp 'txtObjekttyp
' '
Me.txtObjekttyp.Location = New System.Drawing.Point(18, 79) Me.txtObjekttyp.Location = New System.Drawing.Point(7, 71)
Me.txtObjekttyp.Name = "txtObjekttyp" Me.txtObjekttyp.Name = "txtObjekttyp"
Me.txtObjekttyp.ReadOnly = True Me.txtObjekttyp.ReadOnly = True
Me.txtObjekttyp.Size = New System.Drawing.Size(396, 22) Me.txtObjekttyp.Size = New System.Drawing.Size(396, 22)
@ -1421,7 +1424,7 @@ Partial Class frmNIProfileigenschaften
Me.btnopenSuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnopenSuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnopenSuche.Image = Global.ToolCollection.My.Resources.Resources.plugin Me.btnopenSuche.Image = Global.ToolCollection.My.Resources.Resources.plugin
Me.btnopenSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnopenSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnopenSuche.Location = New System.Drawing.Point(505, 117) Me.btnopenSuche.Location = New System.Drawing.Point(494, 109)
Me.btnopenSuche.Name = "btnopenSuche" Me.btnopenSuche.Name = "btnopenSuche"
Me.btnopenSuche.Padding = New System.Windows.Forms.Padding(0, 0, 2, 2) Me.btnopenSuche.Padding = New System.Windows.Forms.Padding(0, 0, 2, 2)
Me.btnopenSuche.Size = New System.Drawing.Size(68, 36) Me.btnopenSuche.Size = New System.Drawing.Size(68, 36)
@ -1430,26 +1433,35 @@ Partial Class frmNIProfileigenschaften
Me.btnopenSuche.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnopenSuche.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnopenSuche.UseVisualStyleBackColor = True Me.btnopenSuche.UseVisualStyleBackColor = True
' '
'pnlProfileigenschaften
'
Me.pnlProfileigenschaften.Controls.Add(Me.TabControl1)
Me.pnlProfileigenschaften.Controls.Add(Me.txtObjekttyp)
Me.pnlProfileigenschaften.Controls.Add(Me.lblSave)
Me.pnlProfileigenschaften.Controls.Add(Me.btnopenSuche)
Me.pnlProfileigenschaften.Controls.Add(Me.btnVerknüpfungen)
Me.pnlProfileigenschaften.Controls.Add(Me.Label16)
Me.pnlProfileigenschaften.Controls.Add(Me.txtProfilname)
Me.pnlProfileigenschaften.Controls.Add(Me.btnWindreamsuche)
Me.pnlProfileigenschaften.Controls.Add(Me.Label2)
Me.pnlProfileigenschaften.Controls.Add(Me.txtWindreamsuche)
Me.pnlProfileigenschaften.Controls.Add(Me.Label1)
Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun)
Me.pnlProfileigenschaften.Controls.Add(Me.chkbxAktiv)
Me.pnlProfileigenschaften.Controls.Add(Me.Label7)
Me.pnlProfileigenschaften.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlProfileigenschaften.Location = New System.Drawing.Point(0, 22)
Me.pnlProfileigenschaften.Name = "pnlProfileigenschaften"
Me.pnlProfileigenschaften.Size = New System.Drawing.Size(991, 706)
Me.pnlProfileigenschaften.TabIndex = 81
'
'frmNIProfileigenschaften 'frmNIProfileigenschaften
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(920, 603) Me.ClientSize = New System.Drawing.Size(991, 728)
Me.Controls.Add(Me.txtObjekttyp) Me.Controls.Add(Me.pnlProfileigenschaften)
Me.Controls.Add(Me.btnopenSuche)
Me.Controls.Add(Me.Label16)
Me.Controls.Add(Me.btnWindreamsuche)
Me.Controls.Add(Me.txtWindreamsuche)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.lblSave)
Me.Controls.Add(Me.txtlastRun)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.chkbxAktiv)
Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.btnVerknüpfungen)
Me.Controls.Add(Me.txtProfilname)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label2)
Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNIProfileigenschaften", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged)) Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNIProfileigenschaften", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@ -1488,6 +1500,8 @@ Partial Class frmNIProfileigenschaften
Me.GroupBox3.PerformLayout() Me.GroupBox3.PerformLayout()
Me.TabPage4.ResumeLayout(False) Me.TabPage4.ResumeLayout(False)
Me.TabPage4.PerformLayout() Me.TabPage4.PerformLayout()
Me.pnlProfileigenschaften.ResumeLayout(False)
Me.pnlProfileigenschaften.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -1607,4 +1621,5 @@ Partial Class frmNIProfileigenschaften
Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents Label25 As System.Windows.Forms.Label Friend WithEvents Label25 As System.Windows.Forms.Label
Friend WithEvents btnMoveRename As Button Friend WithEvents btnMoveRename As Button
Friend WithEvents pnlProfileigenschaften As Panel
End Class End Class

24
ToolCollection/frmNIProfileigenschaften.resx
View File

@ -130,17 +130,17 @@
<data name="btnMdbLöschen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnMdbLöschen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIySURBVDhPlZJrTxNBFIaJicnG36BWiYbISkDiDaEt dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAItSURBVDhPnZHbThNhFEaJicnEZ1BRojEyEpB4QqBl
C5TWBgQT6P1Cu5UC0pZe0qZQG/WDJv4SfxeIir1hpbu97Pb1TEmXbvqJD08yc2be98w5Z0YAXIvmlnhr OBUbEEig9FymRU5CDzBpMxwa8UITn8TnAlGxtFSgM6Wd6TIFHanjjV58yfcn/1rJ3rsJaPqXlGdj1y6/
cK87RCZnIHhdbIBmMMzLXn+i4XCb+rGrC0ycO0Q3m4eaSA2ZNAMhvhmKoLWzh39vN77XV9cesbhOjOIn Gz8omWaUjPgnZMGRqKgHQomSx+ewC+pwZoNaWsVMrNkk5bAsluU5zhaXOZmc+ng8Nn7/t+AnTHaHWnYH
dAk1mUFnd18zkf1bPGVHJ5YACkWw9bnVnqguWG5cGqSzXDeZUbuHH4Cv36DmC8wArZDIy74gT9nR3o8D M6VQXVqxJHpoVixHolRXE7CVpd6LLnei0D905UKwnhZqKcWsbWzD+w+Y6lZdwJkcE/VgRCyHZSorcdjY
dC4HQzhffq1UhaWbVy8g1HiSU97HFTWTAz5/gZLOohmOgLKjvRcD8ke9dc1iI/Ei19dpBoxOdJdridtK Ro/IFIdfGAVp8GrDCGY8JRiv44apZODtO4z1NOXoHHpolsryKqib5/1oaMQoSAOCfQfQVF1YEs5i80Z1
J3ZA5XwEjookLAC5PGRfALUlq1KdX9DEDJ0Bg57LSR6/ijyV4w0ALi+QyaK2uKxWzIJOzNBtGJLbx0YF NQnZN7CZBXULMip6MMzRoMso9PVbsE1QTzksC5o/ZKJuQyAM3gAoaY4Ghs28U2qA/yrQfMH6qSCtgscH
0DTgcAMbTuAgRXXbUJqZG5qObiO5vLzk8aEdiQKpDAnTQJzKoQbKm05UjWb8nprWmWiLhtPDS24v2uI2 UzOQXKM4PEKuq8d2nUbYGxA1f5DK3AKsKZBch3gSVuLo0zMUep187ehskFilNOMXNV+ASmweUgqa109B
QGOUXB5Qs5TynEm9WF0HojtovFlH6elznI6NayaXYoebp+xoh99R1iQkejo1SynPmrjSixnubPqZUrdY GjAOexzm6dgELCxSejlB7tET9u+1WpIL2OMTNW+ASvQVJFNoHh+Fvn7jsNsh5J52CQedj43jIRdEY5yO
gbCIC5sdZxOTOLk32jPpGdDPEhoOF9ohEdKmC9QspfzKqDXs18QU93P8sfLXLECyr+DP5BMc3zEImgGD uDloa2fvVsu55FxwMjkllTxeKnIMbdpL3ikZh897rYV9aesQPrc+ML47JTT3KN/aH7J7o1lqGKHockvH
fpZQX1lDxTSvUrOGun36cIz7MfpAGRQzdJcqRrNQejk7JO5zYrjPHd++q4kZugvXByP/AXK7pMeJCyzg o+PkHX1mrqvHtu39u/eETy13jMtwg6CefK9Tyj3rtsG/std8W9i9ftOCbYL/yQ9yu6TH5dYZBAAAAABJ
AAAAAElFTkSuQmCC RU5ErkJggg==
</value> </value>
</data> </data>
<metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
CQAAAk1TRnQBSQFMAgEBAgEAAZgBAAGYAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CQAAAk1TRnQBSQFMAgEBAgEAAaABAAGgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

25
ToolCollection/frmNIProfileigenschaften.vb
View File

@ -142,6 +142,7 @@ Public Class frmNIProfileigenschaften
' die Profile neu in die Combobox der Toolbar laden (für den Fall das Profilname geändert wurde) ' die Profile neu in die Combobox der Toolbar laden (für den Fall das Profilname geändert wurde)
Me.LoadProfilesInCombobox() Me.LoadProfilesInCombobox()
Me.pnlProfileigenschaften.Visible = False
' die Profileigenschaften auf diesem Panel ausblenden ' die Profileigenschaften auf diesem Panel ausblenden
' den Speichern-Button deaktivieren ' den Speichern-Button deaktivieren
Me.btnSpeichern.Enabled = False Me.btnSpeichern.Enabled = False
@ -158,6 +159,7 @@ Public Class frmNIProfileigenschaften
' wenn ein Profil selektiert ist: den originalen Profilnamen setzen ' wenn ein Profil selektiert ist: den originalen Profilnamen setzen
If Me._selectedProfile IsNot Nothing Then Me._selectedProfile.SetBackToOriginal() If Me._selectedProfile IsNot Nothing Then Me._selectedProfile.SetBackToOriginal()
Me.pnlProfileigenschaften.Visible = False
' den Speichern-Button deaktivieren ' den Speichern-Button deaktivieren
Me.btnSpeichern.Enabled = False Me.btnSpeichern.Enabled = False
' den Löschen-Button deaktivieren ' den Löschen-Button deaktivieren
@ -174,6 +176,8 @@ Public Class frmNIProfileigenschaften
Return "keineAenderung" Return "keineAenderung"
' wenn ein Profil selektiert ist: den originalen Profilnamen setzen ' wenn ein Profil selektiert ist: den originalen Profilnamen setzen
If Me._selectedProfile IsNot Nothing Then Me._selectedProfile.SetBackToOriginal() If Me._selectedProfile IsNot Nothing Then Me._selectedProfile.SetBackToOriginal()
Me.pnlProfileigenschaften.Visible = False
' den Speichern-Button deaktivieren ' den Speichern-Button deaktivieren
Me.btnSpeichern.Enabled = False Me.btnSpeichern.Enabled = False
' den Löschen-Button deaktivieren ' den Löschen-Button deaktivieren
@ -249,6 +253,7 @@ Public Class frmNIProfileigenschaften
Me._selectedProfile = ClassNIProfile.getProfilByName(name) Me._selectedProfile = ClassNIProfile.getProfilByName(name)
' wenn das selektierte Profil gefunden wurde ' wenn das selektierte Profil gefunden wurde
If Me._selectedProfile IsNot Nothing Then If Me._selectedProfile IsNot Nothing Then
Me.pnlProfileigenschaften.Visible = True
Me.lblSave.Visible = False Me.lblSave.Visible = False
' die Steuerelemente für die Profilinformationen mit den Daten füllen ' die Steuerelemente für die Profilinformationen mit den Daten füllen
Me.txtProfilname.Text = Me._selectedProfile.Profilname Me.txtProfilname.Text = Me._selectedProfile.Profilname
@ -541,7 +546,8 @@ Public Class frmNIProfileigenschaften
End Sub End Sub
Private Sub btnHinzufügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHinzufügen.Click Private Sub btnHinzufügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHinzufügen.Click
frmLogin_NI.ShowDialog() 'frmLogin_NI.ShowDialog()
frmNIProfilhinzufuegen.ShowDialog()
' wenn das Formular geschlossen wurde, werden die Profile neu in die Combobox geladen ' wenn das Formular geschlossen wurde, werden die Profile neu in die Combobox geladen
Me.LoadProfilesInCombobox() Me.LoadProfilesInCombobox()
End Sub End Sub
@ -644,20 +650,24 @@ Public Class frmNIProfileigenschaften
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
' das Profil löschen ' das Profil löschen
If ClassNIProfile.DeleteProfil(Me._selectedProfile.OriginalProfilname) Then If ClassNIProfile.DeleteProfil(Me._selectedProfile.OriginalProfilname) Then
Me.pnlProfileigenschaften.Visible = False
' den Speichern-Button deaktivieren ' den Speichern-Button deaktivieren
Me.btnSpeichern.Enabled = False Me.btnSpeichern.Enabled = False
' den Löschen-Button deaktivieren ' den Löschen-Button deaktivieren
Me.btnLöschen.Enabled = False Me.btnLöschen.Enabled = False
' kein Profil als selektiert wählen ' kein Profil als selektiert wählen
Me._selectedProfile = Nothing Me._selectedProfile = Nothing
Me.lblProfil.Text = "Kein Profil gewählt"
' die Profile neu in die Combobox laden ' die Profile neu in die Combobox laden
Me.LoadProfilesInCombobox() Me.LoadProfilesInCombobox()
'Das erste Profil laden 'Das erste Profil laden
Try 'Try
Lade_Profil(Me.cmbProfilauswahl.DropDownItems(0).ToString) ' Lade_Profil(Me.cmbProfilauswahl.DropDownItems(0).ToString)
Catch ex As Exception 'Catch ex As Exception
End Try 'End Try
End If End If
End If End If
@ -1103,6 +1113,11 @@ Public Class frmNIProfileigenschaften
Else Else
grpbxMORE.Enabled = False grpbxMORE.Enabled = False
End If End If
If Me._selectedProfile Is Nothing Then
Me.pnlProfileigenschaften.Visible = False
Else
Lade_Profil(Me._selectedProfile.Profilname)
End If
End Sub End Sub
Private Sub chkbxUserIdent_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxUserIdent.CheckedChanged Private Sub chkbxUserIdent_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxUserIdent.CheckedChanged

1
ToolCollection/frmNIProfilhinzufuegen.vb
View File

@ -34,7 +34,6 @@ Public Class frmNIProfilhinzufuegen
' Standardbuttons festlegen ' Standardbuttons festlegen
Me.AcceptButton = Me.btnOK Me.AcceptButton = Me.btnOK
Me.CancelButton = Me.btnAbbrechen Me.CancelButton = Me.btnAbbrechen
frmLogin_NI.Close()
End Sub End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click