Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeUserControl.resx =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeUserControl.resx (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeUserControl.resx (revision 1716) @@ -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 Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeDetailUserControl.resx =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeDetailUserControl.resx (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeDetailUserControl.resx (revision 1716) @@ -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 Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/IWorkItemsMainForm.vb =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/IWorkItemsMainForm.vb (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/IWorkItemsMainForm.vb (revision 1716) @@ -0,0 +1,16 @@ +Public Interface IWorkItemsMainForm + + ''' + ''' Fetch the work items for a specific grid. + ''' + ''' The index of the grid, 0 based + ''' A list containing all work items + Function GetWorkItems(gridNumber As Integer) As List(Of IWorkItem) + + ''' + ''' A different activity was selected in the grid. + ''' + ''' The activity. Nothing means no activity was selected. + ''' The number of the grid + sub ChangeSelectedActivity(activity As IActivity, gridNumber As Integer) +End Interface FishEye: Tag 1716 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/screens/IEmployeeUserControl.vb'. FishEye: No comparison available. Pass `N' to diff? Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeePickerUserControl.Designer.vb =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeePickerUserControl.Designer.vb (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeePickerUserControl.Designer.vb (revision 1716) @@ -0,0 +1,37 @@ + _ +Partial Class EmployeePickerUserControl + 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.SuspendLayout + ' + 'EmployeePickerUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Name = "EmployeePickerUserControl" + Me.Size = New System.Drawing.Size(500, 600) + Me.ResumeLayout(false) + +End Sub + +End Class Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb =================================================================== diff -u -r1715 -r1716 --- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb (.../ActiviteitenOpvolgingForm.vb) (revision 1715) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb (.../ActiviteitenOpvolgingForm.vb) (revision 1716) @@ -1,7 +1,7 @@ Imports ActiviteitenOpvolging.configs Public Class ActiviteitenOpvolgingForm - Implements IMainForm + Implements IWorkItemsMainForm, IEmployeesMainForm Private _datagridViewUserControls As List(Of IDataGridUserControl) Private _employeeUserControls As List(Of IEmployeeUserControl) @@ -55,8 +55,6 @@ _datagridViewUserControls.Add(userControl) 'Add to layout panel. DatagridViewControlsFlowLayoutPanel.Controls.Add(userControl) - 'CLear selection on every data grid view. - ChangeSelectedActivity(Nothing, 0) Next 'Refresh all user grids. RefreshUserGridsData() @@ -66,12 +64,12 @@ End Sub ''' - Public Function GetWorkItems(gridNumber As Integer) As List(Of IWorkItem) Implements IMainForm.GetWorkItems + Public Function GetWorkItems(gridNumber As Integer) As List(Of IWorkItem) Implements IWorkItemsMainForm.GetWorkItems Return _domainController.GiveWorkItems(gridNumber) End Function ''' - Public Sub ChangeSelectedActivity(activity As IActivity, gridNumber As Integer) Implements IMainForm.ChangeSelectedActivity + Public Sub ChangeSelectedActivity(activity As IActivity, gridNumber As Integer) Implements IWorkItemsMainForm.ChangeSelectedActivity 'If the activity is Nothing, no activity was selected, meaning that everything should be cleared. If activity Is Nothing Then 'Clear selection for every grid user control. @@ -114,7 +112,7 @@ 'Loop for every employee, number of grids gotten from config. For employeeIndex = 0 To ConfigsLoader.NumberOfEmployees - 1 'Initialise the user control and set parent form and grid number. - Dim userControl As New EmployeeUserControl + Dim userControl As New EmployeeUserControl(Me, employeeIndex) 'Set other parameters. With userControl .Size = New System.Drawing.Size(250, 300) 'todo make configurable FishEye: Tag 1716 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/screens/EmployeeUserControl.vb'. FishEye: No comparison available. Pass `N' to diff? Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.Designer.vb =================================================================== diff -u -r1715 -r1716 --- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.Designer.vb (.../ActiviteitenOpvolgingForm.Designer.vb) (revision 1715) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.Designer.vb (.../ActiviteitenOpvolgingForm.Designer.vb) (revision 1716) @@ -37,7 +37,7 @@ 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, 619) + Me.DatagridViewControlsFlowLayoutPanel.Size = New System.Drawing.Size(1240, 590) Me.DatagridViewControlsFlowLayoutPanel.TabIndex = 0 ' 'GridLabel @@ -86,9 +86,9 @@ Me.EmployeesControlsFlowLayoutPanel.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.EmployeesControlsFlowLayoutPanel.Location = New System.Drawing.Point(12, 671) + Me.EmployeesControlsFlowLayoutPanel.Location = New System.Drawing.Point(12, 664) Me.EmployeesControlsFlowLayoutPanel.Name = "EmployeesControlsFlowLayoutPanel" - Me.EmployeesControlsFlowLayoutPanel.Size = New System.Drawing.Size(1240, 303) + Me.EmployeesControlsFlowLayoutPanel.Size = New System.Drawing.Size(1240, 310) Me.EmployeesControlsFlowLayoutPanel.TabIndex = 6 ' 'ActiviteitenOpvolgingForm Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/DataGridViewUserControl.Designer.vb =================================================================== diff -u -r1715 -r1716 --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/DataGridViewUserControl.Designer.vb (.../DataGridViewUserControl.Designer.vb) (revision 1715) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/DataGridViewUserControl.Designer.vb (.../DataGridViewUserControl.Designer.vb) (revision 1716) @@ -42,7 +42,7 @@ Me.WorkItemsDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.BatchColumn, Me.DueOut, Me.ProductGroup, Me.DeliverToResource, Me.Remark}) Me.WorkItemsDataGridView.Location = New System.Drawing.Point(0, 29) Me.WorkItemsDataGridView.Name = "WorkItemsDataGridView" - Me.WorkItemsDataGridView.Size = New System.Drawing.Size(796, 532) + Me.WorkItemsDataGridView.Size = New System.Drawing.Size(798, 534) Me.WorkItemsDataGridView.TabIndex = 0 ' 'BatchColumn @@ -85,11 +85,10 @@ ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Controls.Add(Me.GridLabel) Me.Controls.Add(Me.WorkItemsDataGridView) Me.Name = "DataGridViewUserControl" - Me.Size = New System.Drawing.Size(796, 561) + Me.Size = New System.Drawing.Size(798, 563) CType(Me.WorkItemsDataGridView,System.ComponentModel.ISupportInitialize).EndInit Me.ResumeLayout(false) Me.PerformLayout FishEye: Tag 1716 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/screens/EmployeeUserControl.Designer.vb'. FishEye: No comparison available. Pass `N' to diff? Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeUserControl.Designer.vb =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeUserControl.Designer.vb (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeUserControl.Designer.vb (revision 1716) @@ -0,0 +1,37 @@ + _ +Partial Class EmployeeUserControl + 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.SuspendLayout + ' + 'EmployeeUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Name = "EmployeeUserControl" + Me.Size = New System.Drawing.Size(500, 600) + Me.ResumeLayout(false) + +End Sub + +End Class Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeePickerUserControl.resx =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeePickerUserControl.resx (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeePickerUserControl.resx (revision 1716) @@ -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 Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeDetailUserControl.vb =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeDetailUserControl.vb (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeDetailUserControl.vb (revision 1716) @@ -0,0 +1,80 @@ +Imports ActiviteitenOpvolging.configs + +Public Class EmployeeDetailUserControl + Implements IEmployeeUserControl + + Private ReadOnly _parentForm As IEmployeesMainForm + Public ReadOnly Property EmployeeIndex As Integer Implements IEmployeeUserControl.EmployeeIndex + + Private selectedEmployee As IEmployee + + Sub New() + ' This call is required by the designer. + InitializeComponent() + End Sub + + ''' + ''' Initialises the user form. + ''' + ''' The form containing this user control + ''' The index of the employee, 0 based + Sub New(parentForm As IEmployeesMainForm, employeeIndex As Integer) + 'Call base constructor. + Me.New() + 'Set parameters. + + 'Parent form. + 'Value can't be Nothing. + If parentForm Is Nothing Then Throw New InternalException($"The parent form can't be 'Nothing' in a {Me.Name}.") + _parentForm = parentForm + + 'Grid number. + Me.EmployeeIndex = employeeIndex + End Sub + + ''' + Public Function RefreshData() As Boolean Implements IEmployeeUserControl.RefreshData + Try + 'Call helper method. + + 'Refresh succesfull. + Return True + Catch ex As Exception + 'Failed to retrieve update with data. + Return False + End Try + End Function + + Private Sub EmployeeUserControl_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + 'Set back color corresponding to the employee index. + BackColor = Color.White + ForeColor = Color.Black + 'Set border style. + BorderStyle = BorderStyle.FixedSingle + + 'Set border colors of the buttons. + StartButton.BackColor = ConfigsLoader.ColorsActivities(ActivityStateEnum.Started) + PauzeButton.BackColor = ConfigsLoader.ColorsActivities(ActivityStateEnum.Pauzed) + StopButton.BackColor = ConfigsLoader.ColorsActivities(ActivityStateEnum.Finished) + + Catch ex As Exception + MessageBox.Show($"Could not load {Me.Name}.{vbNewLine}{ex.Message}", "An error occured...", MessageBoxButtons.OK, MessageBoxIcon.Error) + End Try + End Sub + + ''' + ''' Update border of the user control. + ''' + Private Sub EmployeeUserControl_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint + 'Border color. + Dim borderColor = ConfigsLoader.ColorsUsers(EmployeeIndex) + 'Border thickness. + Dim borderThickness = 5I + 'Border rectangle. + Dim borderRectangle = Me.ClientRectangle + 'borderRectangle.Inflate(10, 10) + 'Draw the border. + e.Graphics.DrawRectangle(New Pen(borderColor, borderThickness), borderRectangle) + End Sub +End Class Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeePickerUserControl.vb =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeePickerUserControl.vb (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeePickerUserControl.vb (revision 1716) @@ -0,0 +1,3 @@ +Public Class EmployeePickerUserControl + +End Class FishEye: Tag 1716 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/screens/EmployeeUserControl.resx'. FishEye: No comparison available. Pass `N' to diff? Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/DataGridViewUserControl.vb =================================================================== diff -u -r1715 -r1716 --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/DataGridViewUserControl.vb (.../DataGridViewUserControl.vb) (revision 1715) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/DataGridViewUserControl.vb (.../DataGridViewUserControl.vb) (revision 1716) @@ -2,7 +2,7 @@ Public Class DataGridViewUserControl Implements IDataGridUserControl - Private ReadOnly _parentForm As IMainForm + Private ReadOnly _parentForm As IWorkItemsMainForm Public ReadOnly Property GridNumber As Integer Implements IDataGridUserControl.GridNumber @@ -16,7 +16,7 @@ ''' ''' The form containing this user control ''' The index of the grid, 0 based - Sub New(parentForm As IMainForm, gridNumber As Integer) + Sub New(parentForm As IWorkItemsMainForm, gridNumber As Integer) 'Call base constructor. Me.New() 'Set parameters. @@ -40,6 +40,8 @@ Try 'Call helper method. LoadGrid() + 'Remove selection. + RemoveSelection() 'Refresh succesfull. Return True Catch ex As Exception Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj =================================================================== diff -u -r1715 -r1716 --- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj (.../ActiviteitenOpvolging.vbproj) (revision 1715) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj (.../ActiviteitenOpvolging.vbproj) (revision 1716) @@ -105,8 +105,9 @@ UserControl + - + Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeDetailUserControl.Designer.vb =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeDetailUserControl.Designer.vb (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeDetailUserControl.Designer.vb (revision 1716) @@ -0,0 +1,224 @@ + _ +Partial Class EmployeeDetailUserControl + 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.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.ActivityLabel = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.ImagePictureBox = New System.Windows.Forms.PictureBox() + Me.StartButton = New System.Windows.Forms.Button() + Me.PauzeButton = New System.Windows.Forms.Button() + Me.StopButton = New System.Windows.Forms.Button() + Me.NameLabel = New System.Windows.Forms.Label() + Me.StatusLabel = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.BatchLabel = New System.Windows.Forms.Label() + Me.TableLayoutPanel1.SuspendLayout + CType(Me.ImagePictureBox,System.ComponentModel.ISupportInitialize).BeginInit + Me.SuspendLayout + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.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.TableLayoutPanel1.ColumnCount = 3 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33332!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33334!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33334!)) + Me.TableLayoutPanel1.Controls.Add(Me.ActivityLabel, 1, 5) + Me.TableLayoutPanel1.Controls.Add(Me.Label2, 0, 5) + Me.TableLayoutPanel1.Controls.Add(Me.ImagePictureBox, 2, 0) + Me.TableLayoutPanel1.Controls.Add(Me.StartButton, 1, 7) + Me.TableLayoutPanel1.Controls.Add(Me.PauzeButton, 1, 9) + Me.TableLayoutPanel1.Controls.Add(Me.StopButton, 1, 11) + Me.TableLayoutPanel1.Controls.Add(Me.NameLabel, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.StatusLabel, 0, 3) + Me.TableLayoutPanel1.Controls.Add(Me.Label1, 0, 4) + Me.TableLayoutPanel1.Controls.Add(Me.BatchLabel, 1, 4) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(3, 3) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 13 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 9.810695!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 9.810695!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 9.810695!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 9.810695!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 9.810695!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 9.810695!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 2.026642!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.6677!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 3.039962!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.6677!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 3.039962!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.6677!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 1.026197!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(494, 594) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'ActivityLabel + ' + Me.ActivityLabel.AutoSize = true + Me.ActivityLabel.Dock = System.Windows.Forms.DockStyle.Fill + Me.ActivityLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.ActivityLabel.Location = New System.Drawing.Point(167, 290) + Me.ActivityLabel.Name = "ActivityLabel" + Me.ActivityLabel.Size = New System.Drawing.Size(158, 58) + Me.ActivityLabel.TabIndex = 11 + Me.ActivityLabel.Text = "activity" + Me.ActivityLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label2 + ' + Me.Label2.AutoSize = true + Me.Label2.Dock = System.Windows.Forms.DockStyle.Right + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.Label2.Location = New System.Drawing.Point(104, 290) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(57, 58) + Me.Label2.TabIndex = 9 + Me.Label2.Text = "Activiteit" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'ImagePictureBox + ' + Me.ImagePictureBox.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImagePictureBox.Image = Global.ActiviteitenOpvolging.My.Resources.Resources.user + Me.ImagePictureBox.InitialImage = Nothing + Me.ImagePictureBox.Location = New System.Drawing.Point(331, 3) + Me.ImagePictureBox.Name = "ImagePictureBox" + Me.TableLayoutPanel1.SetRowSpan(Me.ImagePictureBox, 4) + Me.ImagePictureBox.Size = New System.Drawing.Size(160, 226) + Me.ImagePictureBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.ImagePictureBox.TabIndex = 0 + Me.ImagePictureBox.TabStop = false + ' + 'StartButton + ' + Me.StartButton.Dock = System.Windows.Forms.DockStyle.Fill + Me.StartButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.StartButton.Location = New System.Drawing.Point(167, 363) + Me.StartButton.Name = "StartButton" + Me.StartButton.Size = New System.Drawing.Size(158, 57) + Me.StartButton.TabIndex = 2 + Me.StartButton.Text = "START" + Me.StartButton.UseVisualStyleBackColor = true + ' + 'PauzeButton + ' + Me.PauzeButton.Dock = System.Windows.Forms.DockStyle.Fill + Me.PauzeButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.PauzeButton.Location = New System.Drawing.Point(167, 444) + Me.PauzeButton.Name = "PauzeButton" + Me.PauzeButton.Size = New System.Drawing.Size(158, 57) + Me.PauzeButton.TabIndex = 5 + Me.PauzeButton.TabStop = false + Me.PauzeButton.Text = "| |" + Me.PauzeButton.UseVisualStyleBackColor = true + ' + 'StopButton + ' + Me.StopButton.Dock = System.Windows.Forms.DockStyle.Fill + Me.StopButton.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.StopButton.Location = New System.Drawing.Point(167, 525) + Me.StopButton.Name = "StopButton" + Me.StopButton.Size = New System.Drawing.Size(158, 57) + Me.StopButton.TabIndex = 4 + Me.StopButton.Text = "X" + Me.StopButton.UseVisualStyleBackColor = true + ' + 'NameLabel + ' + Me.NameLabel.AutoSize = true + Me.NameLabel.Dock = System.Windows.Forms.DockStyle.Left + Me.NameLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.NameLabel.Location = New System.Drawing.Point(3, 0) + Me.NameLabel.Name = "NameLabel" + Me.NameLabel.Size = New System.Drawing.Size(45, 58) + Me.NameLabel.TabIndex = 6 + Me.NameLabel.Text = "Name" + Me.NameLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'StatusLabel + ' + Me.StatusLabel.AutoSize = true + Me.TableLayoutPanel1.SetColumnSpan(Me.StatusLabel, 2) + Me.StatusLabel.Dock = System.Windows.Forms.DockStyle.Left + Me.StatusLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.StatusLabel.Location = New System.Drawing.Point(3, 174) + Me.StatusLabel.Name = "StatusLabel" + Me.StatusLabel.Size = New System.Drawing.Size(45, 58) + Me.StatusLabel.TabIndex = 7 + Me.StatusLabel.Text = "Status" + Me.StatusLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'Label1 + ' + Me.Label1.AutoSize = true + Me.Label1.Dock = System.Windows.Forms.DockStyle.Right + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.Label1.Location = New System.Drawing.Point(119, 232) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(42, 58) + Me.Label1.TabIndex = 8 + Me.Label1.Text = "Batch" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'BatchLabel + ' + Me.BatchLabel.AutoSize = true + Me.BatchLabel.Dock = System.Windows.Forms.DockStyle.Fill + Me.BatchLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.BatchLabel.Location = New System.Drawing.Point(167, 232) + Me.BatchLabel.Name = "BatchLabel" + Me.BatchLabel.Size = New System.Drawing.Size(158, 58) + Me.BatchLabel.TabIndex = 10 + Me.BatchLabel.Text = "batch" + Me.BatchLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'EmployeeDetailUserControl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Name = "EmployeeDetailUserControl" + Me.Size = New System.Drawing.Size(500, 600) + Me.TableLayoutPanel1.ResumeLayout(false) + Me.TableLayoutPanel1.PerformLayout + CType(Me.ImagePictureBox,System.ComponentModel.ISupportInitialize).EndInit + Me.ResumeLayout(false) + +End Sub + + Friend WithEvents TableLayoutPanel1 As TableLayoutPanel + Friend WithEvents ImagePictureBox As PictureBox + Friend WithEvents StartButton As Button + Friend WithEvents StopButton As Button + Friend WithEvents PauzeButton As Button + Friend WithEvents NameLabel As Label + Friend WithEvents StatusLabel As Label + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents BatchLabel As Label + Friend WithEvents ActivityLabel As Label +End Class FishEye: Tag 1716 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/screens/IMainForm.vb'. FishEye: No comparison available. Pass `N' to diff? Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/IEmployeesMainForm.vb =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/IEmployeesMainForm.vb (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/IEmployeesMainForm.vb (revision 1716) @@ -0,0 +1,3 @@ +Public Interface IEmployeesMainForm + +End Interface Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/IEmployeeUserControl.vb =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/IEmployeeUserControl.vb (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/IEmployeeUserControl.vb (revision 1716) @@ -0,0 +1,9 @@ +Public Interface IEmployeeUserControl + ReadOnly Property EmployeeIndex As Integer + + ''' + ''' Refresh the data of the employee. + ''' + ''' Whether or not it was successful + Function RefreshData() As Boolean +End Interface Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeUserControl.vb =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeUserControl.vb (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/EmployeeUserControl.vb (revision 1716) @@ -0,0 +1,9 @@ +Public Class EmployeeUserControl + Implements IEmployeeUserControl + + Public ReadOnly Property EmployeeIndex As Integer Implements IEmployeeUserControl.EmployeeIndex + + Public Function RefreshData() As Boolean Implements IEmployeeUserControl.RefreshData + Throw New NotImplementedException + End Function +End Class