Suite Pro - CodeJock ImageManager question

Print Page | Close Window

CodeJock ImageManager question

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Suite Pro
Forum Description: Topics Related to Codejock Suite Pro
URL: http://forum.codejock.com/forum_posts.asp?TID=8124
Printed Date: 01 November 2024 at 12:39am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: CodeJock ImageManager question

Posted By: eugene_v
Subject: CodeJock ImageManager question
Date Posted: 22 September 2007 at 12:10am

Hello everyone!

I am trying to replace VB's ImageList with CodeJock ImageManager. I get "Object variable not set" error. Variable TrayIcon remains empty.

Can you show me where is my mistake in the following lines:


Dim TrayIcon As ImageManagerIcon
 
 
Set TrayIcon = imlMenuIcons.Icons.GetImage(ID_BUY_NOW_FROM_APP_MENU, 0)
TrayMenu.ItemPicture(1) = TrayIcon.CreatePicture(xtpImageNormal)

Eugene

Replies:

Posted By: SuperMario
Date Posted: 24 September 2007 at 3:49pm

What is TrayMenu?

Posted By: eugene_v
Date Posted: 24 September 2007 at 4:23pm

SuperMario wrote:

What is TrayMenu?

It's a 3rd party component from DBI-Tech. The ItemPicture property type is StdPicture. So, I just need to supply an StdPicture to it, by using the CreatePicture method of CodeJock ImageManager. But I don't see why it doesn't work.

-------------
Eugene V
A happy registered user of Xtreme SuitePro 2007 11.2.0 with VB6

Posted By: SuperMario
Date Posted: 24 September 2007 at 4:29pm

This worked for me:

    Dim mystdpic As StdPicture
    Set mystdpic = ImageManager.Icons.GetImage(100, 16).CreatePicture(xtpImageNormal)

    Picture1.Picture = mystdpic

Posted By: SuperMario
Date Posted: 24 September 2007 at 4:30pm

Note Picture1 is a standard picturebox control.

Posted By: eugene_v
Date Posted: 24 September 2007 at 9:17pm

SuperMario wrote:

This worked for me:

    Dim mystdpic As StdPicture
    Set mystdpic = ImageManager.Icons.GetImage(100, 16).CreatePicture(xtpImageNormal)

    Picture1.Picture = mystdpic

I am sorry, but there is no data type named StdPicture in VB. This cannot be compiled. Any ideas?

-------------
Eugene V
A happy registered user of Xtreme SuitePro 2007 11.2.0 with VB6

Posted By: eugene_v
Date Posted: 24 September 2007 at 9:23pm

Sorry, my mistake. You need to add a reference to "OLE Automation" in order to use this data type.

-------------
Eugene V
A happy registered user of Xtreme SuitePro 2007 11.2.0 with VB6