Page loading

Share your opinion
What do you think about gambaslinux.fr?
 
Interesting
It miss some informations
Excellent website
Results
WIDGETS GAMBAS
GAMBAS 3 SOFTWARES
TUTORIALS
Library
PICTUREBOX - Change picture in the code
sorry french only...

Charger une image dans le code


                      

journuit.jpgLa 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



Creation date : 12/05/2009 @ 13:03
Last update : 13/05/2009 @ 14:12
Category : PICTUREBOX
Page read 6830 times


Print the article Print the article


react.gifReactions to this article


Reaction #1 

by JeanYvon 12/11/2009 @ 14:54

D'après le code de gambix, c'est bien plus simple:
Picturebox1.picture = picture[monimage.xxx]
Pour ce faire il faut que l'image soit dans le répertoire de création de l'application.
Lors de la compilation tous les fichiers contenu dans ce répertoire sont compilés avec le logiciel. Nous n'avons peut etre pas de container d'image nous avons mieux nous avons gambas.
JY

QUICK MENU
SEARCH




LANGUAGE
COMPONENTS
Other
LANGUAGE
Where, who?
VISITS

   visitors

   visitors online

ARCHIVES GAMBAS 1/2
^ Top ^