67 lines
2.3 KiB
VB.net
67 lines
2.3 KiB
VB.net
Imports System.Windows.Forms
|
|
Imports DigitalData.Modules.Base
|
|
Imports DigitalData.Modules.Language
|
|
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class ControlHelper
|
|
Inherits BaseClass
|
|
|
|
Public Sub New(pLogConfig As LogConfig)
|
|
MyBase.New(pLogConfig)
|
|
End Sub
|
|
|
|
Public Function HasValue(pControl As Control) As Boolean
|
|
Return Utils.NotNull(GetValue(pControl), Nothing) IsNot Nothing
|
|
End Function
|
|
|
|
Public Function GetValue(pControl As Control) As Object
|
|
Dim oControlValue As Object
|
|
|
|
Select Case pControl.GetType
|
|
Case GetType(TextBox)
|
|
oControlValue = pControl.Text
|
|
|
|
Case GetType(DevExpress.XtraEditors.TextEdit)
|
|
Dim oTextEdit As DevExpress.XtraEditors.TextEdit = pControl
|
|
oControlValue = oTextEdit.EditValue
|
|
|
|
Case GetType(DevExpress.XtraEditors.DateEdit)
|
|
Dim oDateEdit As DevExpress.XtraEditors.DateEdit = pControl
|
|
oControlValue = oDateEdit.EditValue
|
|
|
|
Case GetType(DevExpress.XtraEditors.LookUpEdit)
|
|
Dim oLookupEdit As DevExpress.XtraEditors.LookUpEdit = pControl
|
|
oControlValue = oLookupEdit.EditValue
|
|
|
|
Case GetType(Controls.LookupGrid.LookupControl3)
|
|
Dim oLookupControl3 As Controls.LookupGrid.LookupControl3 = pControl
|
|
If oLookupControl3.Properties.SelectedValues.Count = 1 Then
|
|
oControlValue = oLookupControl3.Properties.SelectedValues.Item(0)
|
|
Else
|
|
oControlValue = "0"
|
|
End If
|
|
|
|
Case GetType(ComboBox)
|
|
oControlValue = pControl.Text
|
|
|
|
Case GetType(DevExpress.XtraEditors.ComboBoxEdit)
|
|
Dim oCombobox As DevExpress.XtraEditors.ComboBoxEdit = pControl
|
|
oControlValue = oCombobox.EditValue
|
|
|
|
Case GetType(CheckBox)
|
|
Dim oCheckBox As CheckBox = pControl
|
|
oControlValue = oCheckBox.Checked
|
|
|
|
Case GetType(DevExpress.XtraEditors.CheckEdit)
|
|
Dim oCheckEdit As DevExpress.XtraEditors.CheckEdit = pControl
|
|
oControlValue = oCheckEdit.Checked
|
|
|
|
Case Else
|
|
oControlValue = "0"
|
|
|
|
End Select
|
|
|
|
Return oControlValue
|
|
End Function
|
|
End Class
|