Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.Designer.vb
===================================================================
diff -u -r1947 -r1962
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.Designer.vb (.../FormHoofdscherm.Designer.vb) (revision 1947)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.Designer.vb (.../FormHoofdscherm.Designer.vb) (revision 1962)
@@ -26,21 +26,22 @@
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.InstellingenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.GraveerInstellingenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OverToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.SluitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FlowLayoutPanelSchermen = New System.Windows.Forms.FlowLayoutPanel()
Me.FileSystemWatcher1 = New System.IO.FileSystemWatcher()
Me.CheckBoxVisualiseer = New System.Windows.Forms.CheckBox()
- Me.GraveerInstellingenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.HandleidingToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuStrip1.SuspendLayout
CType(Me.FileSystemWatcher1,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
'
'MenuStrip1
'
Me.MenuStrip1.BackColor = System.Drawing.Color.Silver
- Me.MenuStrip1.Font = New System.Drawing.Font("Segoe UI", 20!)
- Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TestToolStripMenuItem})
+ Me.MenuStrip1.Font = New System.Drawing.Font("Segoe UI", 15!)
+ Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TestToolStripMenuItem, Me.HandleidingToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1684, 36)
@@ -61,6 +62,12 @@
Me.InstellingenToolStripMenuItem.Size = New System.Drawing.Size(257, 32)
Me.InstellingenToolStripMenuItem.Text = "Hoofd instellingen"
'
+ 'GraveerInstellingenToolStripMenuItem
+ '
+ Me.GraveerInstellingenToolStripMenuItem.Name = "GraveerInstellingenToolStripMenuItem"
+ Me.GraveerInstellingenToolStripMenuItem.Size = New System.Drawing.Size(257, 32)
+ Me.GraveerInstellingenToolStripMenuItem.Text = "Graveer instellingen"
+ '
'OverToolStripMenuItem1
'
Me.OverToolStripMenuItem1.Name = "OverToolStripMenuItem1"
@@ -99,11 +106,11 @@
Me.CheckBoxVisualiseer.Text = "Visualiseer"
Me.CheckBoxVisualiseer.UseVisualStyleBackColor = true
'
- 'GraveerInstellingenToolStripMenuItem
+ 'HandleidingToolStripMenuItem
'
- Me.GraveerInstellingenToolStripMenuItem.Name = "GraveerInstellingenToolStripMenuItem"
- Me.GraveerInstellingenToolStripMenuItem.Size = New System.Drawing.Size(257, 32)
- Me.GraveerInstellingenToolStripMenuItem.Text = "Graveer instellingen"
+ Me.HandleidingToolStripMenuItem.Name = "HandleidingToolStripMenuItem"
+ Me.HandleidingToolStripMenuItem.Size = New System.Drawing.Size(131, 32)
+ Me.HandleidingToolStripMenuItem.Text = "Handleiding"
'
'FormHoofdscherm
'
@@ -133,4 +140,5 @@
Friend WithEvents CheckBoxVisualiseer As CheckBox
Friend WithEvents OverToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents GraveerInstellingenToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents HandleidingToolStripMenuItem As ToolStripMenuItem
End Class
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormConfigsWijzigen.vb
===================================================================
diff -u -r1950 -r1962
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormConfigsWijzigen.vb (.../FormConfigsWijzigen.vb) (revision 1950)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormConfigsWijzigen.vb (.../FormConfigsWijzigen.vb) (revision 1962)
@@ -77,6 +77,8 @@
End Try
End Sub
+#Region "Buttons"
+
Private Sub ButtonSourcePath_Click(sender As System.Object, e As System.EventArgs) Handles ButtonScriptPad.Click
If OpenFileDialog.ShowDialog() = DialogResult.OK Then
TextBoxScriptPad.Text = OpenFileDialog.FileName
@@ -102,7 +104,15 @@
End If
End Sub
- Private Sub TextBox_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBoxScriptPad.TextChanged, TextBoxJobControlExePad.TextChanged, TextBoxGraveerInstellingenXmlPad.TextChanged, TextBoxBestandenMapPad.TextChanged
+ Private Sub ButtonHandleidingPad_Click(sender As Object, e As EventArgs) Handles ButtonHandleidingPad.Click
+ If OpenFileDialog.ShowDialog() = DialogResult.OK Then
+ TextBoxHandleidingPad.Text = OpenFileDialog.FileName
+ End If
+ End Sub
+
+#End Region
+
+ Private Sub TextBox_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBoxScriptPad.TextChanged, TextBoxJobControlExePad.TextChanged, TextBoxGraveerInstellingenXmlPad.TextChanged, TextBoxBestandenMapPad.TextChanged, TextBoxHandleidingPad.TextChanged
ButtonOpslaan.Enabled = True
End Sub
@@ -112,6 +122,7 @@
_configs.BestandenMapPad = TextBoxBestandenMapPad.Text
_configs.JobControlExePad = TextBoxJobControlExePad.Text
_configs.GraveerInstellingenXmlPad = TextBoxGraveerInstellingenXmlPad.Text
+ _configs.HandleidingPad = TextBoxHandleidingPad.Text
_configs.OpslaanConfigs()
Me.Close()
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj
===================================================================
diff -u -r1958 -r1962
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj (.../Laser Gravering.vbproj) (revision 1958)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj (.../Laser Gravering.vbproj) (revision 1962)
@@ -28,7 +28,7 @@
false
true
1
- 2.2.1.%2a
+ 2.3.0.%2a
false
true
true
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormConfigsWijzigen.Designer.vb
===================================================================
diff -u -r1945 -r1962
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormConfigsWijzigen.Designer.vb (.../FormConfigsWijzigen.Designer.vb) (revision 1945)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormConfigsWijzigen.Designer.vb (.../FormConfigsWijzigen.Designer.vb) (revision 1962)
@@ -28,18 +28,21 @@
Me.ButtonAnnuleren = New System.Windows.Forms.Button()
Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
- Me.Label2 = New System.Windows.Forms.Label()
- Me.Label1 = New System.Windows.Forms.Label()
- Me.TextBoxScriptPad = New System.Windows.Forms.TextBox()
- Me.TextBoxBestandenMapPad = New System.Windows.Forms.TextBox()
- Me.ButtonScriptPad = New System.Windows.Forms.Button()
- Me.ButtonBestandenMapPad = New System.Windows.Forms.Button()
- Me.Label3 = New System.Windows.Forms.Label()
- Me.TextBoxJobControlExePad = New System.Windows.Forms.TextBox()
- Me.ButtonJobControlExePad = New System.Windows.Forms.Button()
- Me.Label4 = New System.Windows.Forms.Label()
- Me.TextBoxGraveerInstellingenXmlPad = New System.Windows.Forms.TextBox()
Me.ButtonGraveerInstellingenXmlPad = New System.Windows.Forms.Button()
+ Me.TextBoxGraveerInstellingenXmlPad = New System.Windows.Forms.TextBox()
+ Me.Label4 = New System.Windows.Forms.Label()
+ Me.ButtonJobControlExePad = New System.Windows.Forms.Button()
+ Me.TextBoxJobControlExePad = New System.Windows.Forms.TextBox()
+ Me.Label3 = New System.Windows.Forms.Label()
+ Me.ButtonBestandenMapPad = New System.Windows.Forms.Button()
+ Me.ButtonScriptPad = New System.Windows.Forms.Button()
+ Me.TextBoxBestandenMapPad = New System.Windows.Forms.TextBox()
+ Me.TextBoxScriptPad = New System.Windows.Forms.TextBox()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.ButtonHandleidingPad = New System.Windows.Forms.Button()
+ Me.TextBoxHandleidingPad = New System.Windows.Forms.TextBox()
+ Me.Label5 = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout
Me.SuspendLayout
'
@@ -52,7 +55,7 @@
Me.ButtonOpslaan.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.ButtonOpslaan.Enabled = false
Me.ButtonOpslaan.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!)
- Me.ButtonOpslaan.Location = New System.Drawing.Point(595, 310)
+ Me.ButtonOpslaan.Location = New System.Drawing.Point(595, 374)
Me.ButtonOpslaan.Name = "ButtonOpslaan"
Me.ButtonOpslaan.Size = New System.Drawing.Size(133, 39)
Me.ButtonOpslaan.TabIndex = 5
@@ -63,7 +66,7 @@
'
Me.ButtonAnnuleren.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.ButtonAnnuleren.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!)
- Me.ButtonAnnuleren.Location = New System.Drawing.Point(754, 310)
+ Me.ButtonAnnuleren.Location = New System.Drawing.Point(754, 374)
Me.ButtonAnnuleren.Name = "ButtonAnnuleren"
Me.ButtonAnnuleren.Size = New System.Drawing.Size(133, 39)
Me.ButtonAnnuleren.TabIndex = 6
@@ -79,6 +82,9 @@
Me.GroupBox1.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)
+ Me.GroupBox1.Controls.Add(Me.ButtonHandleidingPad)
+ Me.GroupBox1.Controls.Add(Me.TextBoxHandleidingPad)
+ Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.ButtonGraveerInstellingenXmlPad)
Me.GroupBox1.Controls.Add(Me.TextBoxGraveerInstellingenXmlPad)
Me.GroupBox1.Controls.Add(Me.Label4)
@@ -94,59 +100,68 @@
Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!)
Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
Me.GroupBox1.Name = "GroupBox1"
- Me.GroupBox1.Size = New System.Drawing.Size(890, 287)
+ Me.GroupBox1.Size = New System.Drawing.Size(890, 351)
Me.GroupBox1.TabIndex = 3
Me.GroupBox1.TabStop = false
Me.GroupBox1.Text = "Paden"
'
- 'Label2
+ 'ButtonGraveerInstellingenXmlPad
'
- Me.Label2.AutoSize = true
- Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
- Me.Label2.Location = New System.Drawing.Point(6, 98)
- Me.Label2.Name = "Label2"
- Me.Label2.Size = New System.Drawing.Size(139, 17)
- Me.Label2.TabIndex = 1
- Me.Label2.Text = "Bestanden map pad:"
+ Me.ButtonGraveerInstellingenXmlPad.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.ButtonGraveerInstellingenXmlPad.Location = New System.Drawing.Point(838, 248)
+ Me.ButtonGraveerInstellingenXmlPad.Name = "ButtonGraveerInstellingenXmlPad"
+ Me.ButtonGraveerInstellingenXmlPad.Size = New System.Drawing.Size(37, 26)
+ Me.ButtonGraveerInstellingenXmlPad.TabIndex = 12
+ Me.ButtonGraveerInstellingenXmlPad.Text = "..."
+ Me.ButtonGraveerInstellingenXmlPad.UseVisualStyleBackColor = true
'
- 'Label1
+ 'TextBoxGraveerInstellingenXmlPad
'
- Me.Label1.AutoSize = true
- Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
- Me.Label1.Location = New System.Drawing.Point(6, 37)
- Me.Label1.Name = "Label1"
- Me.Label1.Size = New System.Drawing.Size(76, 17)
- Me.Label1.TabIndex = 0
- Me.Label1.Text = "Script pad:"
+ Me.TextBoxGraveerInstellingenXmlPad.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.TextBoxGraveerInstellingenXmlPad.Location = New System.Drawing.Point(6, 248)
+ Me.TextBoxGraveerInstellingenXmlPad.Name = "TextBoxGraveerInstellingenXmlPad"
+ Me.TextBoxGraveerInstellingenXmlPad.Size = New System.Drawing.Size(817, 26)
+ Me.TextBoxGraveerInstellingenXmlPad.TabIndex = 11
'
- 'TextBoxScriptPad
+ 'Label4
'
- Me.TextBoxScriptPad.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
- Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.TextBoxScriptPad.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!)
- Me.TextBoxScriptPad.Location = New System.Drawing.Point(6, 57)
- Me.TextBoxScriptPad.Name = "TextBoxScriptPad"
- Me.TextBoxScriptPad.Size = New System.Drawing.Size(817, 26)
- Me.TextBoxScriptPad.TabIndex = 2
+ Me.Label4.AutoSize = true
+ Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
+ Me.Label4.Location = New System.Drawing.Point(6, 228)
+ Me.Label4.Name = "Label4"
+ Me.Label4.Size = New System.Drawing.Size(191, 17)
+ Me.Label4.TabIndex = 10
+ Me.Label4.Text = "Graveer instellingen xml pad:"
'
- 'TextBoxBestandenMapPad
+ 'ButtonJobControlExePad
'
- Me.TextBoxBestandenMapPad.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Me.ButtonJobControlExePad.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.ButtonJobControlExePad.Location = New System.Drawing.Point(838, 185)
+ Me.ButtonJobControlExePad.Name = "ButtonJobControlExePad"
+ Me.ButtonJobControlExePad.Size = New System.Drawing.Size(37, 26)
+ Me.ButtonJobControlExePad.TabIndex = 9
+ Me.ButtonJobControlExePad.Text = "..."
+ Me.ButtonJobControlExePad.UseVisualStyleBackColor = true
+ '
+ 'TextBoxJobControlExePad
+ '
+ Me.TextBoxJobControlExePad.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.TextBoxBestandenMapPad.Location = New System.Drawing.Point(6, 118)
- Me.TextBoxBestandenMapPad.Name = "TextBoxBestandenMapPad"
- Me.TextBoxBestandenMapPad.Size = New System.Drawing.Size(817, 26)
- Me.TextBoxBestandenMapPad.TabIndex = 3
+ Me.TextBoxJobControlExePad.Location = New System.Drawing.Point(6, 185)
+ Me.TextBoxJobControlExePad.Name = "TextBoxJobControlExePad"
+ Me.TextBoxJobControlExePad.Size = New System.Drawing.Size(817, 26)
+ Me.TextBoxJobControlExePad.TabIndex = 8
'
- 'ButtonScriptPad
+ 'Label3
'
- Me.ButtonScriptPad.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.ButtonScriptPad.Location = New System.Drawing.Point(838, 57)
- Me.ButtonScriptPad.Name = "ButtonScriptPad"
- Me.ButtonScriptPad.Size = New System.Drawing.Size(37, 26)
- Me.ButtonScriptPad.TabIndex = 5
- Me.ButtonScriptPad.Text = "..."
- Me.ButtonScriptPad.UseVisualStyleBackColor = true
+ Me.Label3.AutoSize = true
+ Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
+ Me.Label3.Location = New System.Drawing.Point(6, 165)
+ Me.Label3.Name = "Label3"
+ Me.Label3.Size = New System.Drawing.Size(138, 17)
+ Me.Label3.TabIndex = 7
+ Me.Label3.Text = "JobControl .exe pad:"
'
'ButtonBestandenMapPad
'
@@ -158,69 +173,89 @@
Me.ButtonBestandenMapPad.Text = "..."
Me.ButtonBestandenMapPad.UseVisualStyleBackColor = true
'
- 'Label3
+ 'ButtonScriptPad
'
- Me.Label3.AutoSize = true
- Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
- Me.Label3.Location = New System.Drawing.Point(6, 165)
- Me.Label3.Name = "Label3"
- Me.Label3.Size = New System.Drawing.Size(138, 17)
- Me.Label3.TabIndex = 7
- Me.Label3.Text = "JobControl .exe pad:"
+ Me.ButtonScriptPad.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.ButtonScriptPad.Location = New System.Drawing.Point(838, 57)
+ Me.ButtonScriptPad.Name = "ButtonScriptPad"
+ Me.ButtonScriptPad.Size = New System.Drawing.Size(37, 26)
+ Me.ButtonScriptPad.TabIndex = 5
+ Me.ButtonScriptPad.Text = "..."
+ Me.ButtonScriptPad.UseVisualStyleBackColor = true
'
- 'TextBoxJobControlExePad
+ 'TextBoxBestandenMapPad
'
- Me.TextBoxJobControlExePad.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Me.TextBoxBestandenMapPad.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.TextBoxJobControlExePad.Location = New System.Drawing.Point(6, 185)
- Me.TextBoxJobControlExePad.Name = "TextBoxJobControlExePad"
- Me.TextBoxJobControlExePad.Size = New System.Drawing.Size(817, 26)
- Me.TextBoxJobControlExePad.TabIndex = 8
+ Me.TextBoxBestandenMapPad.Location = New System.Drawing.Point(6, 118)
+ Me.TextBoxBestandenMapPad.Name = "TextBoxBestandenMapPad"
+ Me.TextBoxBestandenMapPad.Size = New System.Drawing.Size(817, 26)
+ Me.TextBoxBestandenMapPad.TabIndex = 3
'
- 'ButtonJobControlExePad
+ 'TextBoxScriptPad
'
- Me.ButtonJobControlExePad.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.ButtonJobControlExePad.Location = New System.Drawing.Point(838, 185)
- Me.ButtonJobControlExePad.Name = "ButtonJobControlExePad"
- Me.ButtonJobControlExePad.Size = New System.Drawing.Size(37, 26)
- Me.ButtonJobControlExePad.TabIndex = 9
- Me.ButtonJobControlExePad.Text = "..."
- Me.ButtonJobControlExePad.UseVisualStyleBackColor = true
+ Me.TextBoxScriptPad.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.TextBoxScriptPad.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!)
+ Me.TextBoxScriptPad.Location = New System.Drawing.Point(6, 57)
+ Me.TextBoxScriptPad.Name = "TextBoxScriptPad"
+ Me.TextBoxScriptPad.Size = New System.Drawing.Size(817, 26)
+ Me.TextBoxScriptPad.TabIndex = 2
'
- 'Label4
+ 'Label1
'
- Me.Label4.AutoSize = true
- Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
- Me.Label4.Location = New System.Drawing.Point(6, 228)
- Me.Label4.Name = "Label4"
- Me.Label4.Size = New System.Drawing.Size(191, 17)
- Me.Label4.TabIndex = 10
- Me.Label4.Text = "Graveer instellingen xml pad:"
+ Me.Label1.AutoSize = true
+ Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
+ Me.Label1.Location = New System.Drawing.Point(6, 37)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(76, 17)
+ Me.Label1.TabIndex = 0
+ Me.Label1.Text = "Script pad:"
'
- 'TextBoxGraveerInstellingenXmlPad
+ 'Label2
'
- Me.TextBoxGraveerInstellingenXmlPad.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+ Me.Label2.AutoSize = true
+ Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
+ Me.Label2.Location = New System.Drawing.Point(6, 98)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(139, 17)
+ Me.Label2.TabIndex = 1
+ Me.Label2.Text = "Bestanden map pad:"
+ '
+ 'ButtonHandleidingPad
+ '
+ Me.ButtonHandleidingPad.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.ButtonHandleidingPad.Location = New System.Drawing.Point(838, 309)
+ Me.ButtonHandleidingPad.Name = "ButtonHandleidingPad"
+ Me.ButtonHandleidingPad.Size = New System.Drawing.Size(37, 26)
+ Me.ButtonHandleidingPad.TabIndex = 15
+ Me.ButtonHandleidingPad.Text = "..."
+ Me.ButtonHandleidingPad.UseVisualStyleBackColor = true
+ '
+ 'TextBoxHandleidingPad
+ '
+ Me.TextBoxHandleidingPad.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.TextBoxGraveerInstellingenXmlPad.Location = New System.Drawing.Point(6, 248)
- Me.TextBoxGraveerInstellingenXmlPad.Name = "TextBoxGraveerInstellingenXmlPad"
- Me.TextBoxGraveerInstellingenXmlPad.Size = New System.Drawing.Size(817, 26)
- Me.TextBoxGraveerInstellingenXmlPad.TabIndex = 11
+ Me.TextBoxHandleidingPad.Location = New System.Drawing.Point(6, 309)
+ Me.TextBoxHandleidingPad.Name = "TextBoxHandleidingPad"
+ Me.TextBoxHandleidingPad.Size = New System.Drawing.Size(817, 26)
+ Me.TextBoxHandleidingPad.TabIndex = 14
'
- 'ButtonGraveerInstellingenXmlPad
+ 'Label5
'
- Me.ButtonGraveerInstellingenXmlPad.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
- Me.ButtonGraveerInstellingenXmlPad.Location = New System.Drawing.Point(838, 248)
- Me.ButtonGraveerInstellingenXmlPad.Name = "ButtonGraveerInstellingenXmlPad"
- Me.ButtonGraveerInstellingenXmlPad.Size = New System.Drawing.Size(37, 26)
- Me.ButtonGraveerInstellingenXmlPad.TabIndex = 12
- Me.ButtonGraveerInstellingenXmlPad.Text = "..."
- Me.ButtonGraveerInstellingenXmlPad.UseVisualStyleBackColor = true
+ Me.Label5.AutoSize = true
+ Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!)
+ Me.Label5.Location = New System.Drawing.Point(6, 289)
+ Me.Label5.Name = "Label5"
+ Me.Label5.Size = New System.Drawing.Size(115, 17)
+ Me.Label5.TabIndex = 13
+ Me.Label5.Text = "Handleiding pad:"
'
'FormConfigsWijzigen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.ClientSize = New System.Drawing.Size(913, 361)
+ Me.ClientSize = New System.Drawing.Size(913, 425)
Me.Controls.Add(Me.ButtonAnnuleren)
Me.Controls.Add(Me.ButtonOpslaan)
Me.Controls.Add(Me.GroupBox1)
@@ -249,4 +284,7 @@
Friend WithEvents TextBoxScriptPad As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
+ Friend WithEvents ButtonHandleidingPad As Button
+ Friend WithEvents TextBoxHandleidingPad As TextBox
+ Friend WithEvents Label5 As Label
End Class
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.vb
===================================================================
diff -u -r1957 -r1962
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.vb (.../FormHoofdscherm.vb) (revision 1957)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.vb (.../FormHoofdscherm.vb) (revision 1962)
@@ -39,7 +39,7 @@
_keyboardSubject.AddObserver(Me)
- Catch ex As Exception When TypeOf ex Is MissingBaseConfigFileException OrElse _
+ Catch ex As Exception When TypeOf ex Is MissingBaseConfigFileException OrElse
TypeOf ex Is InvalidConfigException
'Ander scherm handelt config fouten af
FormConfigsWijzigen.ShowDialog()
@@ -133,6 +133,16 @@
AboutBox.ShowDialog()
End Sub
+ Private Sub HandleidingToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HandleidingToolStripMenuItem.Click
+ 'Dim pad As String = ControlChars.Quote & & ControlChars.Quote
+ Try
+ 'pdf openen met de default reader
+ Process.Start(_configs.HandleidingPad)
+ Catch ex As Exception
+ ToonError(ex)
+ End Try
+ End Sub
+
#End Region
End Class
\ No newline at end of file