Gambas France BETA


Pas de compte ? Incription

Changer le curseur

Ce sujet est résolu.

1
AuteurMessages
Foromus#1 Posté le 28/5/2017 à 11:05:04
Bonjour à tous,

La chose me paraissait simple, mais ça ne marche pas. J'ai fait :
1
Form.mouse =Wait

ou encore :
1
Form.mouse =Default

mais ça coince...
J'ai tenté :
1
Form.mouse.Wait

Pas mieux...
Merci pour la bonne syntaxe....
vuott#2 Posté le 28/5/2017 à 15:10:05
Ne cedere ineluctabili possimusMais vous voulez changer l'apparence du curseur du mouse ?
Foromus#3 Posté le 28/5/2017 à 16:50:56
Bonjour vuott,

Effectivement !
Par exemple, lors d'un calcul, ou autre, le système est en attente, il serait bon alors de donner au curseur en service l'apparence du wait, en l’occurrence ici, celle d'un cercle en mouvement. Et une fois le processus terminé, on rendra la propriété "Default" au curseur, c-à-d, la flèche caractéristique et classique !
vuott#4 Posté le 28/5/2017 à 17:53:37
Ne cedere ineluctabili possimus
.... celle d'un cercle en mouvement. Et une fois le processus terminé, on rendra la propriété "Default" au curseur, c-à-d, la flèche caractéristique et classique !

Bonjour mon ami.

Pour ton particulier exigence tu dois utiliser la propriété «.Busy» de la classe «Application»: :bounce:

1
2
3
4
5
6
7
8
9
10
11
12
13
PUBLIC SUB Button1_Click()

DIM i AS INTEGER

INC Application.Busy

FOR i = 1 TO 1000000
PRINT i
NEXT

DEC Application.Busy

END


Patrick#5 Posté le 29/5/2017 à 12:03:40
Bonjour,
Je connaissais pas, c'est sympa. J'utilisais ça :
1
ME.Mouse = Mouse.Wait

ou
1
Panel1.Mouse = Mouse.Wait

suivant le résultat escompté.
spheris#6 Posté le 29/5/2017 à 12:49:57
http://gambaslinux.fr/articles.php?lng=fr&pg=756

ou


http://gambaslinux.fr/articles.php?lng=fr&pg=335

;)
Flachy Joe#7 Posté le 29/5/2017 à 13:08:54
Iguane : Il Gambas Uniquement pour Activer ses NEuronesSalut,
Il s'agit d'une sous-sous-procedure.C'est à dire dans la procédure FMAIN, j'ai la procédure MOUSE dans laquelle j'ai la procédure CUSTOM.

Ben en fait non, Custom est une constante de la classe Mouse et c'est un entier. La propriété Mouse de l'objet Form étant elle aussi de type Integer, on peux lui donner la valeur de cette constante.
;) Flachy Joe ;)
Foromus#8 Posté le 31/5/2017 à 13:42:43
Bonjour à tous,

Bon ça marche, un peu boiteux quand même à l'application (quoique pas encore utilisé dans un .gambas), mais seulement quand on veut mettre une photo en guise de curseur. Bref, le truc complètement inutile, sinon se faire plaisir...
Merci pour les infos.

Au passage, où est-ce que vous trouvez tout ça ? Généralement, quand je fais une recherche, je ne trouve rien !
Même sur la page http://gambaslinux.fr/ qui m'a pourtant été chaudement recommandée...

Merci à vous !
spheris#9 Posté le 1/6/2017 à 00:57:23
Foromus,
pour le site gambaslinux.fr en haut à droite tu as une boite de recherche. Tape un mot clef et tu auras plein de réponses.
Je t'encourage à regarder la doc gambas qui est en constante évolution.
;)
gambix#10 Posté le 1/6/2017 à 19:09:07
Faire simple !
Pour Application.busy l'explication est simple :

Ceci permet l'imbrication d'activité courant .

Je fait qque chose :
1
INC Application.Busy

Je fait encore une autre chose en même temps:
1
INC Application.Busy

J'ai finit un de mes truc :
1
DEC Application.Busy

J'ai Finit encore un truc :
1
DEC Application.Busy.


Voila :-)

Pour mettre une photo en cursor :

1
2
3
4
DIM hCursor AS NEW Cursor (Picture[CheminImage],PointChaudX, PointChaudY)

MonControl.Cursor = hCursor
MonControl.Mouse = Mouse.Custom



Et voila :)
Moins de texte dans une signature c'est agrandir son espace.
Foromus#11 Posté le 2/6/2017 à 16:28:28
Bonjour à tous,

Merci gambix, j'y étais arrivé, par contre, je n'avais pas le complément pour localiser. En fait, j'avais déjà une formule dédiée, donc, le curseur restait à la même place, en tenant compte que ladite position correspond au haut gauche du curseur.
Après quelques essais, je me demande si ça va vraiment me servir, d'autant que parfois le chemin est un peu compliqué, dans ce sens que, après avoir mis une image, il faut revenir à la flèche originale, et si il y a dans le processus plusieurs appels successifs à d'autres procédures, le point d'aboutissement peut être atteint bien avant que les processus soient effectués et affichés, cela demande donc une grande attention.
Cela dit, l'attention est impérative en programmation...
Merci à tous !
1