| 1 | |
| Auteur | Messages |
|---|---|
| Admin | #1 Posté le 27/12/2009 à 22:03:00 |
| Bonjour à tous, Dans mon projet de commande du port //, lorsque un capteur est activé, je souhaiterai utiliser une image png qui représente une led en fonctionnement et une autre lorsque la led est éteinte. J'ai trouvé l'exemple en Gambas BLIGHTS : Une variable est crée : DIM diode AS PictureBox C'est ce PictureBox qui me pose problème. C'est pas dans les type de données normales : gambasdoc.org/help/lang/type?fr Je trouve bizarre ce type de variable, pouvez-vous m'expliquer SVP ? Bonne journée à tous. Pierre | |
| Admin | #2 Posté le 27/12/2009 à 22:03:00 |
| Salut, Tu as lus ça je suppose : http://gambaslinux.eg2.fr/articles.php?lng=fr&pg=120 mais je te le met au cas ou... | |
| Admin | #3 Posté le 27/12/2009 à 22:04:00 |
| Bonjour Manu, NON J'avais même pas lu !!! Merci. j'examine ça ce soir Pierre | |
| Admin | #4 Posté le 27/12/2009 à 22:04:00 |
| Tu ne l'avais pas vu ? pourtant on ne peut pas passer à coté d'un site internet aussi bien fait!   | |
| Admin | #5 Posté le 27/12/2009 à 22:05:00 |
| Je connais très bien ton site , félicitations mais, il y beaucoup (bien heureusement d'exemples) et celui là m'avais échapé Merci Pierre  | |
| Admin | #6 Posté le 27/12/2009 à 22:06:00 |
| PictureBox n'est pas un type de variable ... C'est une classe qui représente un controle. en faisant Dim hMypb as PictureBox hMyPb est un instance de picturebox ... en gros hMyPb est une PictureBox PictureBox est un controle qui peu contenir une image . http://gambasdoc.org/help/comp/gb.qt/picturebox?fr Par exemple si je veut ajouter Dynamiquement une picture box a un formulaire ... Mieux encore dans un projet faire du tout dynamique : dans un module MMain.module: Private hMyForm as Form Private hMyPicBox as PictureBoax Public sub Main() 'Creer le formulaire hMyForm = New Form as "form" 'Le formulaire arrange ses enfant dans toute sa surface hMyForm.Arrangement = arrange.Fill 'Creer la pictureBox et l'ajouter au formulaire hMyPicBox = New PictureBox (hMyForm) as "MyPicBox" hMyPicBox.Expand = true 'Backgroud en Jaune hMyPicBox.BackColor = Color.Yellow End Public Sub MyPicBox_Enter() 'Changer la couleur quand la sourie est au dessus LAST.BackColor = Color.Blue End Public Sub MyPicBox_Enter() 'Changer la couleur quand la sourie n'est plus au dessus LAST.BackColor = Color.yellow End Public Sub MyPicBox_Click() Me.Close End Bon J'espère ne pas avoir fait de fautes de frappe Comme on dit, Gambas, il y a moins bien, mais c'est payant ! | |
| Admin | #7 Posté le 27/12/2009 à 22:06:00 |
| Merci Gambix pour ton exemple, encore une chose de réglée Par contre sur l'exemple du site, il manque les bontons lorsque l'on télécharge l'exemple ? Bon weekend Pierre | |
| Admin | #8 Posté le 27/12/2009 à 22:06:00 |
| Je ne comprend pas bien ta question pierre, peux tu préciser s'il te plait ? | |
| Admin | #9 Posté le 27/12/2009 à 22:07:00 |
| J'ai téléchargé le fichier et j'ai pas les boutons changer et fin ? Mais j'ai compris le truc et ça tourne ou ça change l'image | |
| Admin | #10 Posté le 27/12/2009 à 22:07:00 |
J'ai du louper un chapitre, de quel fichier parles tu ?  | |
| Admin | #11 Posté le 27/12/2009 à 22:08:00 |
| Ici http://gambaslinux.eg2.fr/articles.php?lng=fr&pg=120 A+ Pierre | |
| Admin | #12 Posté le 27/12/2009 à 22:08:00 |
| Il semble qu'avec les vielles version de gb, il y a un bug avec les coordonnées des widgets et elles sont différentes en gtk ou qt. Essaie de choisir le composant gb.qt et non gb.gui. Car a l'origine ce petit exemple est fait pour qt. | |
| 1 | |