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