http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 08:59:42 +0000 Wed, 30 Aug 2006 15:50:18 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=4925 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=4925&PID=15344&title=datepicker-daymetrics#15344 Author: sserge
Subject: 4925
Posted: 30 August 2006 at 3:50pm

You'll have to catch DayMetrics event, and this could be done only when you declare your DatePicker control globally. This could be whether simple adding control to the form not visible, and then making it visible when needed; or try declaring it as "Dim WithEvents pDatePicker As DatePicker" and catch DayMetrics.

--
WBR,
Serge
]]> Wed, 30 Aug 2006 15:50:18 +0000 http://forum.codejock.com/forum_posts.asp?TID=4925&PID=15344&title=datepicker-daymetrics#15344 http://forum.codejock.com/forum_posts.asp?TID=4925&PID=15341&title=datepicker-daymetrics#15341 Author: jcollier
Subject: 4925
Posted: 30 August 2006 at 1:56pm

In the VB6 DatePicker Sample, how would I go about using the DayMetrics with the wndLabel_PopUp control?

I have a similar function in my app and I would like to change the weekend days to Red but I don't know how to get to the DayMetrics with this function.

Below is the code in the MouseDown event for the text box:


Dim pDatePicker
    Set pDatePicker = CreateObject("Codejock.DatePicker." + XtremeCalendarControl.Version)
   
    If Not pDatePicker Is Nothing Then
   
        Dim pixX As Long, pixY As Long, pixWidth As Long, pixHeight As Long
       
        pixX = x / Screen.TwipsPerPixelX
        pixY = y / Screen.TwipsPerPixelY
               
        pDatePicker.GetMinReqRect pixWidth, pixHeight, 2, 2

       
        If pDatePicker.ShowModalEx(pixX, pixY, pixWidth, pixHeight, wndLabel_PopUp.hwnd) Then
       
            Dim strDate0 As String, strDate1 As String
            Dim nCount As Long
           
            nCount = pDatePicker.Selection.BlocksCount
            If nCount > 0 Then
                cmbPopUp.Refresh
                cmbPopUp.Text = pDatePicker.Selection.Blocks(0).DateBegin
                                       
                strDate0 = pDatePicker.Selection.Blocks(0).DateBegin
                strDate1 = pDatePicker.Selection.Blocks(nCount - 1).DateEnd
               
                wndLabel_PopUp.Text = strDate0 & " - " & strDate1
            End If
       
        End If
    End If
]]> Wed, 30 Aug 2006 13:56:28 +0000 http://forum.codejock.com/forum_posts.asp?TID=4925&PID=15341&title=datepicker-daymetrics#15341