26 lines
940 B
VB.net
26 lines
940 B
VB.net
Imports System.Configuration
|
|
Imports System.Globalization
|
|
Imports System.Threading
|
|
Imports System.Windows.Threading
|
|
Imports DevExpress.Xpf.Core
|
|
|
|
Namespace GrupoSanchoToro
|
|
''' <summary>
|
|
''' Interaction logic for App.xaml
|
|
''' </summary>
|
|
Partial Public Class App
|
|
Inherits Application
|
|
Private Sub OnAppStartup_UpdateThemeName(sender As Object, e As StartupEventArgs)
|
|
DevExpress.Xpf.Core.ApplicationThemeHelper.UpdateApplicationThemeName()
|
|
End Sub
|
|
|
|
Private Sub App_DispatcherUnhandledException(sender As Object, e As DispatcherUnhandledExceptionEventArgs) Handles Me.DispatcherUnhandledException
|
|
MsgBox(e.Exception.Message)
|
|
End Sub
|
|
|
|
Private Sub App_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup
|
|
Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("es-ES")
|
|
End Sub
|
|
End Class
|
|
End Namespace
|