DTPicker in ReportControl |
Post Reply |
Author | |
cybeh
Groupie Joined: 27 December 2005 Location: Malaysia Status: Offline Points: 76 |
Post Options
Thanks(0)
Posted: 15 July 2006 at 2:11am |
Hi,
In my reporting control, I do have a drop down button which should let the user click and show the dt picker. nResult = Show_XTPDatePicker(nX, nY, dTDate) Private Function Show_XTPDatePicker(nX, nY, dTDate) As Long Show_XTPDatePicker = -1 On Error GoTo err1 Dim pDatePicker Dim dtDate0 Set pDatePicker = CreateObject("Codejock.DatePicker.9.81") If pDatePicker Is Nothing Then Exit Function End If pDatePicker.MaxSelectionCount = 1 Dim nWidth As Long, nHeight As Long pDatePicker.GetMinReqRect nWidth, nHeight, 1, 1 pDatePicker.SelectRange dTDate, dTDate pDatePicker.EnsureVisible dTDate Dim bResult As Boolean bResult = pDatePicker.ShowModalEx(nX, nY, nWidth + 4, nHeight + 4, wndReportControl.hwnd) Show_XTPDatePicker = 0 If bResult And pDatePicker.Selection.BlocksCount > 0 Then dtDate0 = pDatePicker.Selection.Blocks(0).DateBegin() If IsDate(dtDate0) Then dTDate = CDate(dtDate0) Show_XTPDatePicker = 1 End If Else If bResult And pDatePicker.Selection.BlocksCount = 0 Then dtDate0 = "1601-01-01" dTDate = CDate(dtDate0) Show_XTPDatePicker = 1 End If End If err1: End Function The code works fine at my machine, but not my client machine. I think there is some OCX missing. But, I do include all this in my InnoSetup Script Source: "D:\Coding\ProjectManagement\Package\Support\Codejock.TaskPanel.v9.81.ocx"; DestDir: "{sys}"; Flags: sharedfile regserver Source: "D:\Coding\ProjectManagement\Package\Support\Codejock.SuiteCtrls.v9.81.ocx"; DestDir: "{sys}"; Flags: sharedfile regserver Source: "D:\Coding\ProjectManagement\Package\Support\Codejock.Calendar.v9.81.ocx"; DestDir: "{sys}"; Flags: sharedfile regserver Source: "D:\Coding\ProjectManagement\Package\Support\Codejock.ShortcutBar.v9.81.ocx"; DestDir: "{sys}"; Flags: sharedfile regserver Source: "D:\Coding\ProjectManagement\Package\Support\Codejock.CommandBars.v9.81.ocx"; DestDir: "{sys}"; Flags: sharedfile regserver Source: "D:\Coding\ProjectManagement\Package\Support\Codejock.ReportControl.v9.81.ocx"; DestDir: "{sys}"; Flags: sharedfile regserver Can anyone tell me wut's missing? Please advice. Thanks in advance. |
|
SuperMario
Admin Group Joined: 14 February 2004 Status: Offline Points: 18057 |
Post Options
Thanks(0)
|
You need the license to use CreateObject:
Dim pDatePicker XtremeCalendarControl.License = "Calendar Control Copyright (c) 2003-2006 Codejock Software" & vbCrLf & "PRODUCT-ID: Codejock.Calendar.ActiveX.v10.2" & vbCrLf & "VALIDATE-CODE: XXX-XXX-XXX-XXX" Set pDatePicker = CreateObject("Codejock.DatePicker." + XtremeCalendarControl.Version) Also note if you are still using 9.81 then you will need to change the version number and copyright years |
|
Post Reply | |
Tweet
|
Forum Jump | Forum Permissions You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |