Codejock Developer Community : ShortCut Bar with Panes http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 20 Apr 2026 18:23:56 +0000 Wed, 07 Apr 2004 20:21:38 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=602 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[ShortCut Bar with Panes : Sorry for the delay. Using ShortcutBar...]]> http://forum.codejock.com/forum_posts.asp?TID=602&PID=1572&title=shortcut-bar-with-panes#1572 Author: robs
Subject: 602
Posted: 07 April 2004 at 8:21pm

Sorry for the delay. Using ShortcutBar Codejock sample, add a form called frmTasks

1. Add the button to frmPaneCalendar named btnTasks

Code:

Private Sub btnTasks_Click()
    Load frmTasks
    Set ItemMain = MainBar.AddItem(9, "Tasks", frmTasks.hWnd)
End Sub

2. Add a standard module with a public variable

Code:

Public MainBar As XtremeSuiteControls.ShortcutBar

3. Set the public variable in the form_load of frmMain

Code:

Set MainBar = wndShortcutBar

 

This works for me. It adds a new item to the collection and when clicked, shows frmTasks.

Good luck!

 

]]> Wed, 07 Apr 2004 20:21:38 +0000 http://forum.codejock.com/forum_posts.asp?TID=602&PID=1572&title=shortcut-bar-with-panes#1572 <![CDATA[ShortCut Bar with Panes : If you have a minute, could you...]]> http://forum.codejock.com/forum_posts.asp?TID=602&PID=1566&title=shortcut-bar-with-panes#1566 Author: bjoeylouie
Subject: 602
Posted: 06 April 2004 at 9:57pm

If you have a minute, could you post your code for items 1, 2 and 3 above?  I'd like to duplicate your sample... this will help me find my error.

Thanks

]]> Tue, 06 Apr 2004 21:57:29 +0000 http://forum.codejock.com/forum_posts.asp?TID=602&PID=1566&title=shortcut-bar-with-panes#1566 <![CDATA[ShortCut Bar with Panes : Should be: Private Sub btnTasks_Click()...]]> http://forum.codejock.com/forum_posts.asp?TID=602&PID=1565&title=shortcut-bar-with-panes#1565 Author: robs
Subject: 602
Posted: 06 April 2004 at 9:38pm

Should be:

Private Sub btnTasks_Click()
    Load frmTasks
    Set ItemMain = MainBar.AddItem(9, "Tasks", frmTasks.hWnd)
End Sub

Sorry if this doesn't work. I was able to get this to work in the ShortcutBar sample by:

1. Adding a button to frmPaneCalendar (this has the btnTasks_click() event)

2. Adding the standard module with the public variable.

3. Setting the public variable in the form_load of frmMain.

 

]]> Tue, 06 Apr 2004 21:38:52 +0000 http://forum.codejock.com/forum_posts.asp?TID=602&PID=1565&title=shortcut-bar-with-panes#1565 <![CDATA[ShortCut Bar with Panes : Still not working, same error...]]> http://forum.codejock.com/forum_posts.asp?TID=602&PID=1564&title=shortcut-bar-with-panes#1564 Author: bjoeylouie
Subject: 602
Posted: 06 April 2004 at 9:32pm

Still not working, same error message - no error number is provided.  To review what I did:

In the Main Form with the shortcut bar add: 

Set MainBar = wndMainShortcutBar

Add a Module named MainBar.bas  with this code:  

Public MainBar As XtremeSuiteControls.ShortcutBar

Here is the button click event:

Private Sub btnTasks_Click()
    Load frmTasks
    Set ItemMain = wndMainShortcutBar.AddItem(9, "Tasks", frmTasks.hWnd)
End Sub

]]> Tue, 06 Apr 2004 21:32:50 +0000 http://forum.codejock.com/forum_posts.asp?TID=602&PID=1564&title=shortcut-bar-with-panes#1564 <![CDATA[ShortCut Bar with Panes : In the main form with the shortcutbar: set...]]> http://forum.codejock.com/forum_posts.asp?TID=602&PID=1558&title=shortcut-bar-with-panes#1558 Author: robs
Subject: 602
Posted: 05 April 2004 at 11:26pm

In the main form with the shortcutbar:

set mainBar = wndMainShortCutBar instead of set mainBar = wndMainBar

Does this help? If not, what is that error number? Thanks

 

 

]]> Mon, 05 Apr 2004 23:26:30 +0000 http://forum.codejock.com/forum_posts.asp?TID=602&PID=1558&title=shortcut-bar-with-panes#1558 <![CDATA[ShortCut Bar with Panes : thanks, I&#039;m now getting this...]]> http://forum.codejock.com/forum_posts.asp?TID=602&PID=1556&title=shortcut-bar-with-panes#1556 Author: bjoeylouie
Subject: 602
Posted: 05 April 2004 at 11:17pm

thanks, I'm now getting this error message

"Expected procedure or variable, not module
]]> Mon, 05 Apr 2004 23:17:31 +0000 http://forum.codejock.com/forum_posts.asp?TID=602&PID=1556&title=shortcut-bar-with-panes#1556 <![CDATA[ShortCut Bar with Panes : bjoeylouie, Is it breaking on...]]> http://forum.codejock.com/forum_posts.asp?TID=602&PID=1554&title=shortcut-bar-with-panes#1554 Author: robs
Subject: 602
Posted: 05 April 2004 at 10:48pm

bjoeylouie,

Is it breaking on Set ItemTaks = wndMainBar.AddItem(9, "Tasks", frmTasks.hWnd) ?

Object Required? If so, try this, of not sorry I couldn't help...

Try adding this to a standard module:

Public mainBar As XtremeSuiteControls.ShortcutBar

Add this to the main form with the shortcutbar:

set mainBar = wndMainBar

Then in btnTasks_clic():

load frmTasks

mainBar.AddItem 9,"Tasks",frmTasks.hWnd

 

]]> Mon, 05 Apr 2004 22:48:40 +0000 http://forum.codejock.com/forum_posts.asp?TID=602&PID=1554&title=shortcut-bar-with-panes#1554 <![CDATA[ShortCut Bar with Panes : I have 2 short cut bars on a form...]]> http://forum.codejock.com/forum_posts.asp?TID=602&PID=1552&title=shortcut-bar-with-panes#1552 Author: bjoeylouie
Subject: 602
Posted: 05 April 2004 at 10:24pm

I have 2 short cut bars on a form named wndLeftShortCutBar and wndMainShortCutBar.  There are several Panes
in the wndLeftShortCutBar as follows:

Sub CreateShortcutBar()
    .
    .
    .     
        
    Set ItemMail = wndLeftShortCutBar.AddItem(1, "Mail", frmPaneMail.hWnd)
    Set Item = wndLeftShortCutBar.AddItem(2, "Calendar", frmPaneCalendar.hWnd)
    Set Item = wndLeftShortCutBar.AddItem(3, "Tasks", frmPaneTasks.hWnd)
    .
    .
    .

frmPaneTasks has several buttons which when clicked will display in wndMainBar.

My question:

How do I display different forms in the wndMainBar by clicking on a button
in wndLeftBar pane?

I tried the following with no luck.

Private Sub btnTasks_Click()
    Dim ItemTasks As IShortcutBarItem
    Load frmTasks
    Set ItemTasks = wndMainBar.AddItem(9, "Tasks", frmTasks.hWnd)
End Sub   

Wonder if you could help me with this?

bJoeyLouie
]]> Mon, 05 Apr 2004 22:24:17 +0000 http://forum.codejock.com/forum_posts.asp?TID=602&PID=1552&title=shortcut-bar-with-panes#1552