Discussion :

[benstile]

Bonjour,

j'ai une application sous vb, et dans une des fonctionnalité,
j'ai une fenêtre windows (dont j'ai le nom) qui est ouverte,
et je souhaite récupérer des informations sur cette fenetre windows pour la juxtaposer à mes forms ou éventuellement modifier sa taille
pensez-vous qu'il est possible de récupérer width, left, top, ... d'une fenetre windows à travers des commandes vb.

merci pour votre aide.

[Delbeke]

Heu, tu as donné la réponse dans ta question si j'ai bien tout compris.
Il suffit de récupérer les propriétés de la form que tu as cité dans ton programme, je ne comprends pas ou est le problème !

[benstile]

celle que je souhaite redimensionner n'est pas une forms vb,
mais bien une fenêtre windows.
par exemple: l'explorateur windows.

je souhaite donc récupérer les informations non pas des fenêtres vb, mais les autres via des commandes systèmes ou autres, mais avec du code vb.

merci pour votre aide.

[SfJ5Rpw8]

Il vas falloir faire appel aux APIs Win32 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
33
34
35
36
37
38
39
Option Explicit
 
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
 
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
 
Private Const HWND_BOTTOM = 1
Private Const SWP_NOSIZE = &H1
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Sub Command1_Click()
Dim hIE As Long
Dim lSetPos As Long
Dim lGetRect As Long
Dim rectIE As RECT
 
hIE = FindWindow("IEFrame", vbNullString)
 
If hIE <> 0 Then
 
    lGetRect = GetWindowRect(hIE, rectIE)
    Debug.Print "Dimension Initiale Top" & rectIE.Top & " / Botton : " & rectIE.Bottom & " / Left : " & rectIE.Left & " / Right : " & rectIE.Right
    Stop
    lSetPos = SetWindowPos(hIE, HWND_BOTTOM, rectIE.Left, rectIE.Top, rectIE.Right - rectIE.Left, rectIE.Bottom - rectIE.Top, 0)
    'A voir lGetRect et lSetPos doivent être 1 pour OK ..
Else
  MsgBox "Fenêtre IE introuvable"
 
End If
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FindWindow

te permet de retrouver l'handle de ta fenêtre IE ( j'ai utiliser son class Name IEFrame, mais on aurai pu aussi par exemple utiliser le tire de la fenêtre)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GetWindowRect

Renvoi une variable de type "RECT" te donnant les coordonnées de chacun des côtés de ta fenêtre ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
                   Top
              ------------
             |               |
     left    | Fenêtre    |  Right
             |                |
              ------------
                  Bottom

ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowPos

permet de redimensionner ou déplacer cette fenêtre ...
les paramètres de position et tailles sont :

X et Y position X,Y du coin haut gauche de la fenêtre, équivaut aux propriétés Left et Top renvoyé par GetWindowRect

cX et cY : dimension de la fenêtre et dont par rapport aux valeurs retournées par GetWindowRect on as cX = Right-Left et cY= Bottom - Top

tu remarqueras que la fenêtre n'est pas modifiée (taille/position) lors de l'exécution du code , as toi de modifier les paramétres X,Y , cX, cY selon tes besoins...

[benstile]

super,
c'est exactement ça,
ça fonctionne bien,
merci.

une autre question en passant,
je connais pas du tout les fonction des API WIN32,
j'aimerais savoir s'il était possible d'empêcher tout déplacement de la fenêtre,
en cliquant sur la barre du haut,
ou dans le cas contraire, est-il possible de récupérer la position de la fenêtre si elle a bougé.

merci pour votre aide.

[ProgElecT]

super,
c'est exactement ça,
ça fonctionne bien,
merci.

une autre question en passant,
je connais pas du tout les fonction des API WIN32,
j'aimerais savoir s'il était possible d'empêcher tout déplacement de la fenêtre,
en cliquant sur la barre du haut,
ou dans le cas contraire, est-il possible de récupérer la position de la fenêtre si elle a bougé.

merci pour votre aide.

Il te faut relire attentivement le dernier message de bbil , la reponse y est donnée, il te suffit de lire de tremps en temps la position de cette fenêtre GetWindowRect avec un Timer et si la position à changée entre deux veriffications, utilises SetWindowPos .

[benstile]

bonjour,
merci encore une fois, cela fonctionne,
j'ai réussi à bloquer tout déplacement de la fenêtre.

encore une autre question s'il vous plait,
j'aimerais intercepter le click de certain bouton de cette fenetre à l'aide de ces API WIN 32
en fait quand l'utilisateur clique sur fermer dans la fenetre windows,
il y a une fenetre de confirmation d'enregistrement,
ce que j'aimerais intercepter est le "oui" ou le "non"
pour lancer des macros différentes,

quelqu'un a une piste?

merci pour votre aide.

[SfJ5Rpw8]

Juste une question, cela devient compliqué... c'est quoi le but de ton programme ? afficher le contenu d'une page web ?

[benstile]

c'est une appli vb qui intéragit avec une appli windows
et pour cela, c'est l'appli vb qui doit avoir la main dessus,
et donc, c'est l'appli vb qui doit dire à l'autre appli de se fermer,
ça j'ai réussi, mais je n'ai pas réussi à intercepter les messages liés à la confirmation de celle-ci.

Merci par avance.

[SfJ5Rpw8]

j'ai pas la réponse pour cette interception... c'est pour cela que j'aurais aimé savoir de quelle "Appli Window" il s'agit...

[benstile]

c'est une appli développée par la boite où je suis,
étant stagiaire, on me donne pas accès au code de celle-ci.
je sais même pas quelle est sa technologie.

[real_achilles]

salut
tu peut tester manuellement les message que l'a fenêtre que tu contrôle affiche et tu prend leur titre et dans un timer avec intervalle 15 tu vérifier si le handle de l'une de ses fenêtres est supérieur à 0, si c'est le cas alors une fenêtre est afficher et tu fait ton traitement mais personnellement je trouve que c'est pas professionnel du tout. sa sera mieux si tu nous explique mieux ce que tu veut faire et pourquoi comme sa on trouvera plusieurs moyen de t'aider.

[benstile]

la technique de timer, fonctionne
je lance une fonction toute les 5secondes,
pour voir quelle fenêtre est ouverte,
et ça fonctionne.

merci beaucoup.