Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
PICTUREBOX - Changer une image dans le code
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



Date de création : 12/05/2009 @ 13:03
Dernière modification : 13/05/2009 @ 14:12
Catégorie : PICTUREBOX
Page lue 6502 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article


Réaction n°1 

par JeanYvon le 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

ACCES RAPIDE
RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^