GB3- Lancer un diaporama openoffice

Rédigé par spheris Aucun commentaire
Classé dans : gambas 3, Instructions, Tutoriels Mots clés : aucun

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.
smile

GB3- Utiliser la colorpalette

Rédigé par spheris Aucun commentaire
Classé dans : apprentisssage, Colorpalette, gambas 3, Tutoriel, Widget Mots clés : aucun

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



Téléchargez les source de ce projet ici

Merci pour votre attention

GB3- Decouverte du spinner

Rédigé par spheris Aucun commentaire
Classé dans : apprentisssage, gambas 3, Spinner, Tutoriels Mots clés : aucun


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.

undecided

GB3- Utiliser la ListEditor

Rédigé par spheris Aucun commentaire
Classé dans : apprentisssage, gambas 3, ListEditor, Tutoriels Mots clés : aucun

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 :

ListEditor1.Add("one")


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.

GB3- Utiliser le label comme bouton

Rédigé par spheris Aucun commentaire
Classé dans : Bouton, gambas 3, Tutoriel, Widget Mots clés : aucun

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

 

Téléchargez le projet code source ICI


Merci pour votre attention.