Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/Silverlight/VB/PrintingDemo/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/Silverlight/VB/PrintingDemo/Program.vb

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 PrintingDemo
	Public Class App
		Inherits Application
		Private Shared exportServiceUrl_Renamed As String = "../ExportService.svc"

		Friend Shared ReadOnly Property ExportServiceUrl() As String
			Get
				Return exportServiceUrl_Renamed
			End Get
		End Property

		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