endre bilde i en picturebox [løst]

[alos]

Hei.

Jeg har et lite program hvor jeg har en picturebox. Jeg har også en label hvor det vises tallene 1 til 3.

Jeg har 3 bilder som skal vises i pictureboxen, et bilde for hvert tall.

så hvis

lbl1.caption = 1 så skal bilde 1 være i pictureboxen

lbl1.caption = 2 så skal bilde 2 være i pictureboxen

lbl1.caption = 3 så skal bilde 3 være i pictureboxen

Hvordan fikser jeg dette i VB6?

Endret 15. november 2005 av alos

[aadnk]

Du kan eksempelvis benytte tre skjulte bildebokser (sett Visible til False) og sette destinasjonsbildebosen til disse tre alt etter, via Set-kommandoen:

 

' Du kan evt. benytte en kontroll-array
Select Case lbl1.Caption
Case 1: Set picDest.Picture = picSource1.Picture
Case 2: Set picDest.Picture = picSource2.Picture
Case 3: Set picDest.Picture = picSource3.Picture
End Select

[Toa]

Eller bruk en imagelist, så slipper du masse skjulte kontroller.

[alos]

jeg løste det hele med en liten if løkke og følgende kode:

Picture1.Picture = LoadPicture("6r.bmp")