Imports System.Data.Entity
Imports DevExpress.Xpf.Core.ServerMode
Imports DevExpress.Mvvm
Imports DevExpress.Xpf.Grid
Imports tsWPFCore
Imports tsUtilidades.Extensiones
Imports DevExpress.Xpf.Core
Imports DevExpress.XtraReports.UI
Imports System.IO
Imports DevExpress.Xpf.Printing
Imports Microsoft.Win32

Public Class tsInputBox
    Private Sub dxwAgregar_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
    End Sub
    Public Property Valor As Object

    Private Sub btAceptar_Click(sender As Object, e As RoutedEventArgs)
        Me.DialogResult = True
        Valor = Me.teValor.EditValue        
    End Sub

    Private Sub btCancelar_Click(sender As Object, e As RoutedEventArgs)
        Me.DialogResult = False
        Me.Close()
    End Sub

    Public Sub New(Rotulo As String, ValorDefecto As String, Optional LongitudMaxima As Integer = 0, Optional AnchoVentana As Integer = 0, Optional TipoNumerico As Boolean = False, Optional Mascara As String = "")

        ' Llamada necesaria para el diseñador.
        InitializeComponent()
        Me.liRotulo.Label = Rotulo
        Me.teValor.EditValue = ValorDefecto
        If LongitudMaxima > 0 Then Me.teValor.MaxLength = LongitudMaxima
        If AnchoVentana > 0 Then Me.Width = AnchoVentana
        If TipoNumerico Then Me.teValor.MaskType = DevExpress.Xpf.Editors.MaskType.Numeric
        Me.teValor.Mask = Mascara

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

    End Sub

End Class