MS v2.0
This commit is contained in:
@@ -79,28 +79,33 @@ Public Class ClassControlCreator
|
||||
}
|
||||
End Function
|
||||
|
||||
Public Shared Function CreateBaseControl(ctrl As Control, row As DataRow, designMode As Boolean) As Control
|
||||
Dim props As ControlDBProps = TransformDataRow(row)
|
||||
Public Shared Function CreateBaseControl(ctrl As Control, OControlRow As DataRow, designMode As Boolean) As Control
|
||||
Try
|
||||
Dim props As ControlDBProps = TransformDataRow(OControlRow)
|
||||
|
||||
ctrl.Tag = New ControlMetadata() With {
|
||||
.Guid = props.Guid,
|
||||
.ReadOnly = props.ReadOnly
|
||||
}
|
||||
ctrl.Name = props.Name
|
||||
ctrl.Location = props.Location
|
||||
ctrl.Font = props.Font
|
||||
ctrl.ForeColor = props.Color
|
||||
ctrl.Tag = New ControlMetadata() With {
|
||||
.Guid = props.Guid,
|
||||
.ReadOnly = props.ReadOnly
|
||||
}
|
||||
ctrl.Name = props.Name
|
||||
ctrl.Location = props.Location
|
||||
ctrl.Font = props.Font
|
||||
ctrl.ForeColor = props.Color
|
||||
|
||||
|
||||
If designMode Then
|
||||
ctrl.Cursor = Cursors.Hand
|
||||
End If
|
||||
If designMode Then
|
||||
ctrl.Cursor = Cursors.Hand
|
||||
End If
|
||||
|
||||
If props.ReadOnly Then
|
||||
ctrl.BackColor = Color.LightGray
|
||||
End If
|
||||
If props.ReadOnly Then
|
||||
ctrl.BackColor = Color.LightGray
|
||||
End If
|
||||
|
||||
Return ctrl
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
End Try
|
||||
|
||||
Return ctrl
|
||||
End Function
|
||||
|
||||
' ----------------------- NEW CONTROLS -----------------------
|
||||
@@ -230,7 +235,7 @@ Public Class ClassControlCreator
|
||||
Public Shared Function CreateNewButton(location As Point) As Button
|
||||
Dim control As New Button With {
|
||||
.Name = $"{PREFIX_BUTTON}_{clsTools.ShortGuid}",
|
||||
.Size = New Size(DEFAULT_WIDTH, DEFAULT_HEIGHT),
|
||||
.Size = New Size(108, 28),
|
||||
.Cursor = Cursors.Hand,
|
||||
.Location = location
|
||||
}
|
||||
@@ -240,35 +245,44 @@ Public Class ClassControlCreator
|
||||
|
||||
' ----------------------- EXISITING CONTROLS -----------------------
|
||||
|
||||
Public Shared Function CreateExistingTextbox(row As DataRow, designMode As Boolean) As TextBox
|
||||
Dim control As TextBox = CreateBaseControl(New TextBox(), row, designMode)
|
||||
Public Shared Function CreateExistingTextbox(oControlRow As DataRow, designMode As Boolean) As TextBox
|
||||
Try
|
||||
Dim control As TextBox = CreateBaseControl(New TextBox(), oControlRow, designMode)
|
||||
|
||||
control.BackColor = Color.White
|
||||
control.BackColor = Color.White
|
||||
|
||||
If row.Item("HEIGHT") > 27 Then
|
||||
control.Multiline = True
|
||||
If oControlRow.Item("HEIGHT") > 27 Then
|
||||
control.Multiline = True
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
control.Height = row.Item("HEIGHT")
|
||||
control.Width = row.Item("WIDTH")
|
||||
control.Height = oControlRow.Item("HEIGHT")
|
||||
control.Width = oControlRow.Item("WIDTH")
|
||||
|
||||
If Not designMode Then
|
||||
control.AcceptsReturn = True
|
||||
control.ReadOnly = row.Item("READ_ONLY")
|
||||
control.TabStop = Not row.Item("READ_ONLY")
|
||||
control.BackColor = IIf(row.Item("READ_ONLY"), Color.LightGray, Color.White)
|
||||
Else
|
||||
control.ReadOnly = True
|
||||
End If
|
||||
If Not designMode Then
|
||||
control.AcceptsReturn = True
|
||||
control.ReadOnly = oControlRow.Item("READ_ONLY")
|
||||
control.TabStop = Not oControlRow.Item("READ_ONLY")
|
||||
control.BackColor = IIf(oControlRow.Item("READ_ONLY"), Color.LightGray, Color.White)
|
||||
Else
|
||||
control.ReadOnly = True
|
||||
End If
|
||||
|
||||
Return control
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
End Try
|
||||
|
||||
Return control
|
||||
End Function
|
||||
|
||||
Public Shared Function CreateExistingLabel(row As DataRow, designMode As Boolean) As Label
|
||||
Dim control As Label = CreateBaseControl(New Label(), row, designMode)
|
||||
Try
|
||||
control.Text = row.Item("CTRL_CAPTION_LANG")
|
||||
Catch ex As Exception
|
||||
control.Text = row.Item("CTRL_TEXT")
|
||||
End Try
|
||||
|
||||
control.Text = row.Item("CTRL_TEXT")
|
||||
control.AutoSize = True
|
||||
|
||||
Return control
|
||||
@@ -287,8 +301,12 @@ Public Class ClassControlCreator
|
||||
ctrl_image = oBitmap
|
||||
End If
|
||||
|
||||
Try
|
||||
oControl.Text = row.Item("CTRL_CAPTION_LANG")
|
||||
Catch ex As Exception
|
||||
oControl.Text = row.Item("CTRL_TEXT")
|
||||
End Try
|
||||
|
||||
oControl.Text = row.Item("CTRL_TEXT")
|
||||
oControl.Height = row.Item("HEIGHT")
|
||||
oControl.Width = row.Item("WIDTH")
|
||||
|
||||
@@ -333,18 +351,22 @@ Public Class ClassControlCreator
|
||||
End Function
|
||||
|
||||
Public Shared Function CreateExisingCheckbox(row As DataRow, designMode As Boolean) As CheckBox
|
||||
Dim control As CheckBox = CreateBaseControl(New CheckBox(), row, designMode)
|
||||
Dim oCheckBox As CheckBox = CreateBaseControl(New CheckBox(), row, designMode)
|
||||
|
||||
control.AutoSize = True
|
||||
control.Text = row.Item("CTRL_TEXT")
|
||||
control.CheckState = CheckState.Indeterminate
|
||||
oCheckBox.AutoSize = True
|
||||
Try
|
||||
oCheckBox.Text = row.Item("CTRL_CAPTION_LANG")
|
||||
Catch ex As Exception
|
||||
oCheckBox.Text = row.Item("CTRL_TEXT")
|
||||
End Try
|
||||
oCheckBox.CheckState = CheckState.Indeterminate
|
||||
|
||||
If Not designMode Then
|
||||
control.Enabled = Not row.Item("READ_ONLY")
|
||||
control.TabStop = Not row.Item("READ_ONLY")
|
||||
oCheckBox.Enabled = Not row.Item("READ_ONLY")
|
||||
oCheckBox.TabStop = Not row.Item("READ_ONLY")
|
||||
End If
|
||||
|
||||
Return control
|
||||
Return oCheckBox
|
||||
End Function
|
||||
|
||||
Public Shared Function CreateExistingDataGridView(row As DataRow, designMode As Boolean) As DataGridView
|
||||
|
||||
Reference in New Issue
Block a user