Compare commits

...

4 Commits

7 changed files with 141 additions and 441 deletions

View File

@@ -24,22 +24,21 @@ Partial Class frmDIProfilEigenschaften
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDIProfilEigenschaften)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDIProfilEigenschaften))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() 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.cmbProfilauswahl = New System.Windows.Forms.ToolStripSplitButton()
Me.tslblAnzahl = New System.Windows.Forms.ToolStripStatusLabel() 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.lblProfil = New System.Windows.Forms.ToolStripStatusLabel()
Me.dlgQuellordner = New System.Windows.Forms.FolderBrowserDialog() Me.dlgQuellordner = New System.Windows.Forms.FolderBrowserDialog()
Me.dlgZielordner = New System.Windows.Forms.FolderBrowserDialog() Me.dlgZielordner = New System.Windows.Forms.FolderBrowserDialog()
Me.dlgBackupordner = New System.Windows.Forms.FolderBrowserDialog() Me.dlgBackupordner = New System.Windows.Forms.FolderBrowserDialog()
Me.pnlProfileigenschaften = New System.Windows.Forms.Panel() Me.pnlProfileigenschaften = New System.Windows.Forms.Panel()
Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.Button1 = New System.Windows.Forms.Button()
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.txtlastRun = New System.Windows.Forms.TextBox() Me.txtlastRun = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox()
@@ -60,9 +59,9 @@ Partial Class frmDIProfilEigenschaften
Me.rbUV_Date1 = New System.Windows.Forms.RadioButton() Me.rbUV_Date1 = New System.Windows.Forms.RadioButton()
Me.chkb_DateUV = New System.Windows.Forms.CheckBox() Me.chkb_DateUV = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.btnRegeln = New System.Windows.Forms.Button()
Me.boxImportoptionenLoeschen = New System.Windows.Forms.GroupBox() Me.boxImportoptionenLoeschen = New System.Windows.Forms.GroupBox()
Me.chkUVloeschen = New System.Windows.Forms.CheckBox() Me.chkUVloeschen = New System.Windows.Forms.CheckBox()
Me.chkQuellverzeichnisLoeschen = New System.Windows.Forms.CheckBox()
Me.chkDateienLoeschen = New System.Windows.Forms.CheckBox() Me.chkDateienLoeschen = New System.Windows.Forms.CheckBox()
Me.boxImportoptionenBackup = New System.Windows.Forms.GroupBox() Me.boxImportoptionenBackup = New System.Windows.Forms.GroupBox()
Me.txtBackupordner = New System.Windows.Forms.TextBox() Me.txtBackupordner = New System.Windows.Forms.TextBox()
@@ -75,18 +74,8 @@ Partial Class frmDIProfilEigenschaften
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.txtProfilname = New System.Windows.Forms.TextBox() Me.txtProfilname = New System.Windows.Forms.TextBox()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() 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.StatusStrip1.SuspendLayout()
Me.pnlProfileigenschaften.SuspendLayout() Me.pnlProfileigenschaften.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.boxImportoptionenLoeschen.SuspendLayout() Me.boxImportoptionenLoeschen.SuspendLayout()
@@ -107,6 +96,41 @@ Partial Class frmDIProfilEigenschaften
Me.StatusStrip1.TabIndex = 21 Me.StatusStrip1.TabIndex = 21
Me.StatusStrip1.Text = "StatusStrip1" 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 'cmbProfilauswahl
' '
Me.cmbProfilauswahl.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.cmbProfilauswahl.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
@@ -122,6 +146,49 @@ Partial Class frmDIProfilEigenschaften
Me.tslblAnzahl.Size = New System.Drawing.Size(94, 17) Me.tslblAnzahl.Size = New System.Drawing.Size(94, 17)
Me.tslblAnzahl.Text = "Anzahl Profile: " 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 'lblProfil
' '
Me.lblProfil.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblProfil.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -132,7 +199,6 @@ Partial Class frmDIProfilEigenschaften
'pnlProfileigenschaften 'pnlProfileigenschaften
' '
Me.pnlProfileigenschaften.Controls.Add(Me.Button1) Me.pnlProfileigenschaften.Controls.Add(Me.Button1)
Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox3)
Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun) Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun)
Me.pnlProfileigenschaften.Controls.Add(Me.Label7) Me.pnlProfileigenschaften.Controls.Add(Me.Label7)
Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox2) Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox2)
@@ -155,101 +221,17 @@ Partial Class frmDIProfilEigenschaften
Me.pnlProfileigenschaften.TabIndex = 22 Me.pnlProfileigenschaften.TabIndex = 22
Me.pnlProfileigenschaften.Visible = False Me.pnlProfileigenschaften.Visible = False
' '
'GroupBox3 'Button1
' '
Me.GroupBox3.Controls.Add(Me.Label10) Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.lines_Text_code_16xLG
Me.GroupBox3.Controls.Add(Me.cmbl2Nav_Index) Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.GroupBox3.Controls.Add(Me.Label9) Me.Button1.Location = New System.Drawing.Point(584, 11)
Me.GroupBox3.Controls.Add(Me.cmbl2NavDokartindex) Me.Button1.Name = "Button1"
Me.GroupBox3.Controls.Add(Me.Label8) Me.Button1.Size = New System.Drawing.Size(184, 23)
Me.GroupBox3.Controls.Add(Me.btnLink2Navision) Me.Button1.TabIndex = 60
Me.GroupBox3.Controls.Add(Me.txtLink2Navision) Me.Button1.Text = "Regular Expressions"
Me.GroupBox3.Controls.Add(Me.chkbxlink2Navision) Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button1.UseVisualStyleBackColor = True
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
' '
'txtlastRun 'txtlastRun
' '
@@ -359,7 +341,7 @@ Partial Class frmDIProfilEigenschaften
' '
'txtVerzoegerung '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.Name = "txtVerzoegerung"
Me.txtVerzoegerung.Size = New System.Drawing.Size(45, 22) Me.txtVerzoegerung.Size = New System.Drawing.Size(45, 22)
Me.txtVerzoegerung.TabIndex = 55 Me.txtVerzoegerung.TabIndex = 55
@@ -368,7 +350,7 @@ Partial Class frmDIProfilEigenschaften
'Label6 'Label6
' '
Me.Label6.AutoSize = True 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.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(376, 26) Me.Label6.Size = New System.Drawing.Size(376, 26)
Me.Label6.TabIndex = 54 Me.Label6.TabIndex = 54
@@ -466,15 +448,26 @@ Partial Class frmDIProfilEigenschaften
Me.Label5.TabIndex = 50 Me.Label5.TabIndex = 50
Me.Label5.Text = "* bei diesem Feld handelt es sich um ein Pflichtfeld" 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 'boxImportoptionenLoeschen
' '
Me.boxImportoptionenLoeschen.Controls.Add(Me.chkUVloeschen) Me.boxImportoptionenLoeschen.Controls.Add(Me.chkUVloeschen)
Me.boxImportoptionenLoeschen.Controls.Add(Me.chkQuellverzeichnisLoeschen)
Me.boxImportoptionenLoeschen.Controls.Add(Me.chkDateienLoeschen) Me.boxImportoptionenLoeschen.Controls.Add(Me.chkDateienLoeschen)
Me.boxImportoptionenLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.boxImportoptionenLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.boxImportoptionenLoeschen.Location = New System.Drawing.Point(584, 110) Me.boxImportoptionenLoeschen.Location = New System.Drawing.Point(584, 110)
Me.boxImportoptionenLoeschen.Name = "boxImportoptionenLoeschen" Me.boxImportoptionenLoeschen.Name = "boxImportoptionenLoeschen"
Me.boxImportoptionenLoeschen.Size = New System.Drawing.Size(345, 99) Me.boxImportoptionenLoeschen.Size = New System.Drawing.Size(345, 73)
Me.boxImportoptionenLoeschen.TabIndex = 46 Me.boxImportoptionenLoeschen.TabIndex = 46
Me.boxImportoptionenLoeschen.TabStop = False Me.boxImportoptionenLoeschen.TabStop = False
Me.boxImportoptionenLoeschen.Text = "Löschen" Me.boxImportoptionenLoeschen.Text = "Löschen"
@@ -483,7 +476,7 @@ Partial Class frmDIProfilEigenschaften
' '
Me.chkUVloeschen.AutoSize = True Me.chkUVloeschen.AutoSize = True
Me.chkUVloeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.chkUVloeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkUVloeschen.Location = New System.Drawing.Point(8, 65) Me.chkUVloeschen.Location = New System.Drawing.Point(8, 47)
Me.chkUVloeschen.Name = "chkUVloeschen" Me.chkUVloeschen.Name = "chkUVloeschen"
Me.chkUVloeschen.Size = New System.Drawing.Size(230, 17) Me.chkUVloeschen.Size = New System.Drawing.Size(230, 17)
Me.chkUVloeschen.TabIndex = 2 Me.chkUVloeschen.TabIndex = 2
@@ -491,23 +484,11 @@ Partial Class frmDIProfilEigenschaften
Me.chkUVloeschen.UseVisualStyleBackColor = True Me.chkUVloeschen.UseVisualStyleBackColor = True
Me.chkUVloeschen.Visible = False Me.chkUVloeschen.Visible = False
' '
'chkQuellverzeichnisLoeschen
'
Me.chkQuellverzeichnisLoeschen.AutoSize = True
Me.chkQuellverzeichnisLoeschen.Enabled = False
Me.chkQuellverzeichnisLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkQuellverzeichnisLoeschen.Location = New System.Drawing.Point(8, 42)
Me.chkQuellverzeichnisLoeschen.Name = "chkQuellverzeichnisLoeschen"
Me.chkQuellverzeichnisLoeschen.Size = New System.Drawing.Size(217, 17)
Me.chkQuellverzeichnisLoeschen.TabIndex = 1
Me.chkQuellverzeichnisLoeschen.Text = "Quellverzeichnis nach Import löschen"
Me.chkQuellverzeichnisLoeschen.UseVisualStyleBackColor = True
'
'chkDateienLoeschen 'chkDateienLoeschen
' '
Me.chkDateienLoeschen.AutoSize = True Me.chkDateienLoeschen.AutoSize = True
Me.chkDateienLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.chkDateienLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkDateienLoeschen.Location = New System.Drawing.Point(8, 19) Me.chkDateienLoeschen.Location = New System.Drawing.Point(8, 23)
Me.chkDateienLoeschen.Name = "chkDateienLoeschen" Me.chkDateienLoeschen.Name = "chkDateienLoeschen"
Me.chkDateienLoeschen.Size = New System.Drawing.Size(200, 17) Me.chkDateienLoeschen.Size = New System.Drawing.Size(200, 17)
Me.chkDateienLoeschen.TabIndex = 0 Me.chkDateienLoeschen.TabIndex = 0
@@ -629,108 +610,6 @@ Partial Class frmDIProfilEigenschaften
' '
Me.OpenFileDialog1.FileName = "OpenFileDialog1" 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 'frmDIProfilEigenschaften
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -750,8 +629,6 @@ Partial Class frmDIProfilEigenschaften
Me.StatusStrip1.PerformLayout() Me.StatusStrip1.PerformLayout()
Me.pnlProfileigenschaften.ResumeLayout(False) Me.pnlProfileigenschaften.ResumeLayout(False)
Me.pnlProfileigenschaften.PerformLayout() Me.pnlProfileigenschaften.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout() Me.GroupBox2.PerformLayout()
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
@@ -775,7 +652,6 @@ Partial Class frmDIProfilEigenschaften
Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents btnRegeln As System.Windows.Forms.Button Friend WithEvents btnRegeln As System.Windows.Forms.Button
Friend WithEvents boxImportoptionenLoeschen As System.Windows.Forms.GroupBox Friend WithEvents boxImportoptionenLoeschen As System.Windows.Forms.GroupBox
Friend WithEvents chkQuellverzeichnisLoeschen As System.Windows.Forms.CheckBox
Friend WithEvents chkDateienLoeschen As System.Windows.Forms.CheckBox Friend WithEvents chkDateienLoeschen As System.Windows.Forms.CheckBox
Friend WithEvents boxImportoptionenBackup As System.Windows.Forms.GroupBox Friend WithEvents boxImportoptionenBackup As System.Windows.Forms.GroupBox
Friend WithEvents txtBackupordner As System.Windows.Forms.TextBox Friend WithEvents txtBackupordner As System.Windows.Forms.TextBox
@@ -808,16 +684,7 @@ Partial Class frmDIProfilEigenschaften
Friend WithEvents tsbtnlast As System.Windows.Forms.ToolStripDropDownButton Friend WithEvents tsbtnlast As System.Windows.Forms.ToolStripDropDownButton
Friend WithEvents tslblAnzahl As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents tslblAnzahl As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents lblProfil 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 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 chkb_Subdirectories As System.Windows.Forms.CheckBox
Friend WithEvents chkUVloeschen As System.Windows.Forms.CheckBox Friend WithEvents chkUVloeschen As System.Windows.Forms.CheckBox
Friend WithEvents rbUV_Date3 As System.Windows.Forms.RadioButton Friend WithEvents rbUV_Date3 As System.Windows.Forms.RadioButton

