Toon posts:

[VBA] picturebox refresh probleem.

Pagina: 1
Acties:

Verwijderd

Topicstarter
deze keer kick ik niet

Wij moeten dus voor school iets in VBA maken...makkelijk zou je denken..
Ik maak nu een soort boter-kaas en eieren.
En als je nu op een picturebox klikt dan komt er een kruis in...
Tenminste dat is de bedoeling..
De code heb ik zo gedaan

code:
1
2
3
4
Private Sub pctLB_Click()
pickruis = "E:/documents and settings/..../../kruis.bmp"
pictLB.picture = LoadPicture(pickruis)
End sub


ja leuke code enzovoort..maar als ik het proggie start en ik klik op de picturebox gebeurt er niets. Maar als ik er dan met een andere window van bijv Msn messenger over heen schuif kun je het kruis zien, tenminste tot hoever je het scherm over je applicatie hebt geschoven. ...
Wat is er mis?

  • Super_ik
  • Registratie: Maart 2001
  • Laatst online: 17:06

Super_ik

haklust!

refresh je m ook wel daatwerkelijk?

8<------------------------------------------------------------------------------------
Als ik zo door ga haal ik m'n dood niet. | ik hou van goeie muziek


  • Arnaud
  • Registratie: Mei 2000
  • Laatst online: 02-08 18:07
Let op je namen (gebruik Option Explicit).

Je vangt het Click-event van pctLB (zonder i) af en verandert dan de picture-propertie van pictLB (met i).

Verwijderd

Topicstarter
Nee, hij laad een picture in de picturebox, maar hoe moet ik hem goed refreshen?

  • johnwoo
  • Registratie: Oktober 1999
  • Laatst online: 23:42

johnwoo

3S-GTE

Arnaud heeft gelijk, pctLB != pictLB
Daarnaast geeft LoadPicture een PictureDisp object terug, dat je met Set moet toewijzen aan een Picture property. Ofwel:
Visual Basic .NET:
1
Set pctLB.Picture = LoadPicture(pickruis)

Je kunt de picturebox geforceerd refreshen met (je raadt het al) pctLB.Refresh, maar dat zou niet nodig hoeven zijn. Bij mij werkt t prima met het regeltje code hierboven.

4200Wp ZO + 840Wp ZW + 1680Wp NW | 14xIQ7+ + 1xDS3-L | MTVenusE | HWP1


Verwijderd

Topicstarter
Oh, zo.. ja sorry, maar ik had het niet helemaal goed gecopy-paste. De namen klopte wel gewoon. Let op dit is VBA en niet VB,

code:
1
Set pctLB.Picture = Loadpicture(pickruis)


Ook deze werkt niet.
en pctLB.refresh had ik al geprobeerd en werkte ook niet, aangezien deze property helemaal niet bestond.
Pagina: 1