Bonjour,
Pour lancer un diaporama openoffice depuis gambas, il suffit decréer un processus nommé en gambas PROCESS comme ceci :
Private $hprocess as Process
$hProcess = EXEC[ooffice ,-impress ,-show ,$sPath] FOR READ WRITE
Pour expliquer ce code il suffit de lancer la commande EXEC puisentre crochet l 'application à lancer, puis les paramètres séparéspar des virgules.
Plus généralement cette commande vous permettra de d 'exécuter deslogiciels externes à gambas.
Merci pour votre attention.
Un foule de super logiciels (principalement des jeux) a retrouver ici :
https://icculus.org/piga/
A visiter sans attendre, ce site vaut vraiment le détour.
Le site gambas-it.org est le site officiel de la communauté italienne de gambas.
Il y propose une multitude d'exmples ainsi qu'un forum gavés de ressources pour gambas.
A essayer sans attendre.
Logiciels en gambas 3 à télécharger ici :
https://www.gambas-it.org/wp/downloads/
La ColorPalette
A) Introduction
La colorpalette est un outils bien pratique pour accéder aux couleurs que vous utilisez souvent.
Vous pouvez importer cet outil depuis la catégorie Chooser en cliquant sur l'icone pipette :
B) Utilisation
Nous allons créer une petite application avec 3 widgets :
Une colorpalette : accès rapide aux couleurs
Un colorButton : Un bouton pour sélectionner une couleur
Un ColorChooser : Une palette complète pour sélectionner sa couleur
Pour ajouter une couleurà la colorpalette il suffit de saisir ce code :
ColorPalette1.Add(ColorButton1.Value)
ou pour ajouter la couleur en premier, ecrivez plutôt:
ColorPalette1.AddFirst(ColorButton1.Value)
Je n'ai pas trouvé le moyen d'effacer dans le code la couleur , mais il suffit de cliquer droit sur la couleur que vous voulez supprimer et un menu vous permet de l'effacer.
Pour récupérer la couleur sélectionnée, il suffit de saisir :
Dim Mycolor As Integer
Mycolor = ColorPalette1.Current
Voici le code de l'application :
Public Sub Form_Open()
Me.Center()
End
Public Sub bquit_Click()
Me.Close()
End
Public Sub badd1_Click()
ColorPalette1.Add(ColorButton1.Value)
End
Public Sub badd2_Click()
ColorPalette1.AddFirst(ColorChooser1.Value)
End
Merci pour votre attention
Le spinner permet d 'ajouter uneanimation pendant le traitement de votre application informantl 'utilisateur qu 'il doit patienter.
L 'utilisation en est tellement simple que je vous livre ce code:
Public Sub Form_Open()
Spinner1.Start()
Spinner1.Label = True
Spinner1.Value = 0.23
Spinner1.Foreground = Color.Yellow
Spinner1.Background = Color.Black
End
label est une propriété qui, passée à TRUE affiche le pourcentage renseignée dans VALUE.
Découverte du ListEditor
Aujourd'hui nous partons à la découverte du Widget Listeditor.
Il est composé d'une liste d'items sélectionable un par un et tout en bas un éditeur (ligne de texte) avec ses boutons Ajouter, supprimer, déplacer vers le haut et vers le bas.
A) Utilisation à partir du widget.
Comme signalé précédemment, il vous suffit d'écrire du texte dans 'l'éditeur' et de cliquer sur le bouton PLUS (ajouter)
B) Utilisation à partir du code.
Pour ajouter un item dans la liste, écrivez ce code :
Pour voir le texte de la ligne sélectionnée, utilisez ce code :
montexte = ListEditor1.Text
C) L'éditeur
L'éditeur est facilement paramétrable, vous pourrez modifier ses propriétés en utilisant le code ci dessous :
Un exemple, pour changer sa couleur de fond en jaune :
ListEditor1.Editor.Background = Color.Yellow
C'est à peu près tout ce qu'il faut savoir sur ce widget.
Tout le reste des fonctions ou propriétés héritent des widgets classiques.
A bientôt.
Utiliser la commande LAST et les groupes
Aujourd'hui pour notre exemple, nous allons nous intéresser à plusieurs astuces.
Je souhaite réaliser une application avec des labels qui feront office de boutons de couleur.
Lorsque je passe dans le bouton, je souhaite qu'il ait une autre couleur de fond (noir par exemple) , puis lorsque je le quitte, je souhaite qu'il reprenne sa couleur de fond initiale.
Et ceci sur 6 boutons comme le montre la photo ci dessus.
A) L'evènement ENTER (la souris rentre dans la surface du label)
Lorsque la souris rentre dans le label, la méthode ENTER est exécutée. Nous pourrons donc écrire le code à cet endroit.
B) L'évènement LEAVE (la souris quitte la surface du label)
Lorsque la souris quitte le label, la méthode LEAVE est exécutée. Nous pourrons donc écrire le code à cet endroit aussi.
C) La commande LAST.
Cette commande est vraiment pratique, elle est en quelque sorte la mémoire du dernier widget utilisée.
Vous pouvez ainsi récupérer plusieurs données comme :
Last.Tag = récupère le dernier texte présent dans la propriété TAG
Last.Text = récupère le dernier texte présent dans la propriété TEXT
Last.Background = récupère le dernier nombre présent dans la propriété BACKGROUND, etc...
Nous avons compris maintenant :
Dans la méthode ENTER, nous allons écrire ce code :
Last.background = Color.Black
Dans la méthode LEAVE, nous allons écrire ce code :
Last.background = CInt(Last.tag)
Pourquoi last.tag ?
J'ai au préalable renseigné la propriété TAB de chaque label avec le code couleur du label à l'origine.
Par exemple DARKGREEN correspond à la valeur integer : 32768.
Comment sais-je quel est son code couleur? tapez simplement dans la page de code color. comme l'image ci-dessous :
et vous verrez dans la documentation le code correspondant.
Cint vous permet de convertir en INTEGER la valeur présente dans le TAG.
D) La notion de groupe
Enfin, la notion de groupe est très importante en Gambas. Elle vous permet de réunir plusieurs widgets ensembles.
Dans la propriété GROUP de chaque label , renseignez un nom (ici bb )
Du coup un seul évènement sera créé pour l'ensemble des labels, ce qui allègera considérablement votre code.
E) Récupérer quel label a été cliqué.
Enfin, pour connaître quel bouton a été cliqué, utilisez la commande LAST comme tout à l'heure.
Nous l'afficherons dans une boite de message comme ceci :
Message.Info(Last.Text & "," & Last.tag)
Notez que pour le label, l'evènement click n'existant pas, nous utiliserons l'évènement mousedown.
Voici le code de cette application:
Public Sub bb_Enter()
Last.background = Color.Black
End
Public Sub bb_Leave()
Last.background = CInt(Last.tag)
End
Public Sub Form_Open()
Me.Center()
End
Public Sub bquit_Click()
Me.Close()
End
Public Sub bb_MouseDown()
Message.Info(Last.Text & "," & Last.tag)
End
Merci pour votre attention.
Bonsoir a tous.
Du fast checking sous gambas (vérification de fait sous gambas),oui ça existe.
Question importante: Est-ce-que Gambas est utile ou non, voici le thème de ce fast checking. Autant dire que les gens n 'ont vraiment rien d 'autre à faire, l 'article ici :
https://fr.tipsandtrics.com/basic-guide-gambas-763230