Mini Kabibi Habibi
Imports Microsoft.VisualBasic
Imports System
Imports System.Windows
Imports DevExpress.DemoData
Imports DevExpress.Xpf.DemoBase
Imports DevExpress.Xpf.DemoBase.Helpers
Imports DevExpress.DemoData.Helpers
Namespace RibbonDemo
Public Class App
Inherits Application
Public Sub New()
StartupBase.Run(Of Startup)(Me)
End Sub
End Class
Public Class Startup
Inherits DemoStartup
Public Shared Sub InitDemo()
#If (Not EXTMAP) Then
Loader.DemoDataAssembly = GetType(DevExpress.DemoData.AssemblyMarker).Assembly
#End If
End Sub
Protected Overrides Function GetDebug() As Boolean
#If DEBUG Then
Return True
#Else
Return False
#End If
End Function
Protected Overrides Function GetFixtureTypeForXBAPOrSLTesting() As Type
Return Nothing
End Function
End Class
End Namespace