Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/Dashboard/VB/DashboardMainDemo/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/Dashboard/VB/DashboardMainDemo/frmMain.vb

Imports Microsoft.VisualBasic
Imports System
Imports DevExpress.DXperience.Demos
Imports DevExpress.XtraEditors
Imports DevExpress.LookAndFeel
Imports DevExpress.Utils.Frames
Imports DevExpress.Utils

Namespace DashboardMainDemo
	Partial Public Class frmMain
		Inherits RibbonMainForm
		Public Sub New()
			InitializeComponent()
		End Sub
		Protected Overrides ReadOnly Property DemoName() As String
			Get
				Return String.Format("Dashboard Features Demo ({0} code)", DemoHelper.GetLanguageString(GetType(frmMain).Assembly))
			End Get
		End Property
		Protected Overrides Sub ShowModule(ByVal name As String, ByVal group As GroupControl, ByVal lookAndFeel As DefaultLookAndFeel, ByVal caption As ApplicationCaption)
			DemosInfo.Show(name, group, caption, RibbonMenuManager)
		End Sub
		Protected Overrides Sub SetFormParam()
			Icon = ResourceImageHelper.CreateIconFromResourcesEx("DashboardMainDemo.AppIcon.ico", GetType(frmMain).Assembly)
		End Sub
		Protected Overrides Sub ShowAbout()
			DevExpress.Utils.About.AboutForm.Show(GetType(DevExpress.DashboardWin.DashboardViewer), DevExpress.Utils.About.ProductKind.Dashboard, DevExpress.Utils.About.ProductInfoStage.Registered)
		End Sub
	End Class
End Namespace