Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Windows.Forms
Imports DevExpress.DXperience.Demos
Imports DevExpress.Utils.Menu
Imports DevExpress.XtraBars
Imports DevExpress.XtraEditors
Imports DevExpress.XtraPrinting
Imports DevExpress.XtraPrinting.Control
Imports DevExpress.XtraPrintingLinks
Imports System.Globalization

Namespace DevExpress.XtraMap.Demos
	Public Class MapTutorialControl
		Inherits TutorialControlBase
		Implements IDXMenuManager
		#Region "static"
		Public Shared Function GetSaveFileName(ByVal defaulName As String) As String
			Return GetSaveFileName("Xlsx files(*.xlsx)|*.xlsx|All files (*.*)|*.*", defaulName)
		End Function
		Public Shared Function GetSaveFileName(ByVal filter As String, ByVal defaulName As String) As String
			Dim sfDialog As New SaveFileDialog()
			sfDialog.Filter = filter
			sfDialog.FileName = defaulName
			If sfDialog.ShowDialog() <> DialogResult.OK Then
				Return Nothing
			End If
			Return sfDialog.FileName
		End Function
		Public Shared Sub ShowFile(ByVal fileName As String, ByVal control As TutorialControlBase)
			If (Not File.Exists(fileName)) Then
				Return
			End If
			Dim dResult As DialogResult = XtraMessageBox.Show(control.LookAndFeel, control, String.Format("Do you want to open the resulting file?", fileName), control.TutorialName, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
			If dResult = DialogResult.Yes Then
				Process.Start(fileName)
			End If
		End Sub
		#End Region
		#Region "fields"
		Private menu As LookAndFeelMenu = Nothing
		Private fMenuManager As IDXMenuManager
		#End Region

		Public Sub New()
			InitializeComponent()
		End Sub

		#Region "properties"
		Public Property DemoMainMenu() As LookAndFeelMenu
			Get
				Return menu
			End Get
			Set(ByVal value As LookAndFeelMenu)
				If menu Is value Then
					Return
				End If
				Me.menu = value
			End Set
		End Property
		Public Property MenuManager() As IDXMenuManager
			Get
				Return fMenuManager
			End Get
			Set(ByVal value As IDXMenuManager)
				fMenuManager = value
			End Set
		End Property
		Public Overridable ReadOnly Property ShowOptions() As Boolean
			Get
				Return False
			End Get
		End Property
		#End Region
		#Region "initialize"
		Private Sub InitializeComponent()
			Me.SuspendLayout()
			Me.Name = "MapTutorialControl"
			Me.Size = New System.Drawing.Size(500, 500)
			Me.ResumeLayout(False)

		End Sub
		#End Region

		Private Sub ShowPopupMenu(ByVal menu As DXPopupMenu, ByVal control As Control, ByVal pos As Point) Implements IDXMenuManager.ShowPopupMenu
			MenuManagerHelper.ShowMenu(menu, LookAndFeel, fMenuManager, control, pos)
		End Sub

		Private Function Clone(ByVal newForm As Form) As IDXMenuManager Implements IDXMenuManager.Clone
			Return Me
		End Function

		Private Sub DisposeManager() Implements IDXMenuManager.DisposeManager
		End Sub

		Protected Function CreateBingDataProvider(ByVal kind As BingMapKind) As BingMapDataProvider
			Return New BingMapDataProvider() With {.BingKey = DemoUtils.DevexpressBingKey, .Kind = kind}
		End Function
		Protected Overrides Sub SetControlManager(ByVal ctrl As Control, ByVal manager As BarManager)
			Dim be As BaseEdit = TryCast(ctrl, BaseEdit)
			If be IsNot Nothing Then
				be.MenuManager = manager
			End If
		End Sub


	End Class
End Namespace