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