Mini Kabibi Habibi

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

Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports DevExpress.Utils
Imports DevExpress.XtraNavBar
Imports DevExpress.DXperience.Demos

Namespace DevExpress.XtraLayout.Demos
	Public Class frmMain
		Inherits DevExpress.DXperience.Demos.RibbonMainForm
		Protected Overrides Sub SetFormParam()
			Me.navBarControl1.Parent.Width = 176
			Me.navBarControl1.AllowDrop = False
			Me.navBarControl1.LargeImages = Nothing
            Me.Icon = DevExpress.Utils.ResourceImageHelper.CreateIconFromResources("AppIcon.ico", GetType(frmMain).Assembly)
		End Sub
		Protected Overrides ReadOnly Property DemoName() As String
			Get
                Return "XtraLayout Features Demo (VB code)"
			End Get
		End Property
		Protected Overrides Sub ShowAbout()
            DevExpress.Utils.About.AboutForm.Show(GetType(DevExpress.XtraLayout.LayoutControl), DevExpress.Utils.About.ProductKind.DXperienceWin, DevExpress.Utils.About.ProductInfoStage.Registered)
		End Sub
		Protected Overrides Overloads Sub ShowModule(ByVal name As String, ByVal group As DevExpress.XtraEditors.GroupControl, ByVal lookAndFeel As DevExpress.LookAndFeel.DefaultLookAndFeel, ByVal caption As DevExpress.Utils.Frames.ApplicationCaption)
			DemosInfo.ShowModule(name, group, caption, RibbonMenuManager)
		End Sub
		Protected Overrides Sub FillNavBar()
			DemosInfo.FillNavBar(navBarControl1, DevExpress.XtraNavBar.NavBarGroupStyle.SmallIconsList, True, NavBarImage.Large)
		End Sub

	End Class
End Namespace