Codejock Developer Community : Sticky floating position? http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 15 Jun 2026 02:00:14 +0000 Tue, 26 May 2009 12:59:38 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=14369 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Sticky floating position? : Here is how I do it: (this works...]]> http://forum.codejock.com/forum_posts.asp?TID=14369&PID=49342&title=sticky-floating-position#49342 Author: Mr.Den
Subject: 14369
Posted: 26 May 2009 at 12:59pm

Here is how I do it: (this works for me, your mileage may vary )
 
Put in the declarations of a form:
 
Private Const ID_BAR_TEST = 200
 
Create the command bar:

private sub SetUpCommandBars

Dim obBar As CommandBar

on error goto errHandler
   
    Set obBar = CommandBars.Add("Test Bar", xtpBarFloating)
    obBar.BarID = ID_BAR_TEST
   
    'add controls to bar
   
    CommandBars.DockToolBar obBar, 10, 800, xtpBarFloating
   
errHandler:
   
    If Err.Number Then
        MsgBox Err.Number & ", " & Err.Description, vbCritical , "SetUpCommandBars"
    End If
   
    Set obBar = Nothing

End Sub

Use this to move the Commandbar:
 
Private Sub TestDockToolBar()
 
Dim obBar As CommandBar
 
On Error GoTo errHandler
   
    For Each obBar In obCommandBars
       
        If obBar.BarID = ID_BAR_TEST Then
           
            obCommandBars.DockToolBar obBar, 900, 900, xtpBarFloating
           
        End If
       
    Next
   
errHandler:
   
    If Err.Number Then
        ShowErrorM Err.Number, Err.Description, "TestDockToolBar"
    End If
   
    Set obBar = Nothing
   
End Sub

You can change the hard coded numbers in the TestDockToolBar/DockToolBar command to variables that you set when changing from floating to docked, it should do what you need.

 Thanks to Aaron for giving me the tip on the DockToolBar function

]]> Tue, 26 May 2009 12:59:38 +0000 http://forum.codejock.com/forum_posts.asp?TID=14369&PID=49342&title=sticky-floating-position#49342 <![CDATA[Sticky floating position? : My application allows the user...]]> http://forum.codejock.com/forum_posts.asp?TID=14369&PID=49292&title=sticky-floating-position#49292 Author: uiguy
Subject: 14369
Posted: 23 May 2009 at 8:38am

My application allows the user to toggle individual toolbars between docked state and floating state.  I have implemented this by toggling the CommandBar's Position property between xtpBarFloating or xtpBarTop.  My problem is that the CommandBar does not remember its floating position. Consider these steps taken by the user:
 
- moves the floating toolbar to position 500, 600 on the screen
- docks the toolbar (via a dialog that sets Position to xtpBarTop)
- undocks the toolbar (via dialog that set the Position to xtpBarFloating)
- the toolbar is now position to the upper left portion of the screen, no where near the "last floating" position
 
Is there a remedy for this?  When the user undocks the toolbar via the dialog, I want it to show in the same position it was when it was last floating.
 
]]> Sat, 23 May 2009 08:38:16 +0000 http://forum.codejock.com/forum_posts.asp?TID=14369&PID=49292&title=sticky-floating-position#49292