Mini Kabibi Habibi

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

Namespace DevExpress.XtraNavBar.Demos
	''' <summary>
	''' Summary description for HitInfo.
	''' </summary>
	Public Partial Class HitInfo
		Inherits TutorialControl
		Public Sub New()
			'
			' Required for Windows Form Designer support
			'
			InitializeComponent()
			ShowHitInfo(Nothing, Point.Empty)
			lbClick.Text = "None"
			'
			' TODO: Add any constructor code after InitializeComponent call
			'
		End Sub

		Private Sub ShowHitInfo(ByVal hi As DevExpress.XtraNavBar.NavBarHitInfo, ByVal p As Point)
			Dim s As String = "None"
			If hi Is Nothing Then
				lbLink.Text = s
				lbGroup.Text = lbLink.Text
				lbHitTest.Text = lbGroup.Text
			Else
				lbHitTest.Text = hi.HitTest.ToString()
				If Not hi.Group Is Nothing Then
					lbGroup.Text = hi.Group.Caption
				Else
					lbGroup.Text = s
				End If
				If Not hi.Link Is Nothing Then
					lbLink.Text = hi.Link.Caption
				Else
					lbLink.Text = s
				End If
			End If
			If (Not p.Equals(Point.Empty)) Then
				lbPoint.Text = "X = " & p.X.ToString() & "; Y = " & p.Y.ToString()
			Else
				lbPoint.Text = ""
			End If
		End Sub

		Private Sub navBarControl1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles navBarControl1.MouseMove
			Dim p As Point = New Point(e.X, e.Y)
			ShowHitInfo(navBarControl1.CalcHitInfo(p), p)
		End Sub

		Private Sub navBarControl1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles navBarControl1.MouseLeave
			ShowHitInfo(Nothing, Point.Empty)
		End Sub

		Private Sub navBarControl1_LinkClicked(ByVal sender As Object, ByVal e As DevExpress.XtraNavBar.NavBarLinkEventArgs) Handles navBarControl1.LinkClicked
			lbClick.Text = "Group (" & e.Link.Group.Caption & ")" & Constants.vbCrLf & "Item (" & e.Link.Caption & ")"
		End Sub
	End Class
End Namespace