Codejock Developer Community : [SOLVED] TaskDialog doesn't support automation?

[SOLVED] TaskDialog doesn't support automation? : Never mind - it appeared to be...

Thu, 06 Oct 2011 09:50:51 +0000

Author: jpbro
Subject: 18254
Posted: 06 October 2011 at 9:50am

Never mind - it appeared to be a problem with my license information (forgot newline characters between lines). Problem solved.

[SOLVED] TaskDialog doesn't support automation? : Note: I'd rather not add...

Thu, 06 Oct 2011 09:18:30 +0000

Author: jpbro
Subject: 18254
Posted: 06 October 2011 at 9:18am

Note: I'd rather not add a hidden form with just a TaskDialog if at all possible

[SOLVED] TaskDialog doesn't support automation? : I'm still trying to get the...

Thu, 06 Oct 2011 09:16:25 +0000

Author: jpbro
Subject: 18254
Posted: 06 October 2011 at 9:16am

I'm still trying to get the CreateObject method to work, but it is failing on Windows 7 - has any body got this working?

Whether I've added the Suite Controls OCX as a Reference or as a Component, I get errors. In the case of Reference, the error is ActiveX can't create component, in the case of Component, the error is Type Mismatch Error.

My current code:


Public Function libnewTaskDialog() As XtremeSuiteControls.TaskDialog
   Static s_LicenseSet As Boolean
   
   On Error GoTo ErrorHandler

   If Not s_LicenseSet Then
      SuiteControlsGlobalSettings.License = 
      s_LicenseSet = True
   End If

   Set libnewTaskDialog = CreateObject("Codejock.TaskDialog." & XtremeSuiteControls.Version)   
End Function

Thanks for any help/advice.

[SOLVED] TaskDialog doesn't support automation? : Aaron wrote:Hi, Gibra: I...

Tue, 24 May 2011 17:20:11 +0000

Author: gibra
Subject: 18254
Posted: 24 May 2011 at 5:20pm

Aaron wrote:

Hi,

Gibra:

I tried on XP and in IDE and exe run properly

Dim oTaskDialog As Object

    Set oTaskDialog = CreateObject("Codejock.TaskDialog." & XtremeSuiteControls.Version)
          oTaskDialog.ContentText = "test"
          oTaskDialog.ShowDialog

Then?

I specified that doesn't work on Windows 7 64bit.

My customer also own Windows 7 64bit.

[SOLVED] TaskDialog doesn't support automation? : Why declare as object? You can...

Tue, 24 May 2011 16:45:11 +0000

Author: JantjeKeizer
Subject: 18254
Posted: 24 May 2011 at 4:45pm

Why declare as object? You can still embed the typelib and create the object dynamically against the hard referenced variable.


Dim bla as TaskDialog
Set bla = CreateObject("Codejock.TaskDialog." & XtremeSuiteControls.Version)

You'll need to recompile anyway when you upgrade your Codejock for the next reason, which is probably also why it only works on your dev machines:

You need to include license info when creating Codejock controls dynamically via the Globalsettings object.

Also, this way you'll have your intellisense back.

[SOLVED] TaskDialog doesn't support automation? : jpbro wrote:I did declare it...

Tue, 24 May 2011 14:38:31 +0000

Author: Aaron
Subject: 18254
Posted: 24 May 2011 at 2:38pm

jpbro wrote:

I did declare it as a module level variable, same problem - did you try running the EXE on a computer that hasn't had the suite installed using the Codejock installer (that is, installed using your own installer)? I don't have a problem when I run compiled on my development machine, just on one of my test deployment machines.

Hi Jason,

I haven't installed V15.0.2 on my Office PC so if I register only SuiteControls.OCX on that PC (registering is enough?) you say it won't work? OK, I will try that and report back inhere.

Thanks

[SOLVED] TaskDialog doesn't support automation? : I did declare it as a module level...

Tue, 24 May 2011 14:19:14 +0000

Author: jpbro
Subject: 18254
Posted: 24 May 2011 at 2:19pm

I did declare it as a module level variable, same problem - did you try running the EXE on a computer that hasn't had the suite installed using the Codejock installer (that is, installed using your own installer)? I don't have a problem when I run compiled on my development machine, just on one of my test deployment machines.

[SOLVED] TaskDialog doesn't support automation? : Hi, Gibra: I tried on...

Tue, 24 May 2011 13:24:38 +0000

Author: Aaron
Subject: 18254
Posted: 24 May 2011 at 1:24pm

Hi,

Gibra:

I tried on XP and in IDE and exe run properly

Dim oTaskDialog As Object

    Set oTaskDialog = CreateObject("Codejock.TaskDialog." & XtremeSuiteControls.Version)
          oTaskDialog.ContentText = "test"
          oTaskDialog.ShowDialog

Jason:

Did you declare object as "global" ?

If you create object it's lifecycle is within the function you declare the object. My best guess would be that "Windows Garbage Collector" destroying the object right after the function or sub ends

    Set oPopup = CreateObject("Codejock.PopupControl." & XtremeSuiteControls.Version)
        oPopup.ShowDelay = 5000
        oPopup.Animation = xtpPopupAnimationFade
        oPopup.AnimateDelay = 15000
        oPopup.Show

        'this will prevent the popupControl from closing immediately when function or sub ends

'if you comment MsgBox the Popup control won't show (maybe as a flicker)

MsgBox ""

Option Explicit
Dim oPopup As Object 'This would hold the object as long as you don't destroy it

Private Sub Command1_Click()

    Set oPopup = CreateObject("Codejock.PopupControl." & XtremeSuiteControls.Version)
         oPopup.ShowDelay = 5000
          oPopup.Animation = xtpPopupAnimationFade
         oPopup.AnimateDelay = 15000
         oPopup.Show

End Sub

And again both run properly in IDE and exe

[SOLVED] TaskDialog doesn't support automation? : Yeah, I'm using a PopupControl...

Tue, 24 May 2011 09:52:13 +0000

Author: jpbro
Subject: 18254
Posted: 24 May 2011 at 9:52am

Yeah, I'm using a PopupControl on a form now too - unfortunately not the same as creating it from code only, but I guess it will have to do.

[SOLVED] TaskDialog doesn't support automation? : However I solved the problem using...

Tue, 24 May 2011 09:15:33 +0000

Author: gibra
Subject: 18254
Posted: 24 May 2011 at 9:15am

However I solved the problem using the TaskDialog1 control contained in my frmMain.

Public Sub Main()

Dim oTaskButton As TaskDialogCommonButtons
Dim oTaskDialog As Object

' this doesn't work

Set oTaskDialog = CreateObject("Codejock.TaskDialog." & XtremeSuiteControls.Version)

'this work

Set oTaskDialog = frmMain.TaskDialog1
With oTaskDialog

' my code

End With

End Sub