.net Statusbar helper function question

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi,

I just tried to create a helper function for adding panes to the status bar in vb.net like this 

   Public Shared Sub AddStatusbarPane(ByRef CommandBar As AxCommandBars, ByVal lPaneID As Long, ByVal sPaneText As String, ByVal iPaneWidth As Integer, Optional ByVal PaneStyle As XtremeCommandBars.XTPStatusPaneStyle = 0)

        Dim Statusbar As XtremeCommandBars.StatusBar
        Dim Pane As XtremeCommandBars.StatusBarPane

        Statusbar = CommandBar.StatusBar
        Pane = StatusBar.AddPane(lPaneID)

        With Pane
            If PaneStyle <> 0 Then
                .Style = PaneStyle
            End If

            .Text = sPaneText
            .Width = iPaneWidth
        End With

    End Sub

But it does not add the panes. Does anyone know why ?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
tobi Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 09 September 2004 Location: Germany Status: Offline Points: 451	Post Options Post Reply Quote tobi Report Post Thanks(0) Quote Reply Topic: .net Statusbar helper function question Posted: 15 August 2008 at 2:33pm
	Hi, I just tried to create a helper function for adding panes to the status bar in vb.net like this Public Shared Sub AddStatusbarPane(ByRef CommandBar As AxCommandBars, ByVal lPaneID As Long, ByVal sPaneText As String, ByVal iPaneWidth As Integer, Optional ByVal PaneStyle As XtremeCommandBars.XTPStatusPaneStyle = 0) Dim Statusbar As XtremeCommandBars.StatusBar Dim Pane As XtremeCommandBars.StatusBarPane Statusbar = CommandBar.StatusBar Pane = StatusBar.AddPane(lPaneID) With Pane If PaneStyle <> 0 Then .Style = PaneStyle End If .Text = sPaneText .Width = iPaneWidth End With End Sub But it does not add the panes. Does anyone know why ?