http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 11 Jun 2026 20:02:00 +0000 Sun, 13 Jul 2008 19:24:56 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=11421 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=11421&PID=38306&title=solved-error-with-v12-0-1-ribbonbar#38306 Author: chrisABC
Subject: 11421
Posted: 13 July 2008 at 7:24pm

The solution is in the Dim statement.

  in v12.0.0  this works OK.
      Dim ControlPrint as CommandBarControl

but in v12.0.1  this must be changed to:
      Dim ControlPrint as CommandBarPopup


The rest of the code is:
     Set ControlFile = RibbonBar.AddSystemButton()
    . . . .
    With ControlFile.CommandBar.Controls
        Set ControlPrint = .Add(xtpControlsplitButtonPopup, ID_FILE_PRINT, "Print")
        Set PopupBar = commandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")
        Set ControlPrint.CommandBar = PopupBar


With this change to the Dim statement, my program runs OK under v12.0.1
]]> Sun, 13 Jul 2008 19:24:56 +0000 http://forum.codejock.com/forum_posts.asp?TID=11421&PID=38306&title=solved-error-with-v12-0-1-ribbonbar#38306 http://forum.codejock.com/forum_posts.asp?TID=11421&PID=38305&title=solved-error-with-v12-0-1-ribbonbar#38305 Author: chrisABC
Subject: 11421
Posted: 13 July 2008 at 6:32pm

Just to confirm this.

I uninstalled v12.0.1 and then installed v 12.0.0
My programs then run OK.

Uninstalled v12.0.0 and then installed 12.0.1
My program now reports error 438 "Object doesn't support property....
]]> Sun, 13 Jul 2008 18:32:27 +0000 http://forum.codejock.com/forum_posts.asp?TID=11421&PID=38305&title=solved-error-with-v12-0-1-ribbonbar#38305 http://forum.codejock.com/forum_posts.asp?TID=11421&PID=38296&title=solved-error-with-v12-0-1-ribbonbar#38296 Author: chrisABC
Subject: 11421
Posted: 13 July 2008 at 9:15am

The following code (taken from the Ribbon Sample) worked OK in my program with v12.0.0   (in the Create ribbonBar sub)

    Set ControlFile = RibbonBar.AddSystemButton()
    . . . .
    With ControlFile.CommandBar.Controls
        Set ControlPrint = .Add(xtpControlsplitButtonPopup, ID_FILE_PRINT, "Print")
        Set PopupBar = commandBars.CreateCommandBar("CXTPRibbonSystemPopupBarPage")
    Set ControlPrint.CommandBar = PopupBar


After I updated to v12.0.1
The program stops on the last line with.   Error 438
     "Object doesn't support this property or method"

--------------------------------------------------------------------------------
However, the Ribbon Sample still runs OK with v12.0.1  so there must be something else (not the above code) that is affecting it.

Any ideas?   If not I shall have to start comparing the Ribbon Sample with my own code to see what is different.

(SOLVED:  with v12.0.1 ControlPrint must be Dim as CommandBarPopup
                 (with v12.0.0 it could be dim as CommandBarControl))
]]> Sun, 13 Jul 2008 09:15:12 +0000 http://forum.codejock.com/forum_posts.asp?TID=11421&PID=38296&title=solved-error-with-v12-0-1-ribbonbar#38296