47 lines
1.5 KiB
VB.net
47 lines
1.5 KiB
VB.net
Imports EnvelopeGenerator.Common
|
|
Imports EnvelopeGenerator.Common.My
|
|
Imports EnvelopeGenerator.Common.Constants
|
|
|
|
Public Class frmEnvelopeMainData
|
|
|
|
Public Property EnvelopeTitle As String
|
|
Public Property EnvelopeContractType As ContractType = ContractType.Contract
|
|
Public Property NewEnvelopeMode As Boolean = True
|
|
|
|
Public Property State As State
|
|
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
End Sub
|
|
|
|
Private Sub frmEnvelopeMainData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If NewEnvelopeMode = True Then
|
|
Me.Text = Resources.Envelope.New_Envelope
|
|
Else
|
|
Me.Text = Resources.Envelope.Edit_Envelope
|
|
cmbContractType.ReadOnly = True
|
|
End If
|
|
|
|
Dim contractTypeList = [Enum].GetValues(GetType(ContractType)) _
|
|
.Cast(Of ContractType)().ToList()
|
|
cmbContractType.Properties.Items.AddRange(contractTypeList)
|
|
|
|
txtTitle.EditValue = EnvelopeTitle
|
|
cmbContractType.EditValue = EnvelopeContractType
|
|
End Sub
|
|
|
|
Private Sub btOK_Click(sender As Object, e As EventArgs) Handles btOK.Click
|
|
|
|
Dim Validator As Validator = New Validator(State.LogConfig, AdornerUIManager1)
|
|
Dim oMissingParams = Validator.Validate(txtTitle)
|
|
|
|
If oMissingParams = True Then
|
|
Me.DialogResult = DialogResult.None
|
|
txtTitle.Focus()
|
|
Return
|
|
End If
|
|
|
|
EnvelopeTitle = txtTitle.EditValue
|
|
EnvelopeContractType = cmbContractType.EditValue
|
|
End Sub
|
|
End Class |