[VB6] Picture uitlezen uit OCX

[lacobo]

Ben een OCX aan 't bouwen waarin een imgList 1073 plaatjes bevat die zichtbaar gemaakt moeten kunnen worden. Onderstaande werkt leuk!

code:

Public Sub IconShow(Picnr As Integer)
    imgIcon.Picture = imgList.ListImages(Picnr + 1).Picture
End Sub

Plaatje verschijnt in een voorgesizede imagebox, bij het aanroepen van de control.Iconshow.
Maar ik moet soms wel 20 of meer van die plaatjes tonen, en na 7 houdt VB 't voor gezien. Dit komt omdat iedere kopie van de control uit deze ocx maar liefst 7 MB geheugenruimte inneemt (ocx is 2.5 MB). Dus dan maar een kopie van 't gevonden plaatje in een ordinaire imagebox plaatsen in de applicatie.

Vraag: Hoe maak ik nu een .Picture optie in mijn gemaakte OCX waar 't gevonden plaatje in hangt, of hoe kan ik die imgIcon Image control gebruiken voor een Image.Picture = Control.ImgIcon.Picture actie vanuit mijn OCX?

Heb de search al gebruikt, Google etc. Niets te vinden over plaatjes uitlezen uit OCX.

[lacobo]

Een schopje. Iemand enig idee? Heb al geprobeerd een public picture bij runtime aan te maken, maar ook die is in een ocx control niet te zien.

[Gerco]

In mijn captionbutton control kun je dit afkijken. Je moet een property maken van het type StdPicture, zie deze file:

quote: http://svn.gdries.com/pub...Button/cCaptionButton.ctl

Public Property Get Picture() As StdPicture
...
End Property
Public Property Set Picture(p As StdPicture)
...
PropertyChanged "Picture"
End Property

Je moet ook een reference in je project opnemen naar 1 of andere library. Zie daarvoor de project file op http://svn.gdries.com/public/VisualBasic/CaptionButton

[lacobo]

Top! 'k Ga 't vanavond uitproberen.

Bedankt alvast.

[lacobo]

Nou Gerco, 't werkt helemaal! Uiteindelijk was dit voldoende:

code:

Public Property Get Picture() As StdPicture
    Set Picture = imgIcon.Picture
End Property

Dank je voor 't voorbeeld, nu kan ik door!

Bert.