[VB6] Afbeeldingen toevoegen aan ImageList

[nenne]

Dag,

Ik zit me blind te staren op een stukje code: ik zie iets over het hoofd maar ik kan niet ontdekken wat dat is.

Ik heb een formulier met daarin een ImageList "ilApplications". Deze heb ik in de code geïnitialiseerd (Dim ilApplications As ImageList)

Nu wil ik via code een afbeelding uit mijn database halen en deze toevoegen aan de ImageList, als volgt:

Visual Basic:

ilApplications.ListImages.Add , , LoadPicture(rRst("ApplicationIcon"))

De foutmelding die ik echter krijg is: "Error 91: object variabele or with block not set"

Ik kan de oorzaak van deze melding niet achterhalen.

Anybody?

[RobIII]

En je weet zeker dat je een afbeelding in dat record in dat veld hebt? En dat je uberhaupt records hebt?

[nenne]

RobIII schreef op dinsdag 04 januari 2005 @ 20:07:
En je weet zeker dat je een afbeelding in dat record in dat veld hebt? En dat je uberhaupt records hebt?

Duh, de recordset bevat de string C:\test.bmp

[nenne]

Ik heb hier nog eens de hele code neergezet, misschien zien jullie de fout:

Visual Basic:

Private Sub Form_Load()

  Dim x As Long
  Dim sSql As String
  Dim rRst As New ADODB.Recordset
  Dim ilApplications As ImageList

  'Databaseconnectie maken:
  modDatabaseConnectie.openDatabase

  'SQL-statement:
  sSql = "select ApplicationName" & _
          ", ApplicationExe" & _
          ", ApplicationIcon" & _
          " from Applications"
                    
  'SQL-statement uitvoeren:
  rRst.Open sSql, modDatabaseConnectie.gConn, adOpenStatic, adLockOptimistic
  
  'Afbeeldingen in de ImageList invoegen:
  For x = 0 To rRst.RecordCount - 1
    ilApplications.ListImages.Add , , LoadPicture(rRst("ApplicationIcon"))
    
    'Naar volgende record navigeren:
    rRst.MoveNext
  Next x

  'Sluiten:
  rRst.Close
  'Opruimen:
  Set rRst = Nothing

  'De afbeeldingen uit de ImageList halen:
  lvApplications.Icons = ilApplications
  lvApplications.View = lvwIcon

  'Databaseconnectie verbreken:
  modDatabaseConnectie.closeDatabase

End Sub

[ Voor 8% gewijzigd door nenne op 04-01-2005 20:44 ]

[RobIII]

nenne schreef op dinsdag 04 januari 2005 @ 20:10:
[...]


Duh, de recordset bevat de string C:\test.bmp

Jij bent een mooie:

nenne schreef op dinsdag 04 januari 2005 @ 20:02:
Nu wil ik via code een afbeelding uit mijn database halen en deze toevoegen aan de ImageList, als volgt:

En als je iets wil toevoegen aan je post gebruik je de edit knop en schop je je topic niet opnieuw omhoog.

En ik weet niet of je het in de gaten hebt, maar ik probeer je te helpen... En nee, niemand gaat hier een lap code voor je debuggen. En wat mij betreft mag je zelf je fout nu gaan zoeken. (En dan ben ik toch nog zo'n lul die een tip na geeft : Loop 1 voor 1 je objecten uit de regel die fout gaat na. Geheid 1 van die objecten (je Recordset of je Imagelist, OF je Listimages is niet goed) En anders ga je uit van een default property van je recordset (ik mis .fields en .value) en heeft 'ie daar problemen mee.

code:

ImageList1.ListImages.Add , , LoadPicture("c:\bla.jpg")

werkt bij mij gewoon, dus het probleem lijkt me te zitten in rRst("ApplicationIcon") dus.

Overigens zie ik je alleen maar topics starten en zelden iemand helpen... Probeer dan ook wat constructiever te zijn als iemand je helpt dan "Duh....". Zoals je nu bezig bent maak je niet erg snel vrienden.

[ Voor 76% gewijzigd door RobIII op 04-01-2005 23:23 ]

[wallywally]

Moet dat application icon niet zonder " " aanhalingstekens?

[nenne]

RobIII schreef op dinsdag 04 januari 2005 @ 23:12:
blaat blaat blaat.

RobIII = moderator "van beroep"?

[sopsop]

Moet het niet

Visual Basic:

Dim ilApplications As New ImageList

zijn?

[DukeMan]

boppert schreef op woensdag 05 januari 2005 @ 11:40:
Moet het niet

Visual Basic:

Dim ilApplications As New ImageList

zijn?

idd, en dan voor de zekerheid nog

Visual Basic:

Set ilApplications = New ImageList

nenne schreef op dinsdag 04 januari 2005 @ 20:43:
Ik heb hier nog eens de hele code neergezet, misschien zien jullie de fout:

Visual Basic:

....

Als dit de hele code is, waarom heb je dan een imagelist die je declareert in je sub? Deze is dan niet bekend voor je listview, dus krijg je alsnog geen afbeeldingen te zien??? (correct me if i'm wrong)

[ Voor 44% gewijzigd door DukeMan op 05-01-2005 12:34 ]

[nenne]

NTGiant schreef op woensdag 05 januari 2005 @ 12:31:
Als dit de hele code is, waarom heb je dan een imagelist die je declareert in je sub? Deze is dan niet bekend voor je listview, dus krijg je alsnog geen afbeeldingen te zien??? (correct me if i'm wrong)

True, true... de code is nog niet volledig, maar ik kwam in dit stadium al de eerdergenoemde error tegen, dus wilde ik deze eerst wegpoetsen voordat ik verder zou gaan...

[Janoz]

Als je het niet op prijst stelt dat mensen tijd in je steken dan hoef je hier je vragen niet te stellen.