Gambas Forge BETA

Espace Membres Connexion Inscription
Vous devez être connecté pour accéder au chat.

[RÉSOLU]Comment identifier la fenêtre active[GB3].

Ce sujet est résolu.

1
AuteurMessages
Reivillo#Posté le 12/01 à 17:29
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonsoir.

J'aimerai savoir si il est possible,
sous GB3, ou en ligne de commande,
d'avoir les Infos de la fenêtre active,
autre que celle de l'application.
(Qui fonctionnera en arrière plan).
"Positions, Dimensions".

A+.
Reivillo.

Prokopy#Posté le 12/01 à 18:09
Kinder PinguiSalut Reivillo,

Tu peux obtenir ces informations (et plein d'autres) grâce au composant gb.desktop.

Petit exemple :

1
2
3
4
5
6
Dim fenetreActive As DesktopWindow = Desktop.Windows[Desktop.ActiveWindow] 'On récupère la fenêtre active

Print fenetreActive.X
Print fenetreActive.Y
Print fenetreActive.Width
Print fenetreActive.Height 'etc ...


Tu peux aussi la déplacer, la redimensionner ... je te laisse voir la doc pour plus d'infos : http://gambasdoc.org/help/comp/gb.desktop?fr&v3 ;)
manu#Posté le 12/01 à 18:20
Avec Gambas ca roule !alors peut être que ça pourra t'aider :


En gambas

http://gambasdoc.org/help/comp/gb.desktop/desktop/find?fr&view

En ligne de commande :

xprop : http://www.xfree86.org/current/xprop.1.html
xwininfo : http://www.xfree86.org/4.2.0/xwininfo.1.html
Reivillo#Posté le 12/01 à 19:04
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Salut Prokopy.

J'ai testé, mais j'ai une erreur,
"out of bounds"

à manu

Je vais étudier cela, après diner.


A+
Prokopy#Posté le 12/01 à 19:57
Kinder PinguiOups, oui en effet je me suis trompé. C'est :

1
2
3
4
5
6
Dim fenetreActive As DesktopWindow = Desktop.Windows.FromHandle(Desktop.ActiveWindow) 'On récupère la fenêtre active

Print fenetreActive.X
Print fenetreActive.Y
Print fenetreActive.Width
Print fenetreActive.Height 'etc ...
Reivillo#Posté le 13/01 à 14:23
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Re.

J'ai toujours un problème avec
le retour de la position X et Y de la fenêtre.
J'ai toujours selon sa Position sur l'écran:
X=4 et Y=24
Par contre les Dimensions suivent bien apparemment.

A+.


xwininfo: Window id: 0x4000003 "reivillo@reivillo-laptop: ~"

Absolute upper-left X: 94 (24,79 mm)
Absolute upper-left Y: 137 (36,21 mm)
Relative upper-left X: 4 (1,05 mm)
Relative upper-left Y: 24 (6,34 mm)
Width: 601 (158,47 mm)
Height: 435 (114,98 mm)
Depth: 24
Visual: 0x21
Visual Class: TrueColor
Border width: 0 (0,00 mm)
Class: InputOutput
Colormap: 0x20 (installed)
Bit Gravity State: NorthWestGravity
Window Gravity State: NorthWestGravity
Backing Store State: NotUseful
Save Under State: no
Map State: IsViewable
Override Redirect State: no
Corners: +94+137 -329+137 -329-196 +94-196
-geometry 73x24+90+113
manu#Posté le 13/01 à 18:32
Avec Gambas ca roule !Absolute upper-left X et Y changent bien quand tu déplaces ta fenêtre et Relative upper-left X et Y ne change pas quelque soit la position de celle ci...

Mais essayes au maximum, d'utiliser gambas et son composant gb.desktop
Reivillo#Posté le 13/01 à 19:04
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonsoir manu.

Sûr, que j'essaie toujours d'utiliser GB.

J'avais les mêmes retours avec gb.desktop,
dans le 2éme Code que me proposai Prokopy.
C'est à cause de cela, que je me suis mis,
à aller fouiner du coté de xwininfo.

Alors, comment récupérer:
Absolute upper-left X et Y,
en lieu et place de:
Relative upper-left X et Y.

Je continue à chercher.

A+.
Reivillo#Posté le 23/01 à 14:36
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonjour à Tous.

Excusez moi, j'avais oublier,
de retourner le test positif.
Voici le code pour le test:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
' Gambas class file

Public MyDesktopWatcher As Object
Public MyButton As Object
Public NTest As Integer

Public Sub Form_Open()
MyDesktopWatcher = New DesktopWatcher(True) As "MyDesktopWatcher"
Me.W = 350
Me.H = 350
Me.Stacking = Window.Above
Me.center
Me.show
MyButton = New Button(Me) As "_MyButton_"
MyButton.text = "Pour Tester Déplacer cette Fenêtre et Cliquer ICI"
MyButton.X = 15
MyButton.Y = 200
MyButton.W = 320
MyButton.H = 24
End

Public Sub _MyButton__Click()
Dim fenetreActive As DesktopWindow = Desktop.Windows.FromHandle(Desktop.ActiveWindow)
Inc NTest
Print " >>>>>>>>>>>>>>>>>>>>> TEST "; NTest
Print " <<<<< Fenêtre Active >>>>>"
Print " Name :", fenetreActive.Name
Print " Org X:", fenetreActive.X
Print " Org Y:", fenetreActive.Y
Print " Geo W:", fenetreActive.Width
Print " Geo H:", fenetreActive.Height
End

1

Connexion