45 lines
1.5 KiB
VB.net
45 lines
1.5 KiB
VB.net
|
|
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
|