Codejock Developer Community : Add DateTimePicker to a RibbonBar http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 09:46:31 +0000 Sat, 15 Feb 2014 14:15:37 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=14773 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Add DateTimePicker to a RibbonBar : I had the same problem and solved...]]> http://forum.codejock.com/forum_posts.asp?TID=14773&PID=72265&title=add-datetimepicker-to-a-ribbonbar#72265 Author: markp.uk
Subject: 14773
Posted: 15 February 2014 at 2:15pm

I had the same problem and solved it with a combo box. handle the position problem in the InitCommandsPopup event of the command bar, as below.

  Dim Combo            As CommandBarComboBox
  Dim Control            As CommandBarControl
  Dim DatePicker       As XtremeCalendarControl.DatePicker


If CommandBar.Parent.Type = xtpControlComboBox Then
      Set Combo = CommandBar.Parent
      Set Control = Combo
    
      Select Case Combo.Id
        Case ID_PREDICT_START, ID_CHART_START
          dppStart.VisualTheme = xtpCalendarThemeResource
          Set DatePicker = dppStart
          strCurrentDate = m_strPopupStartDay
        Case ID_PREDICT_END, ID_CHART_END
          dppEnd.VisualTheme = xtpCalendarThemeResource
          Set DatePicker = dppEnd
          strCurrentDate = m_strPopupEndDay
      End Select
      If Combo.Id = ID_PREDICT_START Or Combo.Id = ID_PREDICT_END Or Combo.Id = ID_CHART_START Or Combo.Id = ID_CHART_END Then
        'get the current value of the combo box
        strCurrentDate = Combo.Text
        bRestore = False
    
        If IsDate(Combo.Text) Then
          DatePicker.EnsureVisible Combo.Text
        End If
        Combo.GetRect lngLeft, lngTop, lngRight, lngBottom
        'GetPosition lngLeft, lngTop, CommandBar, Combo
        
        DatePicker.Left = lngLeft
    
        DatePicker.Top = lngTop + (lngBottom - lngTop)
        Debug.Print lngTop
        
        If DatePicker.ShowModal(1, 1) Then
    
          Dim strDate0         As String, strDate1 As String
          Dim nCount           As Long
    
          nCount = DatePicker.Selection.BlocksCount
          If nCount > 0 Then
            'Control.Refresh
            Combo.Clear
            Combo.AddItem DatePicker.Selection.Blocks(0).DateBegin
            Combo.AutoComplete = True
            Combo.Text = DatePicker.Selection.Blocks(0).DateBegin
            strDate0 = DatePicker.Selection.Blocks(0).DateBegin
            strDate1 = DatePicker.Selection.Blocks(nCount - 1).DateEnd
          Else
            Combo.Clear
            Combo.AddItem strCurrentDate
            Combo.Text = strCurrentDate
            strCurrentDate = "?-?-?"
          End If
        Else
          Combo.Clear
          Combo.AddItem strCurrentDate
          Combo.Text = strCurrentDate
          strCurrentDate = "?-?-?"
        End If  
        Combo.ListIndex = 1
        cbMain_TrackingModeChanged CommandBar, False
        SendKeys vbCrLf
      End If
    End If

works fine for me. good luck
]]> Sat, 15 Feb 2014 14:15:37 +0000 http://forum.codejock.com/forum_posts.asp?TID=14773&PID=72265&title=add-datetimepicker-to-a-ribbonbar#72265 <![CDATA[Add DateTimePicker to a RibbonBar : Can&#039;t test it right now,...]]> http://forum.codejock.com/forum_posts.asp?TID=14773&PID=51099&title=add-datetimepicker-to-a-ribbonbar#51099 Author: JantjeKeizer
Subject: 14773
Posted: 19 July 2009 at 7:00pm

Can't test it right now, but in my experience setting the handle property of the actual control often causes problems.
Try to place it in a picturebox and give that handle.]]> Sun, 19 Jul 2009 19:00:58 +0000 http://forum.codejock.com/forum_posts.asp?TID=14773&PID=51099&title=add-datetimepicker-to-a-ribbonbar#51099 <![CDATA[Add DateTimePicker to a RibbonBar : Hi, I was just wondering in...]]> http://forum.codejock.com/forum_posts.asp?TID=14773&PID=51097&title=add-datetimepicker-to-a-ribbonbar#51097 Author: cmm2006
Subject: 14773
Posted: 19 July 2009 at 3:42pm

Hi,
I was just wondering in how to add a custom control (DateTimePikcer) to a ribbonbar. when I tried the following code:
 
    Set ItemCustom = GroupView.Add(xtpControlCustom, ID_VIEW_BY_DATE, "By Date:", True, True)
    ItemCustom.Handle = TimePicker.hWnd

 
the DateTimePicker control is shown on the ribbonbar with no problem when I first run the application, but the caption "By Date: " is not shown, plus when I click the dropdown arrow to select the date, the DateTimePicker is moved to the default location where was first place in the design mode.
Any idea why or how to get this to work?
Thank you
]]> Sun, 19 Jul 2009 15:42:29 +0000 http://forum.codejock.com/forum_posts.asp?TID=14773&PID=51097&title=add-datetimepicker-to-a-ribbonbar#51097