Imports bdGrupoSanchoToro Imports bdGrupoSanchoToro.db Imports DevExpress.Xpf.Core Imports System.Data.Entity Public Class dxwAsientosModelo Friend _bd As tscGrupoSanchoToro Public idAsientoModelo As Integer Private Sub btAceptar_Click(sender As Object, e As RoutedEventArgs) If gc.CurrentItem IsNot Nothing Then idAsientoModelo = DirectCast(gc.CurrentItem, asientosmodelos).idAsientoModelo Me.DialogResult = True Me.Close() End If End Sub Private Sub btCancelar_Click(sender As Object, e As RoutedEventArgs) Me.DialogResult = False Me.Close() End Sub Private Sub dxwEntidades_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded Try If Not DXSplashScreen.IsActive Then DXSplashScreen.Show(Of tsWPFCore.SplashScreenTecnosis)() DXSplashScreen.SetState("Cargando Datos ...") Me.gc.ItemsSource = _bd.asientosmodelos.OrderBy(Function(x) x.Descripcion).ToList Catch ex As Exception DXMessageBox.Show(ex.Message, "Error") Finally If DXSplashScreen.IsActive Then DXSplashScreen.Close() End Try End Sub 'Public Sub New(bd As m3academiaEntities, Existentes As List(Of Integer?)) Public Sub New(bd As tscGrupoSanchoToro) ' Llamada necesaria para el diseñador. InitializeComponent() _bd = bd End Sub Private Sub dxw_PreviewKeyDown(sender As Object, e As KeyEventArgs) Handles Me.PreviewKeyDown If e.Key = Key.Enter Then btAceptar_Click(Nothing, Nothing) End If End Sub Private Sub tv_MouseDoubleClick(sender As Object, e As MouseButtonEventArgs) Handles tv.MouseDoubleClick btAceptar_Click(Nothing, Nothing) End Sub End Class