La Propriété .Picture

Aujourd 'hui nous allons aborder la « Propriété » .picture pour une FMain et une PictureBox.

L ' idée est de pouvoir charger une image et d ' en changer à volonté. Suivant les besoins. Un »clic » ou une minuterie.

D ' abord créons une Feuille Fmain un bouton CmdFin pour quitter et une minuterie TimerJourNuit pour changer l ' image de la feuille.

Une PictureBox PictureBoxChange pour les images et un bouton

CmdChanger pour changer l ' image de la PictureBox si l ' on clique dessus

Une deuxième PictureBox PictureBoxArbre pour y mettre une image d ' un arbuste à aller chercher dans un Dossier : ici Documents ( attention il faut l ' y mettre ) ( Gambas aime bien les multiples de 8 en Pixels pour les images )

Il faut quelques variables pour faire avancer le tout.

Deux Variables Booléennes pour les images et la déclaration des images à charger comme : Public LaNuit As Picture ou Dim LeJour As Picture

LeJour , LaNuit : c 'est le nom des images sans leur extention ( attention Gambas n ' aime pas du tout les espaces dans les noms )

' Gambas class file

PUBLIC JeChange AS Boolean

PUBLIC LaNuit AS Picture

PUBLIC LeJour AS Picture

PUBLIC Rimage AS Boolean

PUBLIC SUB Form_Open()

PictureBoxArbre.Picture = « « « Sur une seule ligne » »

Picture[user.home & /Documents/MonArbuste02.png ]

END

PUBLIC SUB CmdFin_Click()

QUIT

END

PUBLIC SUB TimerJourNuit_Timer()

IF JeChange THEN

FMain.Picture = Picture[ LaNuit.png ]

ELSE

FMain.Picture = Picture[ LeJour.png ]

END IF

JeChange = NOT JeChange

END

PUBLIC SUB CmdChanger_Click()

DIM DanseDame02 AS Picture

DIM DanseDame AS Picture

IF Rimage THEN

PictureBoxChange.Picture = Picture[ DanseDame.png ]

ELSE

PictureBoxChange.Picture=Picture[ DanseDame02.png ]

END IF

Rimage = NOT Rimage

END

Merci à jacques pour sa contribution.
Voici les sources de l 'application à télécharger ICI

);