diff --git a/ToolCollection/frmDIProfilEigenschaften.Designer.vb b/ToolCollection/frmDIProfilEigenschaften.Designer.vb index be46622..45be5e2 100644 --- a/ToolCollection/frmDIProfilEigenschaften.Designer.vb +++ b/ToolCollection/frmDIProfilEigenschaften.Designer.vb @@ -24,22 +24,21 @@ Partial Class frmDIProfilEigenschaften Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDIProfilEigenschaften)) Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton() + Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton() + Me.btnHinzufügen = New System.Windows.Forms.ToolStripDropDownButton() Me.cmbProfilauswahl = New System.Windows.Forms.ToolStripSplitButton() Me.tslblAnzahl = New System.Windows.Forms.ToolStripStatusLabel() + Me.tsbtnfirst = New System.Windows.Forms.ToolStripDropDownButton() + Me.tsbtnprevious = New System.Windows.Forms.ToolStripDropDownButton() + Me.tsbtnnext = New System.Windows.Forms.ToolStripDropDownButton() + Me.tsbtnlast = New System.Windows.Forms.ToolStripDropDownButton() Me.lblProfil = New System.Windows.Forms.ToolStripStatusLabel() Me.dlgQuellordner = New System.Windows.Forms.FolderBrowserDialog() Me.dlgZielordner = New System.Windows.Forms.FolderBrowserDialog() Me.dlgBackupordner = New System.Windows.Forms.FolderBrowserDialog() Me.pnlProfileigenschaften = New System.Windows.Forms.Panel() - Me.GroupBox3 = New System.Windows.Forms.GroupBox() - Me.Label10 = New System.Windows.Forms.Label() - Me.cmbl2Nav_Index = New System.Windows.Forms.ComboBox() - Me.Label9 = New System.Windows.Forms.Label() - Me.cmbl2NavDokartindex = New System.Windows.Forms.ComboBox() - Me.Label8 = New System.Windows.Forms.Label() - Me.btnLink2Navision = New System.Windows.Forms.Button() - Me.txtLink2Navision = New System.Windows.Forms.TextBox() - Me.chkbxlink2Navision = New System.Windows.Forms.CheckBox() + Me.Button1 = New System.Windows.Forms.Button() Me.txtlastRun = New System.Windows.Forms.TextBox() Me.Label7 = New System.Windows.Forms.Label() Me.GroupBox2 = New System.Windows.Forms.GroupBox() @@ -60,6 +59,7 @@ Partial Class frmDIProfilEigenschaften Me.rbUV_Date1 = New System.Windows.Forms.RadioButton() Me.chkb_DateUV = New System.Windows.Forms.CheckBox() Me.Label5 = New System.Windows.Forms.Label() + Me.btnRegeln = New System.Windows.Forms.Button() Me.boxImportoptionenLoeschen = New System.Windows.Forms.GroupBox() Me.chkUVloeschen = New System.Windows.Forms.CheckBox() Me.chkQuellverzeichnisLoeschen = New System.Windows.Forms.CheckBox() @@ -75,18 +75,8 @@ Partial Class frmDIProfilEigenschaften Me.Label1 = New System.Windows.Forms.Label() Me.txtProfilname = New System.Windows.Forms.TextBox() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() - Me.Button1 = New System.Windows.Forms.Button() - Me.btnRegeln = New System.Windows.Forms.Button() - Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton() - Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton() - Me.btnHinzufügen = New System.Windows.Forms.ToolStripDropDownButton() - Me.tsbtnfirst = New System.Windows.Forms.ToolStripDropDownButton() - Me.tsbtnprevious = New System.Windows.Forms.ToolStripDropDownButton() - Me.tsbtnnext = New System.Windows.Forms.ToolStripDropDownButton() - Me.tsbtnlast = New System.Windows.Forms.ToolStripDropDownButton() Me.StatusStrip1.SuspendLayout() Me.pnlProfileigenschaften.SuspendLayout() - Me.GroupBox3.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.boxImportoptionenLoeschen.SuspendLayout() @@ -107,6 +97,41 @@ Partial Class frmDIProfilEigenschaften Me.StatusStrip1.TabIndex = 21 Me.StatusStrip1.Text = "StatusStrip1" ' + 'btnSpeichern + ' + Me.btnSpeichern.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.btnSpeichern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnSpeichern.Enabled = False + Me.btnSpeichern.Image = Global.ToolCollection.My.Resources.Resources.table_save + Me.btnSpeichern.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnSpeichern.Name = "btnSpeichern" + Me.btnSpeichern.ShowDropDownArrow = False + Me.btnSpeichern.Size = New System.Drawing.Size(20, 20) + Me.btnSpeichern.Text = "Profil speichern" + ' + 'btnLöschen + ' + Me.btnLöschen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.btnLöschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnLöschen.Enabled = False + Me.btnLöschen.Image = Global.ToolCollection.My.Resources.Resources.table_delete + Me.btnLöschen.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnLöschen.Name = "btnLöschen" + Me.btnLöschen.ShowDropDownArrow = False + Me.btnLöschen.Size = New System.Drawing.Size(20, 20) + Me.btnLöschen.Text = "Profil löschen" + ' + 'btnHinzufügen + ' + Me.btnHinzufügen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.btnHinzufügen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.btnHinzufügen.Image = Global.ToolCollection.My.Resources.Resources.table_add + Me.btnHinzufügen.ImageTransparentColor = System.Drawing.Color.Magenta + Me.btnHinzufügen.Name = "btnHinzufügen" + Me.btnHinzufügen.ShowDropDownArrow = False + Me.btnHinzufügen.Size = New System.Drawing.Size(20, 20) + Me.btnHinzufügen.Text = "Profil hinzufügen" + ' 'cmbProfilauswahl ' Me.cmbProfilauswahl.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right @@ -122,6 +147,49 @@ Partial Class frmDIProfilEigenschaften Me.tslblAnzahl.Size = New System.Drawing.Size(94, 17) Me.tslblAnzahl.Text = "Anzahl Profile: " ' + 'tsbtnfirst + ' + Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbtnfirst.DoubleClickEnabled = True + Me.tsbtnfirst.Image = Global.ToolCollection.My.Resources.Resources.control_rewind + Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnfirst.Name = "tsbtnfirst" + Me.tsbtnfirst.ShowDropDownArrow = False + Me.tsbtnfirst.Size = New System.Drawing.Size(20, 20) + Me.tsbtnfirst.Text = "Erstes Profil" + ' + 'tsbtnprevious + ' + Me.tsbtnprevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbtnprevious.Image = Global.ToolCollection.My.Resources.Resources.arrow_left + Me.tsbtnprevious.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnprevious.Name = "tsbtnprevious" + Me.tsbtnprevious.ShowDropDownArrow = False + Me.tsbtnprevious.Size = New System.Drawing.Size(20, 20) + Me.tsbtnprevious.Text = "ToolStripDropDownButton2" + Me.tsbtnprevious.ToolTipText = "Vorheriges Profil" + ' + 'tsbtnnext + ' + Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbtnnext.Image = Global.ToolCollection.My.Resources.Resources.arrow_right + Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnnext.Name = "tsbtnnext" + Me.tsbtnnext.ShowDropDownArrow = False + Me.tsbtnnext.Size = New System.Drawing.Size(20, 20) + Me.tsbtnnext.Text = "ToolStripDropDownButton3" + Me.tsbtnnext.ToolTipText = "Nächstes Profil" + ' + 'tsbtnlast + ' + Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbtnlast.Image = Global.ToolCollection.My.Resources.Resources.control_fastforward + Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnlast.Name = "tsbtnlast" + Me.tsbtnlast.ShowDropDownArrow = False + Me.tsbtnlast.Size = New System.Drawing.Size(20, 20) + Me.tsbtnlast.Text = "Letztes Profil" + ' 'lblProfil ' Me.lblProfil.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -132,7 +200,6 @@ Partial Class frmDIProfilEigenschaften 'pnlProfileigenschaften ' Me.pnlProfileigenschaften.Controls.Add(Me.Button1) - Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox3) Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun) Me.pnlProfileigenschaften.Controls.Add(Me.Label7) Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox2) @@ -155,101 +222,17 @@ Partial Class frmDIProfilEigenschaften Me.pnlProfileigenschaften.TabIndex = 22 Me.pnlProfileigenschaften.Visible = False ' - 'GroupBox3 + 'Button1 ' - Me.GroupBox3.Controls.Add(Me.Label10) - Me.GroupBox3.Controls.Add(Me.cmbl2Nav_Index) - Me.GroupBox3.Controls.Add(Me.Label9) - Me.GroupBox3.Controls.Add(Me.cmbl2NavDokartindex) - Me.GroupBox3.Controls.Add(Me.Label8) - Me.GroupBox3.Controls.Add(Me.btnLink2Navision) - Me.GroupBox3.Controls.Add(Me.txtLink2Navision) - Me.GroupBox3.Controls.Add(Me.chkbxlink2Navision) - Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox3.Location = New System.Drawing.Point(15, 408) - Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Size = New System.Drawing.Size(563, 136) - Me.GroupBox3.TabIndex = 59 - Me.GroupBox3.TabStop = False - Me.GroupBox3.Text = "Zusatzmodule/-funktionen:" - ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label10.Location = New System.Drawing.Point(230, 84) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(134, 13) - Me.Label10.TabIndex = 44 - Me.Label10.Text = "Indexwert zur Übergabe:" - ' - 'cmbl2Nav_Index - ' - Me.cmbl2Nav_Index.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cmbl2Nav_Index.FormattingEnabled = True - Me.cmbl2Nav_Index.Location = New System.Drawing.Point(233, 99) - Me.cmbl2Nav_Index.Name = "cmbl2Nav_Index" - Me.cmbl2Nav_Index.Size = New System.Drawing.Size(218, 21) - Me.cmbl2Nav_Index.TabIndex = 43 - ' - 'Label9 - ' - Me.Label9.AutoSize = True - Me.Label9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label9.Location = New System.Drawing.Point(3, 84) - Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(109, 13) - Me.Label9.TabIndex = 42 - Me.Label9.Text = "Dokumentartindex: " - ' - 'cmbl2NavDokartindex - ' - Me.cmbl2NavDokartindex.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cmbl2NavDokartindex.FormattingEnabled = True - Me.cmbl2NavDokartindex.Location = New System.Drawing.Point(6, 99) - Me.cmbl2NavDokartindex.Name = "cmbl2NavDokartindex" - Me.cmbl2NavDokartindex.Size = New System.Drawing.Size(218, 21) - Me.cmbl2NavDokartindex.TabIndex = 41 - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label8.Location = New System.Drawing.Point(6, 40) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(138, 13) - Me.Label8.TabIndex = 40 - Me.Label8.Text = "Pfad zu DDLink2Navision:" - ' - 'btnLink2Navision - ' - Me.btnLink2Navision.Enabled = False - Me.btnLink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnLink2Navision.Location = New System.Drawing.Point(532, 54) - Me.btnLink2Navision.Name = "btnLink2Navision" - Me.btnLink2Navision.Size = New System.Drawing.Size(24, 21) - Me.btnLink2Navision.TabIndex = 4 - Me.btnLink2Navision.Text = "..." - Me.btnLink2Navision.UseVisualStyleBackColor = True - ' - 'txtLink2Navision - ' - Me.txtLink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtLink2Navision.Location = New System.Drawing.Point(6, 55) - Me.txtLink2Navision.Name = "txtLink2Navision" - Me.txtLink2Navision.Size = New System.Drawing.Size(520, 22) - Me.txtLink2Navision.TabIndex = 2 - ' - 'chkbxlink2Navision - ' - Me.chkbxlink2Navision.AutoSize = True - Me.chkbxlink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.chkbxlink2Navision.Location = New System.Drawing.Point(6, 20) - Me.chkbxlink2Navision.Name = "chkbxlink2Navision" - Me.chkbxlink2Navision.Size = New System.Drawing.Size(406, 17) - Me.chkbxlink2Navision.TabIndex = 1 - Me.chkbxlink2Navision.Text = "Link2Navision (Legt für die importierte Datei einen Link in MS Navision an)" - Me.chkbxlink2Navision.UseVisualStyleBackColor = True + Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.lines_Text_code_16xLG + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(584, 11) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(184, 23) + Me.Button1.TabIndex = 60 + Me.Button1.Text = "Regular Expressions" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True ' 'txtlastRun ' @@ -359,7 +342,7 @@ Partial Class frmDIProfilEigenschaften ' 'txtVerzoegerung ' - Me.txtVerzoegerung.Location = New System.Drawing.Point(400, 562) + Me.txtVerzoegerung.Location = New System.Drawing.Point(400, 421) Me.txtVerzoegerung.Name = "txtVerzoegerung" Me.txtVerzoegerung.Size = New System.Drawing.Size(45, 22) Me.txtVerzoegerung.TabIndex = 55 @@ -368,7 +351,7 @@ Partial Class frmDIProfilEigenschaften 'Label6 ' Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(18, 558) + Me.Label6.Location = New System.Drawing.Point(18, 417) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(376, 26) Me.Label6.TabIndex = 54 @@ -466,6 +449,18 @@ Partial Class frmDIProfilEigenschaften Me.Label5.TabIndex = 50 Me.Label5.Text = "* bei diesem Feld handelt es sich um ein Pflichtfeld" ' + 'btnRegeln + ' + Me.btnRegeln.Image = Global.ToolCollection.My.Resources.Resources.f5 + Me.btnRegeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRegeln.Location = New System.Drawing.Point(774, 10) + Me.btnRegeln.Name = "btnRegeln" + Me.btnRegeln.Size = New System.Drawing.Size(155, 49) + Me.btnRegeln.TabIndex = 6 + Me.btnRegeln.Text = "Regeln verwalten ..." + Me.btnRegeln.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnRegeln.UseVisualStyleBackColor = True + ' 'boxImportoptionenLoeschen ' Me.boxImportoptionenLoeschen.Controls.Add(Me.chkUVloeschen) @@ -629,108 +624,6 @@ Partial Class frmDIProfilEigenschaften ' Me.OpenFileDialog1.FileName = "OpenFileDialog1" ' - 'Button1 - ' - Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.lines_Text_code_16xLG - Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(584, 11) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(184, 23) - Me.Button1.TabIndex = 60 - Me.Button1.Text = "Regular Expressions" - Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button1.UseVisualStyleBackColor = True - ' - 'btnRegeln - ' - Me.btnRegeln.Image = Global.ToolCollection.My.Resources.Resources.f5 - Me.btnRegeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnRegeln.Location = New System.Drawing.Point(774, 10) - Me.btnRegeln.Name = "btnRegeln" - Me.btnRegeln.Size = New System.Drawing.Size(155, 49) - Me.btnRegeln.TabIndex = 6 - Me.btnRegeln.Text = "Regeln verwalten ..." - Me.btnRegeln.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnRegeln.UseVisualStyleBackColor = True - ' - 'btnSpeichern - ' - Me.btnSpeichern.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.btnSpeichern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.btnSpeichern.Enabled = False - Me.btnSpeichern.Image = Global.ToolCollection.My.Resources.Resources.table_save - Me.btnSpeichern.ImageTransparentColor = System.Drawing.Color.Magenta - Me.btnSpeichern.Name = "btnSpeichern" - Me.btnSpeichern.ShowDropDownArrow = False - Me.btnSpeichern.Size = New System.Drawing.Size(20, 20) - Me.btnSpeichern.Text = "Profil speichern" - ' - 'btnLöschen - ' - Me.btnLöschen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.btnLöschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.btnLöschen.Enabled = False - Me.btnLöschen.Image = Global.ToolCollection.My.Resources.Resources.table_delete - Me.btnLöschen.ImageTransparentColor = System.Drawing.Color.Magenta - Me.btnLöschen.Name = "btnLöschen" - Me.btnLöschen.ShowDropDownArrow = False - Me.btnLöschen.Size = New System.Drawing.Size(20, 20) - Me.btnLöschen.Text = "Profil löschen" - ' - 'btnHinzufügen - ' - Me.btnHinzufügen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.btnHinzufügen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.btnHinzufügen.Image = Global.ToolCollection.My.Resources.Resources.table_add - Me.btnHinzufügen.ImageTransparentColor = System.Drawing.Color.Magenta - Me.btnHinzufügen.Name = "btnHinzufügen" - Me.btnHinzufügen.ShowDropDownArrow = False - Me.btnHinzufügen.Size = New System.Drawing.Size(20, 20) - Me.btnHinzufügen.Text = "Profil hinzufügen" - ' - 'tsbtnfirst - ' - Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.tsbtnfirst.DoubleClickEnabled = True - Me.tsbtnfirst.Image = Global.ToolCollection.My.Resources.Resources.control_rewind - Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta - Me.tsbtnfirst.Name = "tsbtnfirst" - Me.tsbtnfirst.ShowDropDownArrow = False - Me.tsbtnfirst.Size = New System.Drawing.Size(20, 20) - Me.tsbtnfirst.Text = "Erstes Profil" - ' - 'tsbtnprevious - ' - Me.tsbtnprevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.tsbtnprevious.Image = Global.ToolCollection.My.Resources.Resources.arrow_left - Me.tsbtnprevious.ImageTransparentColor = System.Drawing.Color.Magenta - Me.tsbtnprevious.Name = "tsbtnprevious" - Me.tsbtnprevious.ShowDropDownArrow = False - Me.tsbtnprevious.Size = New System.Drawing.Size(20, 20) - Me.tsbtnprevious.Text = "ToolStripDropDownButton2" - Me.tsbtnprevious.ToolTipText = "Vorheriges Profil" - ' - 'tsbtnnext - ' - Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.tsbtnnext.Image = Global.ToolCollection.My.Resources.Resources.arrow_right - Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta - Me.tsbtnnext.Name = "tsbtnnext" - Me.tsbtnnext.ShowDropDownArrow = False - Me.tsbtnnext.Size = New System.Drawing.Size(20, 20) - Me.tsbtnnext.Text = "ToolStripDropDownButton3" - Me.tsbtnnext.ToolTipText = "Nächstes Profil" - ' - 'tsbtnlast - ' - Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.tsbtnlast.Image = Global.ToolCollection.My.Resources.Resources.control_fastforward - Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta - Me.tsbtnlast.Name = "tsbtnlast" - Me.tsbtnlast.ShowDropDownArrow = False - Me.tsbtnlast.Size = New System.Drawing.Size(20, 20) - Me.tsbtnlast.Text = "Letztes Profil" - ' 'frmDIProfilEigenschaften ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -750,8 +643,6 @@ Partial Class frmDIProfilEigenschaften Me.StatusStrip1.PerformLayout() Me.pnlProfileigenschaften.ResumeLayout(False) Me.pnlProfileigenschaften.PerformLayout() - Me.GroupBox3.ResumeLayout(False) - Me.GroupBox3.PerformLayout() Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() Me.GroupBox1.ResumeLayout(False) @@ -808,16 +699,7 @@ Partial Class frmDIProfilEigenschaften Friend WithEvents tsbtnlast As System.Windows.Forms.ToolStripDropDownButton Friend WithEvents tslblAnzahl As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents lblProfil As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox - Friend WithEvents chkbxlink2Navision As System.Windows.Forms.CheckBox - Friend WithEvents Label8 As System.Windows.Forms.Label - Friend WithEvents btnLink2Navision As System.Windows.Forms.Button - Friend WithEvents txtLink2Navision As System.Windows.Forms.TextBox Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog - Friend WithEvents cmbl2NavDokartindex As System.Windows.Forms.ComboBox - Friend WithEvents Label9 As System.Windows.Forms.Label - Friend WithEvents Label10 As System.Windows.Forms.Label - Friend WithEvents cmbl2Nav_Index As System.Windows.Forms.ComboBox Friend WithEvents chkb_Subdirectories As System.Windows.Forms.CheckBox Friend WithEvents chkUVloeschen As System.Windows.Forms.CheckBox Friend WithEvents rbUV_Date3 As System.Windows.Forms.RadioButton diff --git a/ToolCollection/frmDIProfilEigenschaften.vb b/ToolCollection/frmDIProfilEigenschaften.vb index cbd79b9..945e39e 100644 --- a/ToolCollection/frmDIProfilEigenschaften.vb +++ b/ToolCollection/frmDIProfilEigenschaften.vb @@ -139,22 +139,6 @@ Public Class frmDIProfilEigenschaften Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.VerzeichnisLöschen - Me.chkbxlink2Navision.Checked = Me.selectedProfile.Link2Navision - If Me.chkbxlink2Navision.Checked = True Then - Me.txtLink2Navision.Text = My.Settings.PathLink2Navision - Me.txtLink2Navision.Enabled = True - Me.btnLink2Navision.Enabled = True - Me.cmbl2Nav_Index.Enabled = True - Me.cmbl2NavDokartindex.Enabled = True - - load_indexe_inComboboxen() - - Else - Me.txtLink2Navision.Enabled = False - Me.btnLink2Navision.Enabled = False - Me.cmbl2Nav_Index.Enabled = False - Me.cmbl2NavDokartindex.Enabled = False - End If If CBool(Me.selectedProfile.Aktiv) = True Then Me.chkbxAktiv.Checked = True @@ -197,40 +181,7 @@ Public Class frmDIProfilEigenschaften rbUV_Date3.Enabled = True End If End Sub - Sub load_indexe_inComboboxen() - Me.cmbl2NavDokartindex.Items.Clear() - Me.cmbl2Nav_Index.Items.Clear() - Dim indexe = _windream.GetIndicesByObjecttype(Me.selectedProfile.DokumenttypString, True, "DI") - If indexe IsNot Nothing Then - Me.cmbl2NavDokartindex.Items.Add("") - Me.cmbl2Nav_Index.Items.Add("") - For Each index As String In indexe - Me.cmbl2NavDokartindex.Items.Add(index) - Me.cmbl2Nav_Index.Items.Add(index) - Next - Me.cmbl2NavDokartindex.SelectedIndex = -1 - Me.cmbl2NavDokartindex.SelectedItem = 0 - Me.cmbl2Nav_Index.SelectedIndex = -1 - Me.cmbl2Nav_Index.SelectedItem = 0 - If Me.selectedProfile.Link2Navision_dokart <> "" Then - 'Wenn bereits eine Dokart gewählt wurde - Me.cmbl2NavDokartindex.SelectedIndex = Me.cmbl2NavDokartindex.FindStringExact(Me.selectedProfile.Link2Navision_dokart) - Else - 'Wenn noch KEINE Dokart gewählt wurde - Me.cmbl2NavDokartindex.SelectedIndex = -1 - Me.cmbl2NavDokartindex.SelectedItem = "" - End If - If Me.selectedProfile.Link2Navision_Index <> "" Then - 'Wenn bereits ein Index gewählt wurde - Me.cmbl2Nav_Index.SelectedIndex = Me.cmbl2Nav_Index.FindStringExact(Me.selectedProfile.Link2Navision_Index) - Else - 'Wenn noch KEIN Index gewählt wurde - Me.cmbl2Nav_Index.SelectedIndex = -1 - Me.cmbl2Nav_Index.SelectedItem = "" - End If - End If - End Sub ' ++++++++++++++++++++++++++++++++++++++++++++++ Events ++++++++++++++++++++++++++++++++++++++++++++++ ' +++ Elemente auf Toolbar +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ @@ -509,7 +460,7 @@ Public Class frmDIProfilEigenschaften Else MsgBox("Der angegebene Quellordner '" & txtQuellordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:") End If - + End If End Sub @@ -525,7 +476,7 @@ Public Class frmDIProfilEigenschaften Else MsgBox("Der angegebene Ordner '" & txtZielordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:") End If - + End If End Sub @@ -563,7 +514,7 @@ Public Class frmDIProfilEigenschaften Else MsgBox("Der angegebene Ordner '" & txtBackupordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:") End If - + End If End Sub @@ -641,7 +592,7 @@ Public Class frmDIProfilEigenschaften rbUV_Date1.Checked = True variante = "YYYY-MM-DD" End Select - txtUV_Date.Text = variante + txtUV_Date.Text = variante Else txtUV_Date.Text = "" End If @@ -787,44 +738,6 @@ Public Class frmDIProfilEigenschaften End If End Sub - Private Sub chkbxlink2Navision_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkbxlink2Navision.CheckedChanged - If Me.selectedProfile IsNot Nothing Then - Me.selectedProfile.Link2Navision = Me.chkbxlink2Navision.Checked - If Not Me.chkbxlink2Navision.Checked = Me.selectedProfile.OriginalLink2Navision Then - Me.btnSpeichern.Enabled = True - Else - Me.btnSpeichern.Enabled = False - End If - If Me.chkbxlink2Navision.Checked Then - Me.txtLink2Navision.Enabled = True - Me.btnLink2Navision.Enabled = True - Me.cmbl2NavDokartindex.Enabled = True - Me.cmbl2Nav_Index.Enabled = True - - load_indexe_inComboboxen() - - Else - Me.txtLink2Navision.Enabled = False - Me.btnLink2Navision.Enabled = False - Me.cmbl2NavDokartindex.Enabled = False - Me.cmbl2Nav_Index.Enabled = False - End If - End If - End Sub - - Private Sub btnLink2Navision_Click(sender As System.Object, e As System.EventArgs) Handles btnLink2Navision.Click - With OpenFileDialog1 - ' Do - .Filter = "NavisionLink.exe|*.exe" - .FilterIndex = 1 - .Title = "Pfad zu DDNavisionLink:" - If .ShowDialog() = DialogResult.OK Then - Me.txtLink2Navision.Text = .FileName - setAppSetting("PathLink2Navision", .FileName) - Me.txtLink2Navision.Text = .FileName - End If - End With - End Sub Private Sub setAppSetting(ByVal name As String, ByVal value As String) Dim _folder As New IO.DirectoryInfo(System.IO.Directory.GetCurrentDirectory()) Dim aryFi1 As IO.FileInfo() = _folder.GetFiles("*.config") @@ -843,32 +756,6 @@ Public Class frmDIProfilEigenschaften End Sub - Private Sub cmbl2NavDokartindex_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbl2NavDokartindex.SelectedIndexChanged - If Me.selectedProfile IsNot Nothing Then - If Me.cmbl2NavDokartindex.SelectedIndex <> -1 Then - Me.selectedProfile.Link2Navision_dokart = Me.cmbl2NavDokartindex.Text - If Not Me.selectedProfile.Link2Navision_dokart = Me.selectedProfile.OriginalLink2Navision_dokart Then - Me.btnSpeichern.Enabled = True - Else - Me.btnSpeichern.Enabled = False - End If - End If - End If - End Sub - - Private Sub cmbl2Nav_Index_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbl2Nav_Index.SelectedIndexChanged - If Me.selectedProfile IsNot Nothing Then - If Me.cmbl2Nav_Index.SelectedIndex <> -1 Then - Me.selectedProfile.Link2Navision_Index = Me.cmbl2Nav_Index.Text - If Not Me.selectedProfile.Link2Navision_Index = Me.selectedProfile.Link2Navision_Index Then - Me.btnSpeichern.Enabled = True - Else - Me.btnSpeichern.Enabled = False - End If - End If - End If - End Sub - Private Sub cmbProfilauswahl_ButtonClick(sender As System.Object, e As System.EventArgs) Handles cmbProfilauswahl.ButtonClick End Sub