EXEC - Lancer un diaporama openoffice

Rédigé par spheris Aucun commentaire
Classé dans : Tutoriels, Instructions, gambas 3 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

Utiliser la colorpalette

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


A) Introduction

La colorpalette est un outils bien pratique pour accéder auxcouleurs que vous utilisez souvent.
Vous pouvez importer cet outil depuis la catégorie Chooser encliquant 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 sacouleur

Pour ajouter une couleurà la colorpalette il suffit de saisir cecode :

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 , maisil suffit de cliquer droit sur la couleur que vous voulez supprimeret un menu vous permet de l 'effacer.

Pour récupérer la couleur sélectionnée, il suffit de saisir :

Dim Mycolor As IntegerMycolor = 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 sources de ce projet ici

Merci pour votre attention
wink

Decouverte du spinner

Rédigé par spheris Aucun commentaire
Classé dans : Tutoriels, Spinner, gambas 3 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.

wink

Utiliser la listeditor

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


Aujourd 'hui nous partons à la découverte du Widget Listeditor.
Il est composé d 'une liste d 'items sélectionable un par un et touten 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 sesproprié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 widgetsclassiques.

A bientôt.
wink

Utiliser le label comme bouton

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


Aujourd 'hui pour notre exemple, nous allons nous intéresser àplusieurs astuces.
Je souhaite réaliser une application avec des labels qui ferontoffice de boutons de couleur.
Lorsque je passe dans le bouton, je souhaite qu 'il ait une autrecouleur de fond (noir par exemple) , puis lorsque je le quitte, jesouhaite 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 (lasouris rentre dans la surface du label)

Lorsque la souris rentre dans le label, la méthode ENTERest exécutée. Nous pourrons donc écrire le code à cet endroit.

B) L 'évènement LEAVE (lasouris quitte la surface du label)

Lorsque la souris quitte le label, la méthode LEAVEest exécutée. Nous pourrons donc écrire le code à cet endroit aussi.

C) La commande LAST.

Cette commande est vraiment pratique, elle est enquelque 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 laproprié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 labelavec 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 lapage de code color. comme l 'imageci-dessous :

width=


et vous verrez dans la documentation le code correspondant.

Cint vous permet de convertir enINTEGER la valeur présente dans le TAG.

D) La notion de groupe


Enfin, la notion de groupe est très importante en Gambas. Ellevous 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, cequi 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 commandeLAST comme tout à l 'heure.
Nous l 'afficherons dans une boite de message comme ceci :

Message.Info(Last.Text &amp  ,  &amp 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échargezle projet code source ICI


Merci pour votre attention.
wink

Fil RSS des articles