Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports DevExpress.XtraEditors

Namespace DevExpress.XtraNavBar.Demos
	''' <summary>
	''' Summary description for NavBarInfo.
	''' </summary>
	Public Partial Class NavBarInfo
		Inherits TutorialControl
		Public Sub New()
			'
			' Required for Windows Form Designer support
			'
			InitializeComponent()
			'
			' TODO: Add any constructor code after InitializeComponent call
			'
		End Sub

		Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
			Dim btn As SimpleButton = TryCast(sender, SimpleButton)
			Dim frm As XtraForm = New XtraForm()
			Dim mEdit As MemoEdit = New MemoEdit()
			mEdit.Dock = DockStyle.Fill
			mEdit.Text = GetNavBarInfo(navBarControl1)
			mEdit.Select(0, 0)
			frm.Controls.Add(mEdit)
            frm.Location = btn.PointToScreen(New Point(btn.Width \ 2, btn.Height \ 2))
			frm.StartPosition = FormStartPosition.Manual
			frm.FormBorderStyle = FormBorderStyle.SizableToolWindow
			frm.Text = "NavBar Control"
			frm.ShowDialog()
		End Sub

		'<button1>
		Private Function GetNavBarInfo(ByVal nbc As DevExpress.XtraNavBar.NavBarControl) As String
			Dim s As String = "Items:" & Constants.vbCrLf
			Dim i As Integer = 0
			Do While i < nbc.Items.Count
				s &= " Item" & i.ToString() & ": " & nbc.Items(i).Caption & Constants.vbCrLf
				i += 1
			Loop
			s &= Constants.vbCrLf & "Groups:" & Constants.vbCrLf
			i = 0
			Do While i < nbc.Groups.Count
				s &= "  Group" & i.ToString() & ": " & nbc.Groups(i).Caption & Constants.vbCrLf
				s &= "    ItemLinks:" & Constants.vbCrLf
				Dim j As Integer = 0
				Do While j < nbc.Groups(i).ItemLinks.Count
					s &= "      Link" & j.ToString() & ": " & nbc.Groups(i).ItemLinks(j).Caption & Constants.vbCrLf
					j += 1
				Loop
				i += 1
			Loop
			Return s
		End Function
		'</button1>
	End Class
End Namespace