Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/classes/IWorkItem.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/classes/IWorkItem.vb (revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/classes/IWorkItem.vb (revision 1681)
@@ -0,0 +1,13 @@
+Public Interface IWorkItem
+ 'Fixed fields.
+ Property BatchVisual As Integer
+ 'Optional fields.
+ Property DeliverToResource As String
+ Property ProductGroup As String
+ Property Remark As String
+ Property StartBeforeTimestamp As DateTime
+ Property StartAlmostTimeStamp As DateTime
+ Property StartTimeStamp As DateTime
+ Property EndTimeStamp As DateTime
+ Property Activities As List(Of IActivity)
+End Interface
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.resx
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.resx (revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.resx (revision 1681)
@@ -0,0 +1,120 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
\ No newline at end of file
FishEye: Tag 1681 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/domain/WorkItem.vb'.
FishEye: No comparison available. Pass `N' to diff?
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/My Project/Application.myapp
===================================================================
diff -u -r1659 -r1681
--- ActiviteitenOpvolging/ActiviteitenOpvolging/My Project/Application.myapp (.../Application.myapp) (revision 1659)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/My Project/Application.myapp (.../Application.myapp) (revision 1681)
@@ -1,11 +1,10 @@
true
- Form1
+ ActiviteitenOpvolgingForm
false
0
true
0
- 0
true
-
+
\ No newline at end of file
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/classes/IActivity.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/classes/IActivity.vb (revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/classes/IActivity.vb (revision 1681)
@@ -0,0 +1,8 @@
+Public Interface IActivity
+ Property Id As String
+ Property QuantityToProduce As Integer
+ Property Label As String
+ Property Status As ActivityStateEnum
+ Property User As String
+ Property IsReadOnly As Boolean
+End interface
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb (revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb (revision 1681)
@@ -0,0 +1,19 @@
+Public Class DataGridViewUserControl
+ Implements IDataGridUserControl
+
+ Sub New ()
+
+ Private Sub Button1_Click(sender As Object, e As EventArgs)
+ MessageBox.Show($"This is a test, I'm user control.")
+ End Sub
+
+ Public Sub ChangeColor()
+ BackColor = If(BackColor = Color.White, Color.Black, Color.White)
+ ForeColor = If(BackColor = Color.White, Color.Black, Color.White)
+ End Sub
+
+ Private Sub UserControl1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+ BackColor = Color.White
+ ForeColor = Color.Black
+ End Sub
+End Class
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.Designer.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.Designer.vb (revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.Designer.vb (revision 1681)
@@ -0,0 +1,83 @@
+ _
+Partial Class DataGridViewUserControl
+ Inherits System.Windows.Forms.UserControl
+
+ 'UserControl overrides dispose to clean up the component list.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ _
+ Private Sub InitializeComponent()
+ Me.WorkItemsDataGridView = New System.Windows.Forms.DataGridView()
+ Me.GridLabel = New System.Windows.Forms.Label()
+ Me.BatchColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ Me.DueOut = New System.Windows.Forms.DataGridViewTextBoxColumn()
+ CType(Me.WorkItemsDataGridView,System.ComponentModel.ISupportInitialize).BeginInit
+ Me.SuspendLayout
+ '
+ 'WorkItemsDataGridView
+ '
+ Me.WorkItemsDataGridView.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.WorkItemsDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.WorkItemsDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.BatchColumn, Me.DueOut})
+ Me.WorkItemsDataGridView.Location = New System.Drawing.Point(0, 29)
+ Me.WorkItemsDataGridView.Name = "WorkItemsDataGridView"
+ Me.WorkItemsDataGridView.Size = New System.Drawing.Size(798, 534)
+ Me.WorkItemsDataGridView.TabIndex = 0
+ '
+ 'GridLabel
+ '
+ Me.GridLabel.AutoSize = true
+ Me.GridLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 13!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+ Me.GridLabel.ForeColor = System.Drawing.Color.Firebrick
+ Me.GridLabel.Location = New System.Drawing.Point(3, 4)
+ Me.GridLabel.Name = "GridLabel"
+ Me.GridLabel.Size = New System.Drawing.Size(87, 22)
+ Me.GridLabel.TabIndex = 1
+ Me.GridLabel.Text = "Grid label"
+ '
+ 'BatchColumn
+ '
+ Me.BatchColumn.HeaderText = "Batch"
+ Me.BatchColumn.Name = "BatchColumn"
+ '
+ 'DueOut
+ '
+ Me.DueOut.HeaderText = "DueOut"
+ Me.DueOut.Name = "DueOut"
+ '
+ 'DataGridViewUserControl
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.Controls.Add(Me.GridLabel)
+ Me.Controls.Add(Me.WorkItemsDataGridView)
+ Me.Name = "DataGridViewUserControl"
+ Me.Size = New System.Drawing.Size(798, 563)
+ CType(Me.WorkItemsDataGridView,System.ComponentModel.ISupportInitialize).EndInit
+ Me.ResumeLayout(false)
+ Me.PerformLayout
+
+End Sub
+
+ Friend WithEvents WorkItemsDataGridView As DataGridView
+ Friend WithEvents GridLabel As Label
+ Friend WithEvents BatchColumn As DataGridViewTextBoxColumn
+ Friend WithEvents DueOut As DataGridViewTextBoxColumn
+End Class
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/classes/implementations/Activity.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/classes/implementations/Activity.vb (revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/classes/implementations/Activity.vb (revision 1681)
@@ -0,0 +1,9 @@
+Public Class Activity
+ implements IActivity
+ Public Property Id As String Implements IActivity.Id
+ Public Property QuantityToProduce As Integer Implements IActivity.QuantityToProduce
+ Public Property Label As String Implements IActivity.Label
+ Public Property Status As ActivityStateEnum Implements IActivity.Status
+ Public Property User As String Implements IActivity.User
+ Public Property IsReadOnly As Boolean Implements IActivity.IsReadOnly
+End Class
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj
===================================================================
diff -u -r1677 -r1681
--- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj (.../ActiviteitenOpvolging.vbproj) (revision 1677)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj (.../ActiviteitenOpvolging.vbproj) (revision 1681)
@@ -75,18 +75,20 @@
-
-
-
-
+
+
+
+
+
+
-
+
Form
-
- Form1.vb
+
+ ActiviteitenOpvolgingForm.vb
Form
@@ -107,25 +109,25 @@
Settings.settings
True
-
- UserControl1.vb
+
+ DataGridViewUserControl.vb
-
+
UserControl
-
- Form1.vb
+
+ ActiviteitenOpvolgingForm.vb
VbMyResourcesResXFileCodeGenerator
Resources.Designer.vb
My.Resources
Designer
-
- UserControl1.vb
+
+ DataGridViewUserControl.vb
FishEye: Tag 1681 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/Form1.Designer.vb'.
FishEye: No comparison available. Pass `N' to diff?
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.resx
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.resx (revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.resx (revision 1681)
@@ -0,0 +1,126 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ text/microsoft-resx
+
+
+ 2.0
+
+
+ System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ True
+
+
+ True
+
+
\ No newline at end of file
FishEye: Tag 1681 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/grids/UserControl1.Designer.vb'.
FishEye: No comparison available. Pass `N' to diff?
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj.DotSettings
===================================================================
diff -u -r1666 -r1681
--- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj.DotSettings (.../ActiviteitenOpvolging.vbproj.DotSettings) (revision 1666)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj.DotSettings (.../ActiviteitenOpvolging.vbproj.DotSettings) (revision 1681)
@@ -1,4 +1,10 @@
False
+ True
+ True
+ True
+ True
+ True
True
- True
\ No newline at end of file
+ True
+ True
\ No newline at end of file
FishEye: Tag 1681 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/grids/UserControl1.vb'.
FishEye: No comparison available. Pass `N' to diff?
FishEye: Tag 1681 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/domain/IActivity.vb'.
FishEye: No comparison available. Pass `N' to diff?
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/implementations/WorkItemManager.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/implementations/WorkItemManager.vb (revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/implementations/WorkItemManager.vb (revision 1681)
@@ -0,0 +1,8 @@
+Public Class WorkItemManager
+ Implements IWorkItemManager
+
+ '''
+ Public Function GiveWorkItems(workPostIndex As Integer) As List(Of IWorkItem) Implements IWorkItemManager.GiveWorkItems
+ Return CacheMapper.GetData(workPostIndex)
+ End Function
+End Class
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/IworkItemManager.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/IworkItemManager.vb (revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/IworkItemManager.vb (revision 1681)
@@ -0,0 +1,8 @@
+Public Interface IWorkItemManager
+ '''
+ ''' Fetches the work items for a certain work post.
+ '''
+ ''' The index of the work post, 0 based
+ ''' Collection of the work items
+ Function GiveWorkItems(workPostIndex As Integer) As List(Of IWorkItem)
+End Interface
FishEye: Tag 1681 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/Form1.vb'.
FishEye: No comparison available. Pass `N' to diff?
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/classes/implementations/WorkItem.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/classes/implementations/WorkItem.vb (revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/classes/implementations/WorkItem.vb (revision 1681)
@@ -0,0 +1,13 @@
+Public Class WorkItem
+ implements IWorkItem
+
+ Public Property BatchVisual As Integer Implements IWorkItem.BatchVisual
+ Public Property DeliverToResource As String Implements IWorkItem.DeliverToResource
+ Public Property ProductGroup As String Implements IWorkItem.ProductGroup
+ Public Property Remark As String Implements IWorkItem.Remark
+ Public Property StartBeforeTimestamp As DateTime Implements IWorkItem.StartBeforeTimestamp
+ Public Property StartAlmostTimeStamp As DateTime Implements IWorkItem.StartAlmostTimeStamp
+ Public Property StartTimeStamp As DateTime Implements IWorkItem.StartTimeStamp
+ Public Property EndTimeStamp As DateTime Implements IWorkItem.EndTimeStamp
+ Public Property Activities As List(Of IActivity) Implements IWorkItem.Activities
+End Class
FishEye: Tag 1681 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/domain/Activity.vb'.
FishEye: No comparison available. Pass `N' to diff?
FishEye: Tag 1681 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/grids/UserControl1.resx'.
FishEye: No comparison available. Pass `N' to diff?
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb (revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb (revision 1681)
@@ -0,0 +1,44 @@
+Imports System.ComponentModel
+Imports ActiviteitenOpvolging.configs
+
+Public Class ActiviteitenOpvolgingForm
+ Private ReadOnly _userControls As New List(Of IDataGridUserControl)
+ Private _workItemManager As IWorkItemManager
+
+ Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+ Try
+ 'Set the color of the form.
+ BackColor = Color.White
+ ForeColor = Color.Black
+ 'Update size and set center position.
+ Size = New System.Drawing.Size(800, 600)
+ StartPosition = FormStartPosition.CenterScreen
+ 'Set the title name of the form from the config.
+ Text = $"Activiteiten opvolging - {ConfigsLoader.AppName}"
+
+ 'Load the user controls with the data grids.
+ LoadDataGridUserControls()
+ Catch ex As Exception
+ MessageBox.Show(ex.Message, "An error occured...", MessageBoxButtons.OK, MessageBoxIcon.Error)
+ Application.Exit()
+ End Try
+ End Sub
+
+ '''
+ ''' Loads the user controls with the data grid.
+ '''
+ Private Sub LoadDataGridUserControls()
+ 'Loop for every data grid view, number of grids gotten from config.
+ For i = 0 To ConfigsLoader.NumberOfGrids - 1
+ Dim userControl As New DataGridViewUserControl
+ With userControl
+ .Size = New System.Drawing.Size(300, 250)
+ End With
+
+ 'Add to list of user controls.
+ _userControls.Add(userControl)
+ 'Add to layout panel.
+ DatagridViewControlsFlowLayoutPanel.Controls.Add(userControl)
+ Next
+ End Sub
+End Class
FishEye: Tag 1681 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/domain/IWorkItem.vb'.
FishEye: No comparison available. Pass `N' to diff?
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.Designer.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.Designer.vb (revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.Designer.vb (revision 1681)
@@ -0,0 +1,79 @@
+ _
+Partial Class ActiviteitenOpvolgingForm
+ Inherits System.Windows.Forms.Form
+
+ 'Form overrides dispose to clean up the component list.
+ _
+ Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+ Try
+ If disposing AndAlso components IsNot Nothing Then
+ components.Dispose()
+ End If
+ Finally
+ MyBase.Dispose(disposing)
+ End Try
+ End Sub
+
+ 'Required by the Windows Form Designer
+ Private components As System.ComponentModel.IContainer
+
+ 'NOTE: The following procedure is required by the Windows Form Designer
+ 'It can be modified using the Windows Form Designer.
+ 'Do not modify it using the code editor.
+ _
+ Private Sub InitializeComponent()
+ Me.DatagridViewControlsFlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
+ Me.Button1 = New System.Windows.Forms.Button()
+ Me.GridLabel = New System.Windows.Forms.Label()
+ Me.SuspendLayout
+ '
+ 'DatagridViewControlsFlowLayoutPanel
+ '
+ Me.DatagridViewControlsFlowLayoutPanel.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.DatagridViewControlsFlowLayoutPanel.Location = New System.Drawing.Point(12, 46)
+ Me.DatagridViewControlsFlowLayoutPanel.Name = "DatagridViewControlsFlowLayoutPanel"
+ Me.DatagridViewControlsFlowLayoutPanel.Size = New System.Drawing.Size(1240, 899)
+ Me.DatagridViewControlsFlowLayoutPanel.TabIndex = 0
+ '
+ 'Button1
+ '
+ Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
+ Me.Button1.Location = New System.Drawing.Point(831, 951)
+ Me.Button1.Name = "Button1"
+ Me.Button1.Size = New System.Drawing.Size(75, 23)
+ Me.Button1.TabIndex = 1
+ Me.Button1.Text = "Button1"
+ Me.Button1.UseVisualStyleBackColor = true
+ '
+ 'GridLabel
+ '
+ Me.GridLabel.AutoSize = true
+ Me.GridLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
+ Me.GridLabel.ForeColor = System.Drawing.Color.Firebrick
+ Me.GridLabel.Location = New System.Drawing.Point(12, 9)
+ Me.GridLabel.Name = "GridLabel"
+ Me.GridLabel.Size = New System.Drawing.Size(94, 25)
+ Me.GridLabel.TabIndex = 2
+ Me.GridLabel.Text = "Grid label"
+ '
+ 'ActiviteitenOpvolgingForm
+ '
+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
+ Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+ Me.ClientSize = New System.Drawing.Size(1264, 986)
+ Me.Controls.Add(Me.GridLabel)
+ Me.Controls.Add(Me.Button1)
+ Me.Controls.Add(Me.DatagridViewControlsFlowLayoutPanel)
+ Me.Name = "ActiviteitenOpvolgingForm"
+ Me.Text = "Activiteiten Form"
+ Me.ResumeLayout(false)
+ Me.PerformLayout
+
+End Sub
+
+ Friend WithEvents DatagridViewControlsFlowLayoutPanel As FlowLayoutPanel
+ Friend WithEvents Button1 As Button
+ Friend WithEvents GridLabel As Label
+End Class
FishEye: Tag 1681 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/Form1.resx'.
FishEye: No comparison available. Pass `N' to diff?
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/My Project/Application.Designer.vb
===================================================================
diff -u -r1659 -r1681
--- ActiviteitenOpvolging/ActiviteitenOpvolging/My Project/Application.Designer.vb (.../Application.Designer.vb) (revision 1659)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/My Project/Application.Designer.vb (.../Application.Designer.vb) (revision 1681)
@@ -13,26 +13,26 @@
Namespace My
-
+
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
-
- _
+
+ _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
-
- _
+
+ _
Protected Overrides Sub OnCreateMainForm()
- Me.MainForm = Global.ActiviteitenOpvolging.Form1
+ Me.MainForm = Global.ActiviteitenOpvolging.ActiviteitenOpvolgingForm
End Sub
End Class
End Namespace