View File

@@ -138,23 +138,6 @@ Public Class frmDIProfilEigenschaften
Me.txtBackupordner.Text = Me.selectedProfile.Backupordner Me.txtBackupordner.Text = Me.selectedProfile.Backupordner
Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen 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 If CBool(Me.selectedProfile.Aktiv) = True Then
Me.chkbxAktiv.Checked = True Me.chkbxAktiv.Checked = True
@@ -183,7 +166,6 @@ Public Class frmDIProfilEigenschaften
Me.txtBackupordner.Enabled = Me.chkImportoptionenBackup.Checked Me.txtBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
Me.btnBackupordner.Enabled = Me.chkImportoptionenBackup.Checked Me.btnBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
Me.chkDateienUeberschreiben.Enabled = Me.chkImportoptionenBackup.Checked Me.chkDateienUeberschreiben.Enabled = Me.chkImportoptionenBackup.Checked
Me.chkQuellverzeichnisLoeschen.Enabled = Me.chkDateienLoeschen.Checked
'End If 'End If
End Sub End Sub
Sub rbBoxenenablen() Sub rbBoxenenablen()
@@ -197,40 +179,7 @@ Public Class frmDIProfilEigenschaften
rbUV_Date3.Enabled = True rbUV_Date3.Enabled = True
End If End If
End Sub 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 ++++++++++++++++++++++++++++++++++++++++++++++ ' ++++++++++++++++++++++++++++++++++++++++++++++ Events ++++++++++++++++++++++++++++++++++++++++++++++
' +++ Elemente auf Toolbar +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' +++ Elemente auf Toolbar +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -342,7 +291,6 @@ Public Class frmDIProfilEigenschaften
Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen
Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
Me.chkImportoptionenBackup.Checked = Me.selectedProfile.Backup Me.chkImportoptionenBackup.Checked = Me.selectedProfile.Backup
Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.DateiLöschen
End If End If
End If End If
@@ -509,7 +457,7 @@ Public Class frmDIProfilEigenschaften
Else Else
MsgBox("Der angegebene Quellordner '" & txtQuellordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:") MsgBox("Der angegebene Quellordner '" & txtQuellordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
End If End If
End If End If
End Sub End Sub
@@ -525,7 +473,7 @@ Public Class frmDIProfilEigenschaften
Else Else
MsgBox("Der angegebene Ordner '" & txtZielordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:") MsgBox("Der angegebene Ordner '" & txtZielordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
End If End If
End If End If
End Sub End Sub
@@ -563,7 +511,7 @@ Public Class frmDIProfilEigenschaften
Else Else
MsgBox("Der angegebene Ordner '" & txtBackupordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:") MsgBox("Der angegebene Ordner '" & txtBackupordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
End If End If
End If End If
End Sub End Sub
@@ -589,17 +537,6 @@ Public Class frmDIProfilEigenschaften
End If End If
End Sub End Sub
Private Sub chkQuellverzeichnisLoeschen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkQuellverzeichnisLoeschen.CheckedChanged
If Me.selectedProfile IsNot Nothing Then
Me.selectedProfile.VerzeichnisLöschen = Me.chkQuellverzeichnisLoeschen.Checked
If Not Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.OriginalVerzeichnisLöschen Then
Me.btnSpeichern.Enabled = True
Else
Me.btnSpeichern.Enabled = False
End If
End If
End Sub
Private Sub btnRegeln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegeln.Click Private Sub btnRegeln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegeln.Click
'Dim regelverwaltung As Control = New pnlDateiimportRegelverwaltung() 'Dim regelverwaltung As Control = New pnlDateiimportRegelverwaltung()
@@ -641,7 +578,7 @@ Public Class frmDIProfilEigenschaften
rbUV_Date1.Checked = True rbUV_Date1.Checked = True
variante = "YYYY-MM-DD" variante = "YYYY-MM-DD"
End Select End Select
txtUV_Date.Text = variante txtUV_Date.Text = variante
Else Else
txtUV_Date.Text = "" txtUV_Date.Text = ""
End If End If
@@ -787,44 +724,6 @@ Public Class frmDIProfilEigenschaften
End If End If
End Sub 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) Private Sub setAppSetting(ByVal name As String, ByVal value As String)
Dim _folder As New IO.DirectoryInfo(System.IO.Directory.GetCurrentDirectory()) Dim _folder As New IO.DirectoryInfo(System.IO.Directory.GetCurrentDirectory())
Dim aryFi1 As IO.FileInfo() = _folder.GetFiles("*.config") Dim aryFi1 As IO.FileInfo() = _folder.GetFiles("*.config")
@@ -843,32 +742,6 @@ Public Class frmDIProfilEigenschaften
End Sub 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 Private Sub cmbProfilauswahl_ButtonClick(sender As System.Object, e As System.EventArgs) Handles cmbProfilauswahl.ButtonClick
End Sub End Sub

View File

@@ -962,7 +962,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(958, 455) Me.TabPage2.Size = New System.Drawing.Size(970, 465)
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
@@ -976,7 +976,7 @@ Partial Class frmNIProfileigenschaften
Me.grbxNB_AD.Size = New System.Drawing.Size(624, 50) Me.grbxNB_AD.Size = New System.Drawing.Size(624, 50)
Me.grbxNB_AD.TabIndex = 77 Me.grbxNB_AD.TabIndex = 77
Me.grbxNB_AD.TabStop = False Me.grbxNB_AD.TabStop = False
Me.grbxNB_AD.Text = "Indexierung AD (Rechte anpassen)" Me.grbxNB_AD.Text = "Indexierung AD (Rechteverwaltung)"
' '
'chkbxAD 'chkbxAD
' '
@@ -998,7 +998,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(958, 455) Me.TabPage3.Size = New System.Drawing.Size(970, 465)
Me.TabPage3.TabIndex = 2 Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Nachbearbeitungsfunktionen 1 (Verschieben, umbenennen)" Me.TabPage3.Text = "Nachbearbeitungsfunktionen 1 (Verschieben, umbenennen)"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
@@ -1285,7 +1285,7 @@ Partial Class frmNIProfileigenschaften
Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4" Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Size = New System.Drawing.Size(958, 455) Me.TabPage4.Size = New System.Drawing.Size(970, 465)
Me.TabPage4.TabIndex = 3 Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Nachbearbeitungsfunktionen 2 (Ordnerindizes etc)" Me.TabPage4.Text = "Nachbearbeitungsfunktionen 2 (Ordnerindizes etc)"
Me.TabPage4.UseVisualStyleBackColor = True Me.TabPage4.UseVisualStyleBackColor = True

View File

@@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
CQAAAk1TRnQBSQFMAgEBAgEAAcgBAAHIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CQAAAk1TRnQBSQFMAgEBAgEAAdABAAHQAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

View File

@@ -44,11 +44,10 @@ Partial Class frmStart
Me.ÜberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ÜberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.PanelMain = New System.Windows.Forms.Panel() Me.PanelMain = New System.Windows.Forms.Panel()
Me.groupboxNachbearbeitungAD = New System.Windows.Forms.GroupBox()
Me.btnNachbearbeitungAD = New System.Windows.Forms.Button() Me.btnNachbearbeitungAD = New System.Windows.Forms.Button()
Me.grbxMoRe = New System.Windows.Forms.GroupBox() Me.grbxMoRe = New System.Windows.Forms.GroupBox()
Me.btnOpen_MoReProfile = New System.Windows.Forms.Button() Me.btnOpen_MoReProfile = New System.Windows.Forms.Button()
Me.GroupBoxIntegration = New System.Windows.Forms.GroupBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.GBNachindexierung = New System.Windows.Forms.GroupBox() Me.GBNachindexierung = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.btnNIProfile = New System.Windows.Forms.Button() Me.btnNIProfile = New System.Windows.Forms.Button()
@@ -63,16 +62,14 @@ Partial Class frmStart
Me.TimerNIRestart = New System.Windows.Forms.Timer(Me.components) Me.TimerNIRestart = New System.Windows.Forms.Timer(Me.components)
Me.TimerErrorLog = New System.Windows.Forms.Timer(Me.components) Me.TimerErrorLog = New System.Windows.Forms.Timer(Me.components)
Me.TimerDeleteLogfiles = New System.Windows.Forms.Timer(Me.components) Me.TimerDeleteLogfiles = New System.Windows.Forms.Timer(Me.components)
Me.groupboxNachbearbeitungAD = New System.Windows.Forms.GroupBox()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
Me.menHauptmenü.SuspendLayout() Me.menHauptmenü.SuspendLayout()
Me.PanelMain.SuspendLayout() Me.PanelMain.SuspendLayout()
Me.groupboxNachbearbeitungAD.SuspendLayout()
Me.grbxMoRe.SuspendLayout() Me.grbxMoRe.SuspendLayout()
Me.GroupBoxIntegration.SuspendLayout()
Me.GBNachindexierung.SuspendLayout() Me.GBNachindexierung.SuspendLayout()
Me.grbDI.SuspendLayout() Me.grbDI.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
Me.groupboxNachbearbeitungAD.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'StatusStrip1 'StatusStrip1
@@ -241,7 +238,6 @@ Partial Class frmStart
' '
Me.PanelMain.Controls.Add(Me.groupboxNachbearbeitungAD) Me.PanelMain.Controls.Add(Me.groupboxNachbearbeitungAD)
Me.PanelMain.Controls.Add(Me.grbxMoRe) Me.PanelMain.Controls.Add(Me.grbxMoRe)
Me.PanelMain.Controls.Add(Me.GroupBoxIntegration)
Me.PanelMain.Controls.Add(Me.GBNachindexierung) Me.PanelMain.Controls.Add(Me.GBNachindexierung)
Me.PanelMain.Controls.Add(Me.grbDI) Me.PanelMain.Controls.Add(Me.grbDI)
Me.PanelMain.Dock = System.Windows.Forms.DockStyle.Left Me.PanelMain.Dock = System.Windows.Forms.DockStyle.Left
@@ -250,6 +246,18 @@ Partial Class frmStart
Me.PanelMain.Size = New System.Drawing.Size(163, 589) Me.PanelMain.Size = New System.Drawing.Size(163, 589)
Me.PanelMain.TabIndex = 10 Me.PanelMain.TabIndex = 10
' '
'groupboxNachbearbeitungAD
'
Me.groupboxNachbearbeitungAD.Controls.Add(Me.btnNachbearbeitungAD)
Me.groupboxNachbearbeitungAD.Dock = System.Windows.Forms.DockStyle.Top
Me.groupboxNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.groupboxNachbearbeitungAD.Location = New System.Drawing.Point(0, 395)
Me.groupboxNachbearbeitungAD.Name = "groupboxNachbearbeitungAD"
Me.groupboxNachbearbeitungAD.Size = New System.Drawing.Size(163, 72)
Me.groupboxNachbearbeitungAD.TabIndex = 5
Me.groupboxNachbearbeitungAD.TabStop = False
Me.groupboxNachbearbeitungAD.Text = "Nachbearbeitung"
'
'btnNachbearbeitungAD 'btnNachbearbeitungAD
' '
Me.btnNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -259,7 +267,7 @@ Partial Class frmStart
Me.btnNachbearbeitungAD.Name = "btnNachbearbeitungAD" Me.btnNachbearbeitungAD.Name = "btnNachbearbeitungAD"
Me.btnNachbearbeitungAD.Size = New System.Drawing.Size(153, 42) Me.btnNachbearbeitungAD.Size = New System.Drawing.Size(153, 42)
Me.btnNachbearbeitungAD.TabIndex = 4 Me.btnNachbearbeitungAD.TabIndex = 4
Me.btnNachbearbeitungAD.Text = "ActiveDirectory" Me.btnNachbearbeitungAD.Text = "Rechteverwaltung"
Me.btnNachbearbeitungAD.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnNachbearbeitungAD.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNachbearbeitungAD.UseVisualStyleBackColor = True Me.btnNachbearbeitungAD.UseVisualStyleBackColor = True
' '
@@ -268,7 +276,7 @@ Partial Class frmStart
Me.grbxMoRe.Controls.Add(Me.btnOpen_MoReProfile) Me.grbxMoRe.Controls.Add(Me.btnOpen_MoReProfile)
Me.grbxMoRe.Dock = System.Windows.Forms.DockStyle.Top Me.grbxMoRe.Dock = System.Windows.Forms.DockStyle.Top
Me.grbxMoRe.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.grbxMoRe.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.grbxMoRe.Location = New System.Drawing.Point(0, 394) Me.grbxMoRe.Location = New System.Drawing.Point(0, 325)
Me.grbxMoRe.Name = "grbxMoRe" Me.grbxMoRe.Name = "grbxMoRe"
Me.grbxMoRe.Size = New System.Drawing.Size(163, 70) Me.grbxMoRe.Size = New System.Drawing.Size(163, 70)
Me.grbxMoRe.TabIndex = 4 Me.grbxMoRe.TabIndex = 4
@@ -288,31 +296,6 @@ Partial Class frmStart
Me.btnOpen_MoReProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnOpen_MoReProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnOpen_MoReProfile.UseVisualStyleBackColor = True Me.btnOpen_MoReProfile.UseVisualStyleBackColor = True
' '
'GroupBoxIntegration
'
Me.GroupBoxIntegration.Controls.Add(Me.Button3)
Me.GroupBoxIntegration.Dock = System.Windows.Forms.DockStyle.Top
Me.GroupBoxIntegration.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBoxIntegration.Location = New System.Drawing.Point(0, 325)
Me.GroupBoxIntegration.Name = "GroupBoxIntegration"
Me.GroupBoxIntegration.Size = New System.Drawing.Size(163, 69)
Me.GroupBoxIntegration.TabIndex = 3
Me.GroupBoxIntegration.TabStop = False
Me.GroupBoxIntegration.Text = "DD Integration"
'
'Button3
'
Me.Button3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.Image = Global.ToolCollection.My.Resources.Resources.Untitled__640_
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(6, 21)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(153, 41)
Me.Button3.TabIndex = 2
Me.Button3.Text = "Profilkonfiguration"
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.UseVisualStyleBackColor = True
'
'GBNachindexierung 'GBNachindexierung
' '
Me.GBNachindexierung.Controls.Add(Me.Button1) Me.GBNachindexierung.Controls.Add(Me.Button1)
@@ -450,18 +433,6 @@ Partial Class frmStart
' '
Me.TimerDeleteLogfiles.Interval = 1000 Me.TimerDeleteLogfiles.Interval = 1000
' '
'groupboxNachbearbeitungAD
'
Me.groupboxNachbearbeitungAD.Controls.Add(Me.btnNachbearbeitungAD)
Me.groupboxNachbearbeitungAD.Dock = System.Windows.Forms.DockStyle.Top
Me.groupboxNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.groupboxNachbearbeitungAD.Location = New System.Drawing.Point(0, 464)
Me.groupboxNachbearbeitungAD.Name = "groupboxNachbearbeitungAD"
Me.groupboxNachbearbeitungAD.Size = New System.Drawing.Size(163, 72)
Me.groupboxNachbearbeitungAD.TabIndex = 5
Me.groupboxNachbearbeitungAD.TabStop = False
Me.groupboxNachbearbeitungAD.Text = "Nachbearbeitung"
'
'frmStart 'frmStart
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -480,12 +451,11 @@ Partial Class frmStart
Me.menHauptmenü.ResumeLayout(False) Me.menHauptmenü.ResumeLayout(False)
Me.menHauptmenü.PerformLayout() Me.menHauptmenü.PerformLayout()
Me.PanelMain.ResumeLayout(False) Me.PanelMain.ResumeLayout(False)
Me.groupboxNachbearbeitungAD.ResumeLayout(False)
Me.grbxMoRe.ResumeLayout(False) Me.grbxMoRe.ResumeLayout(False)
Me.GroupBoxIntegration.ResumeLayout(False)
Me.GBNachindexierung.ResumeLayout(False) Me.GBNachindexierung.ResumeLayout(False)
Me.grbDI.ResumeLayout(False) Me.grbDI.ResumeLayout(False)
Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False)
Me.groupboxNachbearbeitungAD.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -510,8 +480,6 @@ Partial Class frmStart
Friend WithEvents btnNIProfile As System.Windows.Forms.Button Friend WithEvents btnNIProfile As System.Windows.Forms.Button
Friend WithEvents btnNIMain As System.Windows.Forms.Button Friend WithEvents btnNIMain As System.Windows.Forms.Button
Friend WithEvents PasswortverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents PasswortverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents GroupBoxIntegration As System.Windows.Forms.GroupBox
Friend WithEvents btnOpen_MoReProfile As System.Windows.Forms.Button Friend WithEvents btnOpen_MoReProfile As System.Windows.Forms.Button
Friend WithEvents niToolcollection As System.Windows.Forms.NotifyIcon Friend WithEvents niToolcollection As System.Windows.Forms.NotifyIcon
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip

View File

@@ -159,7 +159,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
FAAAAk1TRnQBSQFMAgEBCQEAAYgBAwGIAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo FAAAAk1TRnQBSQFMAgEBCQEAAZABAwGQAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

View File

@@ -391,14 +391,6 @@ Public Class frmStart
frmPWChange.ShowDialog() frmPWChange.ShowDialog()
End Sub End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Cursor = Cursors.WaitCursor
Dim frm As New frmMIProfileigenschaften
frm.MdiParent = Me
frm.Show()
Cursor = Cursors.Default
End Sub
Private Sub ModuleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModuleToolStripMenuItem.Click Private Sub ModuleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModuleToolStripMenuItem.Click
End Sub End Sub