Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.vb =================================================================== diff -u -r1929 -r1930 --- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.vb (.../FormHoofdscherm.vb) (revision 1929) +++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.vb (.../FormHoofdscherm.vb) (revision 1930) @@ -31,10 +31,6 @@ _keyboardSubject.AddObserver(Me) - FlowLayoutPanelSchermen.Controls.Add(New LaserOpdrachtOpzoekSelecteerStatus) - FlowLayoutPanelSchermen.Controls.Add(New KeyboardScherm) - FlowLayoutPanelSchermen.Controls.Add(New LaserOpdrachtDetailsScherm) - Catch mbcEx As MissingBaseConfigFileException 'Laat de gebruiker een config bestand kiezen FormConfigsWijzigen.ShowDialog() @@ -88,7 +84,7 @@ Invoke(Sub() HervatKeyboardHook()) Catch ex As Exception Invoke(Sub() HervatKeyboardHook()) - Invoke(sub() ToonError(ex)) + Invoke(Sub() ToonError(ex)) End Try End Sub @@ -108,6 +104,15 @@ End Try End Sub + Private Sub CheckBoxVisualiseer_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxVisualiseer.CheckedChanged + FlowLayoutPanelSchermen.Controls.Clear() + If CheckBoxVisualiseer.Checked Then + FlowLayoutPanelSchermen.Controls.Add(New LaserOpdrachtOpzoekSelecteerStatus) + FlowLayoutPanelSchermen.Controls.Add(New KeyboardScherm) + FlowLayoutPanelSchermen.Controls.Add(New LaserOpdrachtDetailsScherm) + End If + End Sub + #Region "Menu bar" Private Sub InstellingenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles InstellingenToolStripMenuItem.Click Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.Designer.vb =================================================================== diff -u -r1929 -r1930 --- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.Designer.vb (.../FormHoofdscherm.Designer.vb) (revision 1929) +++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.Designer.vb (.../FormHoofdscherm.Designer.vb) (revision 1930) @@ -29,6 +29,7 @@ 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.MenuStrip1.SuspendLayout CType(Me.FileSystemWatcher1,System.ComponentModel.ISupportInitialize).BeginInit Me.SuspendLayout @@ -68,21 +69,32 @@ Me.FlowLayoutPanelSchermen.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.FlowLayoutPanelSchermen.Location = New System.Drawing.Point(0, 48) + Me.FlowLayoutPanelSchermen.Location = New System.Drawing.Point(0, 75) Me.FlowLayoutPanelSchermen.Name = "FlowLayoutPanelSchermen" - Me.FlowLayoutPanelSchermen.Size = New System.Drawing.Size(1684, 813) + Me.FlowLayoutPanelSchermen.Size = New System.Drawing.Size(1684, 786) Me.FlowLayoutPanelSchermen.TabIndex = 72 ' 'FileSystemWatcher1 ' Me.FileSystemWatcher1.EnableRaisingEvents = true Me.FileSystemWatcher1.SynchronizingObject = Me ' + 'CheckBoxVisualiseer + ' + Me.CheckBoxVisualiseer.AutoSize = true + Me.CheckBoxVisualiseer.Location = New System.Drawing.Point(0, 52) + Me.CheckBoxVisualiseer.Name = "CheckBoxVisualiseer" + Me.CheckBoxVisualiseer.Size = New System.Drawing.Size(76, 17) + Me.CheckBoxVisualiseer.TabIndex = 73 + Me.CheckBoxVisualiseer.Text = "Visualiseer" + Me.CheckBoxVisualiseer.UseVisualStyleBackColor = true + ' 'FormHoofdscherm ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1684, 862) + Me.Controls.Add(Me.CheckBoxVisualiseer) Me.Controls.Add(Me.FlowLayoutPanelSchermen) Me.Controls.Add(Me.MenuStrip1) Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon) @@ -102,4 +114,5 @@ Friend WithEvents SluitToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents FileSystemWatcher1 As IO.FileSystemWatcher Friend WithEvents FlowLayoutPanelSchermen As FlowLayoutPanel + Friend WithEvents CheckBoxVisualiseer As CheckBox End Class