Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Command Bars
  New Posts New Posts RSS Feed - How I can do this..!
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

How I can do this..!

 Post Reply Post Reply
Author
Message
johsuali View Drop Down
Newbie
Newbie
Avatar

Joined: 13 November 2008
Location: France
Status: Offline
Points: 4
Post Options Post Options   Thanks (0) Thanks(0)   Quote johsuali Quote  Post ReplyReply Direct Link To This Post Topic: How I can do this..!
    Posted: 13 November 2008 at 5:56pm
Hi ..
I want to make a templete like access 2007..how I can do it
thanks
Back to Top
Oleg View Drop Down
Admin Group
Admin Group


Joined: 21 May 2003
Location: United States
Status: Offline
Points: 11234
Post Options Post Options   Thanks (0) Thanks(0)   Quote Oleg Quote  Post ReplyReply Direct Link To This Post Posted: 14 November 2008 at 2:15am
Hi,
 
You can add CommandBarsFrame and add sinlge gallery control.
Oleg, Support Team
CODEJOCK SOFTWARE SOLUTIONS
Back to Top
johsuali View Drop Down
Newbie
Newbie
Avatar

Joined: 13 November 2008
Location: France
Status: Offline
Points: 4
Post Options Post Options   Thanks (0) Thanks(0)   Quote johsuali Quote  Post ReplyReply Direct Link To This Post Posted: 14 November 2008 at 11:44am
Hi,
I see in the help file that the CommandBarsFrame it use with the Ms Access..
is there any exemple in the forum for this sample..(vb6 or vs.net)
 
thanks...
Back to Top
RedPsyrus View Drop Down
Groupie
Groupie
Avatar

Joined: 17 November 2008
Status: Offline
Points: 38
Post Options Post Options   Thanks (0) Thanks(0)   Quote RedPsyrus Quote  Post ReplyReply Direct Link To This Post Posted: 15 June 2009 at 6:00pm
Hi every body..
is there any folowup for this topic..!
example or some codes..
thanks

I'm using visual studio 2008 pro and codejock 12.1.1
Back to Top
SuperMario View Drop Down
Admin Group
Admin Group
Avatar

Joined: 14 February 2004
Status: Offline
Points: 18057
Post Options Post Options   Thanks (0) Thanks(0)   Quote SuperMario Quote  Post ReplyReply Direct Link To This Post Posted: 21 June 2009 at 12:45pm
CommandbarsFrame can be used in almost any environments.  However, some environments such as MS Access REQUIRE CommandBarsFrame.  So yes, you can use it in VB6.

So you just add a single Gallery Control to the CommandBars Frame.

I was able to do this:


Back to Top
cmm2006 View Drop Down
Senior Member
Senior Member


Joined: 26 September 2006
Status: Offline
Points: 118
Post Options Post Options   Thanks (0) Thanks(0)   Quote cmm2006 Quote  Post ReplyReply Direct Link To This Post Posted: 22 June 2009 at 1:04pm
SuperMario,
if it's not to much to ask, can you please post a sample (vb6 code) on how to do this?
Thank you
Back to Top
RedPsyrus View Drop Down
Groupie
Groupie
Avatar

