forked from opensourceautomation/Open-Source-Automation
-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Moved some of the old code to an obsolete folder it can eventually be…
… removed when ready but cleans up the root folder structure. will also highlight anything that is still referencing it and fails to build as it should be fixed
- Loading branch information
1 parent
0bc5f76
commit eaa628e
Showing
147 changed files
with
40,980 additions
and
40,999 deletions.
There are no files selected for viewing
This file was deleted.
Oops, something went wrong.
106 changes: 53 additions & 53 deletions
106
GUI/ControlMethodImage.vb → Obselete/GUI/ControlMethodImage.vb
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,53 +1,53 @@ | ||
| Public Class ControlMethodImage | ||
| Inherits System.Collections.CollectionBase | ||
| Private ReadOnly HostForm As System.Windows.Forms.Form | ||
| Public Function AddNewMethodImage() As System.Windows.Forms.PictureBox | ||
| ' Create a new instance of the PictureBox class. | ||
| Dim aPic As New System.Windows.Forms.PictureBox | ||
| ' Add the Label to the collection's internal list. | ||
| Me.List.Add(aPic) | ||
| ' Add the Label to the Controls collection of the Form referenced by the HostForm field. | ||
| HostForm.Controls.Add(aPic) | ||
| ' Set intial properties for the Label object. | ||
| aPic.SizeMode = PictureBoxSizeMode.AutoSize | ||
| 'If Me.Count = 1 Then | ||
| aPic.Visible = False | ||
| 'End If | ||
| Return aPic | ||
| End Function | ||
| Public Sub New(ByVal host As System.Windows.Forms.Form) | ||
| HostForm = host | ||
| Me.AddNewMethodImage() | ||
| 'HostForm.Controls.Remove(Me(Me.Count - 1)) | ||
| End Sub | ||
| Default Public ReadOnly Property Item(ByVal Index As Integer) As System.Windows.Forms.PictureBox | ||
| Get | ||
| If Index > 0 Then | ||
| Return CType(Me.List.Item(Index - 1), System.Windows.Forms.PictureBox) | ||
| Else | ||
| Return Nothing | ||
| End If | ||
| End Get | ||
| End Property | ||
| Public Sub Remove() | ||
| ' Check to be sure there is a Label to remove. | ||
| If Me.Count > 0 Then | ||
| ' Remove the last Label added to the array from the host form controls collection. | ||
| ' Note the use of the default property in accessing the array. | ||
| HostForm.Controls.Remove(Me(Me.Count)) | ||
| Me.List.RemoveAt(Me.Count - 1) | ||
| End If | ||
| End Sub | ||
| Public Sub RemoveAll() | ||
| ' Check to be sure there is a Label to remove. | ||
| Do Until Me.Count = 0 | ||
| ' Remove the last Label added to the array from the host form controls collection. | ||
| ' Note the use of the default property in accessing the array. | ||
| Me(Me.Count).Visible = False | ||
| Application.DoEvents() | ||
| HostForm.Controls.Remove(Me(Me.Count)) | ||
| Me.List.RemoveAt(Me.Count - 1) | ||
| Loop | ||
|
|
||
| End Sub | ||
| End Class | ||
| Public Class ControlMethodImage | ||
| Inherits System.Collections.CollectionBase | ||
| Private ReadOnly HostForm As System.Windows.Forms.Form | ||
| Public Function AddNewMethodImage() As System.Windows.Forms.PictureBox | ||
| ' Create a new instance of the PictureBox class. | ||
| Dim aPic As New System.Windows.Forms.PictureBox | ||
| ' Add the Label to the collection's internal list. | ||
| Me.List.Add(aPic) | ||
| ' Add the Label to the Controls collection of the Form referenced by the HostForm field. | ||
| HostForm.Controls.Add(aPic) | ||
| ' Set intial properties for the Label object. | ||
| aPic.SizeMode = PictureBoxSizeMode.AutoSize | ||
| 'If Me.Count = 1 Then | ||
| aPic.Visible = False | ||
| 'End If | ||
| Return aPic | ||
| End Function | ||
| Public Sub New(ByVal host As System.Windows.Forms.Form) | ||
| HostForm = host | ||
| Me.AddNewMethodImage() | ||
| 'HostForm.Controls.Remove(Me(Me.Count - 1)) | ||
| End Sub | ||
| Default Public ReadOnly Property Item(ByVal Index As Integer) As System.Windows.Forms.PictureBox | ||
| Get | ||
| If Index > 0 Then | ||
| Return CType(Me.List.Item(Index - 1), System.Windows.Forms.PictureBox) | ||
| Else | ||
| Return Nothing | ||
| End If | ||
| End Get | ||
| End Property | ||
| Public Sub Remove() | ||
| ' Check to be sure there is a Label to remove. | ||
| If Me.Count > 0 Then | ||
| ' Remove the last Label added to the array from the host form controls collection. | ||
| ' Note the use of the default property in accessing the array. | ||
| HostForm.Controls.Remove(Me(Me.Count)) | ||
| Me.List.RemoveAt(Me.Count - 1) | ||
| End If | ||
| End Sub | ||
| Public Sub RemoveAll() | ||
| ' Check to be sure there is a Label to remove. | ||
| Do Until Me.Count = 0 | ||
| ' Remove the last Label added to the array from the host form controls collection. | ||
| ' Note the use of the default property in accessing the array. | ||
| Me(Me.Count).Visible = False | ||
| Application.DoEvents() | ||
| HostForm.Controls.Remove(Me(Me.Count)) | ||
| Me.List.RemoveAt(Me.Count - 1) | ||
| Loop | ||
|
|
||
| End Sub | ||
| End Class |
108 changes: 54 additions & 54 deletions
108
GUI/ControlNavImage.vb → Obselete/GUI/ControlNavImage.vb
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,54 +1,54 @@ | ||
| Public Class ControlNavImage | ||
| Inherits System.Collections.CollectionBase | ||
| Private ReadOnly HostForm As System.Windows.Forms.Form | ||
| Public Function AddNewNavImage() As System.Windows.Forms.PictureBox | ||
| ' Create a new instance of the PictureBox class. | ||
| Dim aPic As New System.Windows.Forms.PictureBox | ||
| ' Add the Label to the collection's internal list. | ||
| Me.List.Add(aPic) | ||
| ' Add the Label to the Controls collection of the Form referenced by the HostForm field. | ||
| HostForm.Controls.Add(aPic) | ||
| ' Set intial properties for the Label object. | ||
| aPic.SizeMode = PictureBoxSizeMode.StretchImage | ||
| aPic.BackColor = Color.Transparent | ||
| 'If Me.Count = 1 Then | ||
| aPic.Visible = False | ||
| 'End If | ||
| Return aPic | ||
| End Function | ||
| Public Sub New(ByVal host As System.Windows.Forms.Form) | ||
| HostForm = host | ||
| Me.AddNewNavImage() | ||
| 'HostForm.Controls.Remove(Me(Me.Count - 1)) | ||
| End Sub | ||
| Default Public ReadOnly Property Item(ByVal Index As Integer) As System.Windows.Forms.PictureBox | ||
| Get | ||
| If Index > 0 Then | ||
| Return CType(Me.List.Item(Index - 1), System.Windows.Forms.PictureBox) | ||
| Else | ||
| Return Nothing | ||
| End If | ||
| End Get | ||
| End Property | ||
| Public Sub Remove() | ||
| ' Check to be sure there is a Label to remove. | ||
| If Me.Count > 0 Then | ||
| ' Remove the last Label added to the array from the host form controls collection. | ||
| ' Note the use of the default property in accessing the array. | ||
| HostForm.Controls.Remove(Me(Me.Count)) | ||
| Me.List.RemoveAt(Me.Count - 1) | ||
| End If | ||
| End Sub | ||
| Public Sub RemoveAll() | ||
| ' Check to be sure there is a Label to remove. | ||
| Do Until Me.Count = 0 | ||
| ' Remove the last Label added to the array from the host form controls collection. | ||
| ' Note the use of the default property in accessing the array. | ||
| Me(Me.Count).Visible = False | ||
| Application.DoEvents() | ||
| HostForm.Controls.Remove(Me(Me.Count)) | ||
| Me.List.RemoveAt(Me.Count - 1) | ||
| Loop | ||
|
|
||
| End Sub | ||
| End Class | ||
| Public Class ControlNavImage | ||
| Inherits System.Collections.CollectionBase | ||
| Private ReadOnly HostForm As System.Windows.Forms.Form | ||
| Public Function AddNewNavImage() As System.Windows.Forms.PictureBox | ||
| ' Create a new instance of the PictureBox class. | ||
| Dim aPic As New System.Windows.Forms.PictureBox | ||
| ' Add the Label to the collection's internal list. | ||
| Me.List.Add(aPic) | ||
| ' Add the Label to the Controls collection of the Form referenced by the HostForm field. | ||
| HostForm.Controls.Add(aPic) | ||
| ' Set intial properties for the Label object. | ||
| aPic.SizeMode = PictureBoxSizeMode.StretchImage | ||
| aPic.BackColor = Color.Transparent | ||
| 'If Me.Count = 1 Then | ||
| aPic.Visible = False | ||
| 'End If | ||
| Return aPic | ||
| End Function | ||
| Public Sub New(ByVal host As System.Windows.Forms.Form) | ||
| HostForm = host | ||
| Me.AddNewNavImage() | ||
| 'HostForm.Controls.Remove(Me(Me.Count - 1)) | ||
| End Sub | ||
| Default Public ReadOnly Property Item(ByVal Index As Integer) As System.Windows.Forms.PictureBox | ||
| Get | ||
| If Index > 0 Then | ||
| Return CType(Me.List.Item(Index - 1), System.Windows.Forms.PictureBox) | ||
| Else | ||
| Return Nothing | ||
| End If | ||
| End Get | ||
| End Property | ||
| Public Sub Remove() | ||
| ' Check to be sure there is a Label to remove. | ||
| If Me.Count > 0 Then | ||
| ' Remove the last Label added to the array from the host form controls collection. | ||
| ' Note the use of the default property in accessing the array. | ||
| HostForm.Controls.Remove(Me(Me.Count)) | ||
| Me.List.RemoveAt(Me.Count - 1) | ||
| End If | ||
| End Sub | ||
| Public Sub RemoveAll() | ||
| ' Check to be sure there is a Label to remove. | ||
| Do Until Me.Count = 0 | ||
| ' Remove the last Label added to the array from the host form controls collection. | ||
| ' Note the use of the default property in accessing the array. | ||
| Me(Me.Count).Visible = False | ||
| Application.DoEvents() | ||
| HostForm.Controls.Remove(Me(Me.Count)) | ||
| Me.List.RemoveAt(Me.Count - 1) | ||
| Loop | ||
|
|
||
| End Sub | ||
| End Class |
108 changes: 54 additions & 54 deletions
108
GUI/ControlPropertyLabel.vb → Obselete/GUI/ControlPropertyLabel.vb
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,54 +1,54 @@ | ||
| Public Class ControlPropertyLabel | ||
| Inherits System.Collections.CollectionBase | ||
| Private ReadOnly HostForm As System.Windows.Forms.Form | ||
| Public Function AddNewPropertyLabel() As System.Windows.Forms.TextBox | ||
| ' Create a new instance of the PictureBox class. | ||
| Dim aPic As New System.Windows.Forms.TextBox | ||
| ' Add the Label to the collection's internal list. | ||
| Me.List.Add(aPic) | ||
| ' Add the Label to the Controls collection of the Form referenced by the HostForm field. | ||
| HostForm.Controls.Add(aPic) | ||
| ' Set intial properties for the Label object. | ||
| aPic.AutoSize = True | ||
| aPic.BorderStyle = BorderStyle.None | ||
| aPic.ReadOnly = True | ||
| ' aPic. | ||
| 'If Me.Count = 1 Then | ||
| aPic.Visible = False | ||
| 'End If | ||
| Return aPic | ||
| End Function | ||
| Public Sub New(ByVal host As System.Windows.Forms.Form) | ||
| HostForm = host | ||
| Me.AddNewPropertyLabel() | ||
| 'HostForm.Controls.Remove(Me(Me.Count - 1)) | ||
| End Sub | ||
| Default Public ReadOnly Property Item(ByVal Index As Integer) As System.Windows.Forms.TextBox | ||
| Get | ||
| If Index > 0 Then | ||
| Return CType(Me.List.Item(Index - 1), System.Windows.Forms.TextBox) | ||
| Else | ||
| Return Nothing | ||
| End If | ||
| End Get | ||
| End Property | ||
| Public Sub Remove() | ||
| ' Check to be sure there is a Label to remove. | ||
| If Me.Count > 0 Then | ||
| ' Remove the last Label added to the array from the host form controls collection. | ||
| ' Note the use of the default property in accessing the array. | ||
| HostForm.Controls.Remove(Me(Me.Count)) | ||
| Me.List.RemoveAt(Me.Count - 1) | ||
| End If | ||
| End Sub | ||
| Public Sub RemoveAll() | ||
| ' Check to be sure there is a Label to remove. | ||
| Do Until Me.Count = 0 | ||
| ' Remove the last Label added to the array from the host form controls collection. | ||
| ' Note the use of the default property in accessing the array. | ||
| HostForm.Controls.Remove(Me(Me.Count)) | ||
| Me.List.RemoveAt(Me.Count - 1) | ||
| Loop | ||
|
|
||
| End Sub | ||
| End Class | ||
| Public Class ControlPropertyLabel | ||
| Inherits System.Collections.CollectionBase | ||
| Private ReadOnly HostForm As System.Windows.Forms.Form | ||
| Public Function AddNewPropertyLabel() As System.Windows.Forms.TextBox | ||
| ' Create a new instance of the PictureBox class. | ||
| Dim aPic As New System.Windows.Forms.TextBox | ||
| ' Add the Label to the collection's internal list. | ||
| Me.List.Add(aPic) | ||
| ' Add the Label to the Controls collection of the Form referenced by the HostForm field. | ||
| HostForm.Controls.Add(aPic) | ||
| ' Set intial properties for the Label object. | ||
| aPic.AutoSize = True | ||
| aPic.BorderStyle = BorderStyle.None | ||
| aPic.ReadOnly = True | ||
| ' aPic. | ||
| 'If Me.Count = 1 Then | ||
| aPic.Visible = False | ||
| 'End If | ||
| Return aPic | ||
| End Function | ||
| Public Sub New(ByVal host As System.Windows.Forms.Form) | ||
| HostForm = host | ||
| Me.AddNewPropertyLabel() | ||
| 'HostForm.Controls.Remove(Me(Me.Count - 1)) | ||
| End Sub | ||
| Default Public ReadOnly Property Item(ByVal Index As Integer) As System.Windows.Forms.TextBox | ||
| Get | ||
| If Index > 0 Then | ||
| Return CType(Me.List.Item(Index - 1), System.Windows.Forms.TextBox) | ||
| Else | ||
| Return Nothing | ||
| End If | ||
| End Get | ||
| End Property | ||
| Public Sub Remove() | ||
| ' Check to be sure there is a Label to remove. | ||
| If Me.Count > 0 Then | ||
| ' Remove the last Label added to the array from the host form controls collection. | ||
| ' Note the use of the default property in accessing the array. | ||
| HostForm.Controls.Remove(Me(Me.Count)) | ||
| Me.List.RemoveAt(Me.Count - 1) | ||
| End If | ||
| End Sub | ||
| Public Sub RemoveAll() | ||
| ' Check to be sure there is a Label to remove. | ||
| Do Until Me.Count = 0 | ||
| ' Remove the last Label added to the array from the host form controls collection. | ||
| ' Note the use of the default property in accessing the array. | ||
| HostForm.Controls.Remove(Me(Me.Count)) | ||
| Me.List.RemoveAt(Me.Count - 1) | ||
| Loop | ||
|
|
||
| End Sub | ||
| End Class |
Oops, something went wrong.