42 lines
1.4 KiB
VB.net
42 lines
1.4 KiB
VB.net
Imports DevExpress.Xpf.Core
|
|
|
|
Public Class dxwFecha
|
|
Public NombreFichero As String
|
|
Public Fecha As Date?
|
|
Private _fechaObligatoria As Boolean
|
|
Public Sub New(Optional Fecha As Date? = Nothing, Optional Titulo As String = "Introduzca intervalo de Fechas", Optional FechaObligatoria As Boolean = False)
|
|
' Llamada necesaria para el diseñador.
|
|
InitializeComponent()
|
|
Me.Title = Titulo
|
|
Me.deFecha.EditValue = Fecha
|
|
_fechaObligatoria = FechaObligatoria
|
|
|
|
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
|
|
|
|
End Sub
|
|
|
|
Public Sub New()
|
|
' Llamada necesaria para el diseñador.
|
|
InitializeComponent()
|
|
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
|
|
|
|
End Sub
|
|
Private Sub btCancelar_Click(sender As Object, e As RoutedEventArgs)
|
|
Me.DialogResult = False
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub btAceptar_Click(sender As Object, e As RoutedEventArgs)
|
|
Try
|
|
If Me.deFecha.EditValue Is Nothing AndAlso _fechaObligatoria Then Throw New Exception("La fecha es obligatoria")
|
|
Me.Fecha = Me.deFecha.EditValue
|
|
Me.DialogResult = True
|
|
Me.Close()
|
|
Catch ex As Exception
|
|
DXMessageBox.Show(ex.Message, "Error")
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
End Class
|