Joined: 17 November 2008
Status: Offline
Points: 38
Post Options Post Options   Thanks (0) Thanks(0)   Quote RedPsyrus Quote  Post ReplyReply Direct Link To This Post Posted: 22 June 2009 at 5:31pm
Hi SuperMario..
I try to make a litle Example to do The template but it not work ..!
I know there is some errors in the code or in the method
can you help me
here is the project ( in vb net 2008 uploads/20090622_173016_Single_Control.zip


if therr another example share it please

thanks





I'm using visual studio 2008 pro and codejock 12.1.1
Back to Top
SuperMario View Drop Down
Admin Group
Admin Group
Avatar

Joined: 14 February 2004
Status: Offline
Points: 18057
Post Options Post Options   Thanks (0) Thanks(0)   Quote SuperMario Quote  Post ReplyReply Direct Link To This Post Posted: 22 June 2009 at 7:43pm
I'll post some code up tomorrow, I left the project on my other PC.
Back to Top
RedPsyrus View Drop Down
Groupie
Groupie
Avatar

Joined: 17 November 2008
Status: Offline
Points: 38
Post Options Post Options   Thanks (0) Thanks(0)   Quote RedPsyrus Quote  Post ReplyReply Direct Link To This Post Posted: 22 June 2009 at 7:46pm
Thanks ..

I'm using visual studio 2008 pro and codejock 12.1.1
Back to Top
SuperMario View Drop Down
Admin Group
Admin Group
Avatar

Joined: 14 February 2004
Status: Offline
Points: 18057
Post Options Post Options   Thanks (0) Thanks(0)   Quote SuperMario Quote  Post ReplyReply Direct Link To This Post Posted: 23 June 2009 at 5:10pm
Image File I use:



Here is the entire contents of the form from which the screenshot I took earlier:

Private Sub Form_Load()
             
    CommandBars.VisualTheme = xtpThemeRibbon
    CommandBars.ActiveMenuBar.Visible = False
    CommandBars.PaintManager.FlatToolBar = True
   
    Dim TabWrite As RibbonTab
    Dim GroupStyles As RibbonGroup, GroupShapes As RibbonGroup
    Dim Control As CommandBarControl
    Dim ControlPopup As CommandBarPopup
    Dim i As Long
   
   
    Dim ControlFile As CommandBarPopup, ControlTheme As CommandBarPopup, ControlAbout As CommandBarControl, ControlPrint As CommandBarPopup
    Dim PopupBar As CommandBar
   
    Dim ToolBar As CommandBar
   
    Set ToolBar = CommandBars.Add("Standard", xtpBarTop)
    ToolBar.ShowExpandButton = False
    ToolBar.EnableDocking xtpFlagStretched
    ToolBar.ModifyStyle XTP_CBRS_GRIPPER, 0
         
    Dim GalleryStyles As CommandBarGallery
    Set GalleryStyles = ToolBar.Controls.Add(xtpControlGallery, ID_GROUP_STYLES, "Styles")
       
    Set ItemsStyles = CommandBars.CreateGalleryItems(ID_GALLERY_STYLES)
   
    ItemsStyles.AddLabel "Featured Online Templates"
   
    ItemsStyles.ItemWidth = 106
    ItemsStyles.ItemHeight = 160
   
    Dim stylesIconArray(1 To 10) As Long
   
    For i = 1 To 10
        ItemsStyles.AddItem (5100 + i), ""
        stylesIconArray(i) = (5100 + i)
    Next i
   
    ItemsStyles.Icons.LoadBitmap App.Path & "\res\GalleryStyles_152x98.png", stylesIconArray, xtpImageNormal
   
    GalleryStyles.Width = 600
    GalleryStyles.Height = 350
    GalleryStyles.SetItemsMargin 4, 4, 4, 4
    GalleryStyles.ShowBorders = True
    GalleryStyles.ShowScrollBar = False
    GalleryStyles.Resizable = xtpAllowResizeHeight Or xtpAllowResizeWidth
   
    Set GalleryStyles.Items = ItemsStyles
End Sub

Private Sub Form_Resize()
    On Error Resume Next
    CommandBars.Move Me.ScaleLeft + 1, Me.ScaleTop + 1, Me.ScaleWidth - 2, Me.ScaleHeight - 2
End Sub

Back to Top
Norika View Drop Down
Groupie
Groupie
Avatar

Joined: 30 November 2006
Status: Offline
Points: 70
Post Options Post Options   Thanks (0) Thanks(0)   Quote Norika Quote  Post ReplyReply Direct Link To This Post Posted: 24 June 2009 at 12:29am
Thank you Mario,
 
I was able to make just the same Form with the code that you taught us! (modified little like below)
Thank you!
Dim WithEvents ItemsStyles As CommandBarGalleryItems
Private Sub Form_Load()
 Const ID_GROUP_STYLES = 2005
 Const ID_GALLERY_STYLES = 2006
    With CommandBars
       
        .VisualTheme = xtpThemeRibbon
        .ActiveMenuBar.Visible = False
        .PaintManager.FlatToolBar = True
       
        Dim i As Long
        Dim ToolBar As CommandBar
       
        Set ToolBar = .Add("Standard", xtpBarTop)
        With ToolBar
            .ShowExpandButton = False
            .ModifyStyle XTP_CBRS_GRIPPER, 0
                 
            Dim GalleryStyles As CommandBarGallery
            Set GalleryStyles = .Controls.Add(xtpControlGallery, ID_GROUP_STYLES, "Styles")
        End With
           
        Set ItemsStyles = .CreateGalleryItems(ID_GALLERY_STYLES)
        With ItemsStyles
            .ItemWidth = 106
            .ItemHeight = 160
        End With
    End With
   
   
    Dim stylesIconArray(1 To 10) As Long
   
    For i = 1 To 10
        ItemsStyles.AddItem (5100 + i), ""
        stylesIconArray(i) = (5100 + i)
    Next i
   
    Call ItemsStyles.Icons.LoadBitmap(App.Path & "\20090623_170829_GalleryStyles_1.png", _
                                      stylesIconArray, _
                                      xtpImageNormal)
    With GalleryStyles
        .Width = 600
        .Height = 350
        .SetItemsMargin 4, 4, 4, 4
        .ShowBorders = True
        .ShowScrollBar = False
        .Resizable = xtpAllowResizeHeight Or xtpAllowResizeWidth
        Set .Items = ItemsStyles
    End With
   
End Sub
Back to Top
cmm2006 View Drop Down
Senior Member
Senior Member


Joined: 26 September 2006
Status: Offline
Points: 118
Post Options Post Options   Thanks (0) Thanks(0)   Quote cmm2006 Quote  Post ReplyReply Direct Link To This Post Posted: 27 June 2009 at 6:45pm

Hi All,

I am glad to see that we are able to have a user interface looks like Access 07, but I was wondering how can I be able to do the following:
  1. center the galleryitems in the middle of the screen (under the ribbonbar)
  2. have the galleryitems resize every time the user resize the form
  3. load pictures stored in a folder and assign them to each item (I tried using the following code: GalleryItems.Icons.LoadIcon App.Path & "\LargeIcons\Icons1.ico)"
  4. fire event everytime the user click on one item (I tried but all the items they have the same ID)

thank you

Language: Visual Basic 6 SP6
OS: Windows XP Pro SP3
Product: Codejock Xtreme SuitePro 13.1
Back to Top
jpbro View Drop Down
Senior Member
Senior Member
Avatar

Joined: 12 January 2007
Status: Offline
Points: 1355
Post Options Post Options   Thanks (0) Thanks(0)   Quote jpbro Quote  Post ReplyReply Direct Link To This Post Posted: 27 June 2009 at 10:16pm
I haven't used the Gallery objects before, so there may be a better way (I hope there is!), but here is a way that I found to determine what item has been clicked (make sure the ItemsStyles object has been declated at the module level WithEvents...i.e. Private WithEvents ItemsStyles as CommandBarGalleryItems):


Private Sub ItemsStyles_DrawItem(ByVal hDC As stdole.OLE_HANDLE, ByVal Gallery As XtremeCommandBars.ICommandBarGallery, ByVal Item As XtremeCommandBars.ICommandBarGalleryItem, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal Enabled As Boolean, ByVal Selected As Boolean, ByVal Pressed As Boolean, ByVal Checked As Boolean, Handled As Variant)
   If Pressed Then
      Debug.Print "Gallery Item Clicked: " & Item.Id
   End If
End Sub

Product: Xtreme SuitePro (ActiveX) version 16.2.6
Platform: Windows XP - SP3

Language: Visual Basic 6.0 SP6

Back to Top
Norika View Drop Down
Groupie
Groupie
Avatar

Joined: 30 November 2006
Status: Offline
Points: 70
Post Options Post Options   Thanks (0) Thanks(0)   Quote Norika Quote  Post ReplyReply Direct Link To This Post Posted: 28 June 2009 at 11:51am

I put a CommandBars control on a PictureBox control (Picture1) as owner cntrol then I relocate the buttons whereever I want.

ItemsStyles.ItemWidth  :   each button width
GalleryStyles.Width   :  backside-frame width
Picture1.width(,height,left,top)   : position, size

I can get a button event by CommandBars_Execute event like below.

Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
    Dim i As Integer
    i = Control.SelectedItem.id
    If i = 5101 Then
        Form1.Show vbModal
    ElseIf i = 5102 Then
        Form2.Show vbModal
    End If
   
End Sub

Back to Top
cmm2006 View Drop Down
Senior Member
Senior Member


Joined: 26 September 2006
Status: Offline
Points: 118
Post Options Post Options   Thanks (0) Thanks(0)   Quote cmm2006 Quote  Post ReplyReply Direct Link To This Post Posted: 28 June 2009 at 4:45pm
Norika,
can you post a sample in how you did it, please ?
Language: Visual Basic 6 SP6
OS: Windows XP Pro SP3
Product: Codejock Xtreme SuitePro 13.1
Back to Top
Norika View Drop Down
Groupie
Groupie
Avatar

Joined: 30 November 2006
Status: Offline
Points: 70
Post Options Post Options   Thanks (0) Thanks(0)   Quote Norika Quote  Post ReplyReply Direct Link To This Post Posted: 29 June 2009 at 8:40am

uploads/20090629_083957_3GalleryButtons.zip

Hi CMM2006,
 
Please see this minmum sample.
 
Regards,
Norika
 
Product: Xtreme SuitePro (ActiveX) version 13.1.0
Platform: Windows Vista Premium (32bit) SP2 & Windows XP Professional - SP3
Language: Visual Basic 6.0 SP6  English/Japanese
Back to Top
cmm2006 View Drop Down
Senior Member
Senior Member


Joined: 26 September 2006
Status: Offline
Points: 118
Post Options Post Options   Thanks (0) Thanks(0)   Quote cmm2006 Quote  Post ReplyReply Direct Link To This Post Posted: 29 June 2009 at 12:13pm
Hi Norika,
 really a good job in detecting the item ID, but I am still trying to figure out how to resize the gallerystyles evey time you resize the form.
some help here please
Language: Visual Basic 6 SP6
OS: Windows XP Pro SP3
Product: Codejock Xtreme SuitePro 13.1
Back to Top
Norika View Drop Down
Groupie
Groupie
Avatar

Joined: 30 November 2006
Status: Offline
Points: 70
Post Options Post Options   Thanks (0) Thanks(0)   Quote Norika Quote  Post ReplyReply Direct Link To This Post Posted: 06 July 2009 at 1:28am

Hi cmm2006,
please see my sample app.

Regards,
Norika
uploads/20090706_012830_ResetAndResizeG.zip

Back to Top
cmm2006 View Drop Down
Senior Member
Senior Member


Joined: 26 September 2006
Status: Offline
Points: 118
Post Options Post Options   Thanks (0) Thanks(0)   Quote cmm2006 Quote  Post ReplyReply Direct Link To This Post Posted: 06 July 2009 at 1:35pm
Thank you for sharing, I think a lot of people out there will appreciate the help. thank you again
Language: Visual Basic 6 SP6
OS: Windows XP Pro SP3
Product: Codejock Xtreme SuitePro 13.1
Back to Top
RedPsyrus View Drop Down
Groupie
Groupie
Avatar

Joined: 17 November 2008
Status: Offline
Points: 38
Post Options Post Options   Thanks (0) Thanks(0)   Quote RedPsyrus Quote  Post ReplyReply Direct Link To This Post Posted: 06 July 2009 at 2:11pm
Hi,,
Good job Norika,, thanks
can you take a change to make the simple like microsoft access 2007
example make the background of the gallery to a single color (no animate)
thanks.. 
I'm using visual studio 2008 pro and codejock 12.1.1
Back to Top
Norika View Drop Down
Groupie
Groupie
Avatar

Joined: 30 November 2006
Status: Offline
Points: 70
Post Options Post Options   Thanks (0) Thanks(0)   Quote Norika Quote  Post ReplyReply Direct Link To This Post Posted: 06 July 2009 at 10:09pm

Hi, RedPsyrus,

Sorry, I have no idea..

Back to Top
cmm2006 View Drop Down
Senior Member
Senior Member


Joined: 26 September 2006
Status: Offline
Points: 118
Post Options Post Options   Thanks (0) Thanks(0)   Quote cmm2006 Quote  Post ReplyReply Direct Link To This Post Posted: 11 July 2009 at 8:15pm
Hi Again,
using the same ItemsStyles, how can I be able to assign the icon to the ItemsStyles using the standard ImageList?
Please help ASAP
Thank you.
 
Language: Visual Basic 6 SP6
OS: Windows XP Pro SP3
Product: Codejock Xtreme SuitePro 13.1
Back to Top
RedPsyrus View Drop Down
Groupie
Groupie
Avatar

Joined: 17 November 2008
Status: Offline
Points: 38
Post Options Post Options   Thanks (0) Thanks(0)   Quote RedPsyrus Quote  Post ReplyReply Direct Link To This Post Posted: 12 July 2009 at 7:11am
hi,
you can do it by using the index on a control ..

I'm using visual studio 2008 pro and codejock 12.1.1
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.203 seconds.