Popup Calendar

Thanks(0)

Quote

Topic: Popup Calendar
Posted: 15 January 2007 at 10:04am

Great! Now I know the problem.

This works too without having to write a new function:

Set pDatePicker = CreateObject("Codejock.DatePicker." + Replace(GS.Version, "10.4.0", "10.4"))

Thanks for the help.

sserge

Moderator Group

Joined: 01 December 2004
Status: Offline
Points: 1297

Post Options

Quote sserge

Thanks(0)

Quote

Posted: 13 January 2007 at 2:49pm

Hi,

The problem is that GS.Version returns string like "10.4.0".
We have to remove the last '.0'


CreateObject("Codejock.DatePicker." & XTPVersionTrim(GS.Version))
 
Private Function XTPVersionTrim(strVersionFull As String) As String
    Dim i As Long, j As Long
    Dim strVer As String
    
    Dim arVersion
    arVersion = Split(strVersionFull, ".")
 
    For i = UBound(arVersion) To LBound(arVersion) Step -1
        If arVersion(i) <> 0 Then
            
            For j = LBound(arVersion) To i
                If Len(strVer) > 0 Then
                    strVer = strVer + "."
                End If
                strVer = strVer + arVersion(j)
            Next
            
            XTPVersionTrim = strVer
            Exit Function
        End If
    Next
End Function

Actually, looks like this is a bit inconsistent

and we'll review behavior of this method for future versions.

--
WBR,
Serge

jcollier

Senior Member

Joined: 15 February 2006
Status: Offline
Points: 250

Post Options

Thanks(0)

Quote

Posted: 12 January 2007 at 3:42pm

Ok the following code still generates the error on the Set pDatePicker line

Dim pDatePicker

    Dim GS As New CalendarGlobalSettings
    GS.License = "Calendar Control Copyright (c) 2003-2006 Codejock Software" + vbCrLf + "PRODUCT-ID: Codejock.Calendar.ActiveX.v10.4" + vbCrLf + "VALIDATE-CODE: XXX-XXX-XXX-XXX"

    Set pDatePicker = CreateObject("Codejock.DatePicker." + GS.Version)

sserge

Moderator Group

Joined: 01 December 2004
Status: Offline
Points: 1297

Post Options

Quote sserge

Thanks(0)

Quote

Posted: 12 January 2007 at 8:12am

The following code works pretty fine for me:


Private Sub Form_Initialize()
    Dim GS As New CalendarGlobalSettings
    GS.License = "Calendar Control Copyright (c) 2003-2006 Codejock
Software" + vbCrLf + _
                 "PRODUCT-ID: Codejock.Calendar.ActiveX.v10.4" + vbCrLf + _
                 "VALIDATE-CODE: XXX-XXX-XXX-XXX"

    
End Sub

--
WBR,
Serge

elmsoftware View Drop Down

Groupie

Joined: 21 November 2006
Status: Offline
Points: 23

Post Options

Quote elmsoftware

Thanks(0)

Quote

Posted: 11 January 2007 at 2:49pm

Do you need to use...CalendarGlobalSettings.License?

CalendarGlobalSettings.License = [Your license string]

jcollier

Senior Member

Joined: 15 February 2006
Status: Offline
Points: 250

Post Options

Thanks(0)

Quote

Posted: 10 January 2007 at 5:15pm

You're right, it should. But it doesn't. I also tried changing the copyright year to 2007 but that didn't help either.

sserge

Moderator Group

Joined: 01 December 2004
Status: Offline
Points: 1297

Post Options

Quote sserge

Thanks(0)

Quote

Posted: 10 January 2007 at 5:09pm

String "10.4.0" is not correct. Simply remove the last zero with dot, and it should work.

--
Regards,
Serge

jcollier

Senior Member

Joined: 15 February 2006
Status: Offline
Points: 250

Post Options