63 lines
2.5 KiB
VB.net
63 lines
2.5 KiB
VB.net
Imports DevExpress.Xpf.Editors
|
|
Imports DevExpress.Xpf.Core.Native
|
|
Imports System.Reflection
|
|
|
|
Public Class dxwIdentificacion
|
|
Private _Version As String
|
|
Public Cancelar As Boolean
|
|
|
|
Public Sub New(Optional Version As String = "")
|
|
|
|
_Version = Version
|
|
' Esta llamada es exigida por el diseñador.
|
|
InitializeComponent()
|
|
|
|
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click
|
|
Cancelar = False
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button2.Click
|
|
Cancelar = True
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Window_PreviewKeyDown(sender As Object, e As KeyEventArgs) Handles gc.PreviewKeyDown
|
|
If e.Key = Key.Return Then
|
|
If teUsuario.Text <> "" And Me.pbeContrasenna.Text <> "" Then
|
|
Cancelar = False
|
|
Me.Close()
|
|
Else
|
|
Dim te As BaseEdit = LayoutHelper.FindParentObject(Of BaseEdit)(Keyboard.FocusedElement)
|
|
If te Is Nothing Then
|
|
FocusManager.SetFocusedElement(Me, teUsuario)
|
|
Else
|
|
If te.Name.ToUpper = "TEUSUARIO" Then
|
|
FocusManager.SetFocusedElement(Me, pbeContrasenna)
|
|
Else
|
|
FocusManager.SetFocusedElement(Me, teUsuario)
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub dxwIdentificacion_Activated(sender As Object, e As EventArgs) Handles Me.Activated
|
|
' Application.Current.Dispatcher.BeginInvoke(New Action(Function() Me.Focus()), System.Windows.Threading.DispatcherPriority.Send)
|
|
' Application.Current.Dispatcher.BeginInvoke(New Action(Function() teUsuario.Focus()), System.Windows.Threading.DispatcherPriority.Send)
|
|
End Sub
|
|
|
|
Private Sub dxwIdentificacion_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
|
|
'FocusManager.SetFocusedElement(Me, teUsuario)
|
|
teUsuario.Focus()
|
|
' Application.Current.Dispatcher.BeginInvoke(New Action(Function() Me.Focus()), System.Windows.Threading.DispatcherPriority.Send)
|
|
' Application.Current.Dispatcher.BeginInvoke(New Action(Function() teUsuario.Focus()), System.Windows.Threading.DispatcherPriority.Send)
|
|
Cancelar = True
|
|
lVersion.Content = _Version
|
|
End Sub
|
|
End Class
|