Suite Pro - Tab Control - using a picture

Tab Control - using a picture

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=10923
Printed Date: 07 May 2025 at 7:26am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Tab Control - using a picture

Posted By: joolz
Subject: Tab Control - using a picture
Date Posted: 05 June 2008 at 12:44pm

Hi Guys

We have had the COM Suite for about a year and have really only just got round to using it!

Anyway today I am replacing our VB6 non-unicode controls with Codejock versions (so I can support Japanese customers)

I have a Microsoft SSTAB tab control and on one of the tabs I have a picture instead of text (because its a language implications)..... Works well but is NOT unicode :-(

I would like to do this with the Codejock Tab control but have been unable to do so...

I.E I don't want a tab title such as 'my tab'.... I want a picture on the tab

The helpfile implies that it can be done, but i'm more of a 'try by example' kinda guy..... the help is... well, not much help TBH and there are no examples.

Anyone done this and would like to share the secret?

Many thanks

Julian

Replies:

Posted By: jpbro
Date Posted: 05 June 2008 at 1:45pm

You need to make sure that the ShowIcons property of the TabControl PaintManager is True, and then you can add icons to the Icons property and set the icon for specific tab pages...For example:


Private Sub Form_Load()
   With Me.TabControl1
      .PaintManager.ShowIcons = True    ' Make sure TabControl shows icons
      .Icons.LoadBitmap "<PATH TO IMAGE>", 101, xtpImageNormal    ' Add an icon to the TabControl
      .Item(0).Image = 101    ' Attach an icon to the first tab page (0 based)
   End With
End Sub

-------------
Product: Xtreme SuitePro (ActiveX) version 16.2.6
Platform: Windows XP - SP3

Language: Visual Basic 6.0 SP6

Posted By: joolz
Date Posted: 06 June 2008 at 2:25pm

Hey fantastic... thanks, I'll give it a go

So, you can't do this at design time ..... pity, because there is a nice Custom property box where this could be included...

Thanks again

Posted By: joolz
Date Posted: 08 June 2008 at 10:43am

Hi.... still having a few 'issues' here :-)

I can get it to display an icon from disc but not from an Imagelist

(ps my CJ Tab is called SSTab1 because its a direct replacement for the 'old' SSTab)

So...

SSTab1.Icons.LoadBitmap App.Path & "\graphics\spanner6.bmp", 101, xtpImageNormal

SSTab1.Item(1).Image = 101

This works fine.... however, I don't want to load the image from the HD... I want to load it from a standard Image list .....

Something like,

SSTab1.Icons.LoadBitmap ImageListTab.ListImages(1).picture, 101, xtpImageNormal

This does not work despite the image being in the Imagelist...

As a test the command

Picture1.picture = ImageListTab.ListImages(1).picture .... works fine

Any ideas guys?

Thanks

Julian

Posted By: Bernie
Date Posted: 08 June 2008 at 8:00pm

My way is stupid but works.

After your code:Picture1.picture = ImageListTab.ListImages(1).picture

SavePicture to the disk and then Load from the disk:

SSTab1.Icons.LoadBitmap App.Path & "\graphics\spanner6.bmp", 101, xtpImageNormal

-------------
Bernie Ho, Planning Manager + IELTS specialist + part-time programmer
Taiwan, R.O.C

Posted By: jpbro
Date Posted: 08 June 2008 at 8:07pm

Hi joolz,

Try this:


SSTab1.Icons.AddIcon ImageListTab.ListImages(1).Picture, 101, xtpImageNormal



SSTab1.Icons.AddIcon ImageListTab.ListImages(1).ExtractIcon, 101, xtpImageNormal

They both seem to work, but I'm not sure what the difference is.

-------------
Product: Xtreme SuitePro (ActiveX) version 16.2.6
Platform: Windows XP - SP3

Language: Visual Basic 6.0 SP6

Posted By: joolz
Date Posted: 10 June 2008 at 5:13am

YES.........

the SSTab1.Icons.AddIcon ImageListTab.ListImages(1).ExtractIcon, 101, xtpImageNormal

Worked....

Funny though, the other method didn't work for me

SSTab1.Icons.AddIcon ImageListTab.ListImages(1).Picture, 101, xtpImageNormal

Many thanks

Oh and Bernie.... very sneaky method, that certainly would have worked, but for obvious reasons I will go with the 'internal' command

Thanks again guys....

I'm just getting to grips with the CJ stuff and its great.... TBH though I am finding the help a bit of a trial and its certainly not as good as the software which is a great shame.

Posted By: chrisABC
Date Posted: 10 June 2008 at 7:48am

I agree about the help. But the way I see it, would you rather have good software and poor help, or excellent help and ........?? So I think they got it the right way round.

I have only just started using SuitePro so I am having to learn all about it from the sample code. One thing I've noted is that the help files often contain the same code (as examples) but with lots of useful comments added. A bit of cut and paste (from help file to sample code) makes the samples more readable. (might be an idea, CodeJock??),

And of course we have this excellent forum to ask question in....

-------------
Chris (Manchester, UK) -- www.abc6.co.uk ---- Using CodeJock ActiveX Suite 13.1.0 with Windows8, VB6 SP6

Posted By: Aaron
Date Posted: 10 June 2008 at 9:45am

joolz wrote:

YES.........

the SSTab1.Icons.AddIcon ImageListTab.ListImages(1).ExtractIcon, 101, xtpImageNormal

Worked....

Funny though, the other method didn't work for me

SSTab1.Icons.AddIcon ImageListTab.ListImages(1).Picture, 101, xtpImageNormal

Hi,

This the contents of the help with LoadIcon

Description

Used to add an icon to the ImageManagerIcons collection of icons from the Handle of the icon.

Syntax

Public Sub AddIcon( _
   ByVal  mk:@MSITStore:C:\Program%20Files\Codejock%20Software\ActiveX\Xtreme%20SuitePro%20ActiveX%20V12.0\Help\SymbolReference.chm::/XtremeSuiteControls~ImageManagerIcons~AddIcon.html# -  - Command  As Long, _
   ByVal  mk:@MSITStore:C:\Program%20Files\Codejock%20Software\ActiveX\Xtreme%20SuitePro%20ActiveX%20V12.0\Help\SymbolReference.chm::/XtremeSuiteControls~ImageManagerIcons~AddIcon.html# -  - XTPImageState  _
)

Parameters

Handle
Used to add an icon to the collection of icons from the Handle of the icon.
Command
The id that will be used to identify the icon in the collection of icons. This can be any positive (non-zero) number.

SSTab1.Icons.AddIcon ImageListTab.ListImages(1).Picture.Handle, 101, xtpImageNormal

That's why your option didn't work

-------------
Product: Xtreme SuitePro (ActiveX) version 15.0.2
Platform: Windows XP (32bit) - SP 2
Language: Visual Basic 6.0

Zero replies is not an option....

Posted By: joolz
Date Posted: 10 June 2008 at 8:17pm

>>Picture.Handle

Yup, its all there...... I guess its just a case of getting a 'hwnd' on the way the CJ code help works

PS Chris .... fully agree about Code vs Help ... and I am cr*p at writing help myself...

What we do here is get one of the Developers who has not worked on a particular code section to write the help for it (so they are newbies)..... That way you invariably get a help file that Users can actually use and get up to speed quickly.... We also use Shockwave more than html thesedays to get over concepts.

Anyway.... great forum