Thank Oscar for your help.
I am VB.net user and try to translate your code to VB.net and get some error as in attached images. Could you please help me to pass this?
![Image]()
![Image]()
here is my VB code which translated from your C#
STATUS CONTROL:
GIS4SD
I am VB.net user and try to translate your code to VB.net and get some error as in attached images. Could you please help me to pass this?


here is my VB code which translated from your C#
STATUS CONTROL:
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.ComponentModel.Composition
Imports DotSpatial.Data
Imports DotSpatial.Controls.Extensions
Imports DotSpatial.Controls.Header
Namespace WindowsApplication7
''' <summary>
''' Used to display status information.
''' </summary>
<InheritedExport> _
Public Interface IStatusControl
Inherits IProgressHandler
''' <summary>
''' Adds the specified panel.
''' </summary>
''' <param name="panel">The panel.</param>
Sub Add(panel As StatusPanel)
''' <summary>
''' Removes the specified panel.
''' </summary>
''' <param name="panel">The panel.</param>
Sub Remove(panel As StatusPanel)
End Interface
End Namespace
DOCK MANAGER:Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports DotSpatial.Controls.Header
Imports DotSpatial.Controls.Docking
Imports System.ComponentModel.Composition
Namespace WindowsApplication7
<Export(GetType(IDockManager))> _
Public Class DummyDockManager
Implements IDockManager
Public Sub Add(item As DockablePanel)
End Sub
Public Sub ResetLayout()
End Sub
Public Sub Remove(key As String)
End Sub
Public Sub SelectPanel(key As String)
End Sub
Public Sub HidePanel(key As String)
End Sub
Public Sub ShowPanel(key As String)
End Sub
'public interface ActivePanelChanged
'{
'}
Public Event ActivePanelChanged As EventHandler(Of DockablePanelEventArgs)
Public Event PanelClosed As EventHandler(Of DockablePanelEventArgs)
Public Event PanelAdded As EventHandler(Of DockablePanelEventArgs)
Public Event PanelRemoved As EventHandler(Of DockablePanelEventArgs)
Public Event PanelHidden As EventHandler(Of DockablePanelEventArgs)
'public void RemoveAll()
'{
'}
'public void SelectRoot(string key)
'{
'}
'public event EventHandler<RootItemEventArgs> RootItemSelected;
End Class
End Namespace
IHEADER:Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports DotSpatial.Controls.Header
Imports System.ComponentModel.Composition
Namespace WindowsApplication7
<Export(GetType(IHeaderControl))> _
Public Class DummyHeaderControl
Implements IHeaderControl
Public Sub Add(item As HeaderItem)
End Sub
Public Sub Remove(key As String)
End Sub
Public Sub RemoveAll()
End Sub
Public Sub SelectRoot(key As String)
End Sub
Public Event RootItemSelected As EventHandler(Of RootItemEventArgs)
End Class
End Namespace
Thank you and Best Regard,GIS4SD