Discussion :

[mutley]

Bonjour,

Dans mon programme VB, je voudrais que ma fenetre au lancement de l'application soit toujours en premier plan.
Pour cela j'ai procédé de la façon suivante (que j'ai trouvé sur un site VB) :

- Dans le main :

Code :

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

 AlwaysOnTop FrmFeuillle, True

- Dans un module :

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
Public Const OnTop = -1&
Public Const DISABLE_ONTOP = -2&
Public Const wFlag = 33
 
Public Sub AlwaysOnTop(frm As Form, OnTop As Boolean)
 
    Dim WndLeft, WndTop As Long
 
    WndLeft = frm.Left
    WndTop = frm.Top
 
    If OnTop = True Then
        SetWindowPos frm.hwnd, OnTop, WndLeft, WndTop, 220, 2200, 33
    Else
        SetWindowPos frm.hwnd, DISABLE_ONTOP, WndLeft, WndTop, 2220, 2220, wFlag
    End If
 
End Sub

Lorsque je charge la page, celle-ci apparaît, une fenetre apparait bien dans la barre Windows en bas mais celle-ci n'est pas visible à l'écran... Quelle est mon erreur ?

[alncool]

as tu bien vérifié les coordonnées que tu entres dans ton affichage de ta feuille?
Je ne sais pas si c'est normal mais entre la position dans le if et celui du else.. les coordonnées diffèrent alors que normalement seul le flag OnTop devrait changer...

[mutley]

Effectivement c'est un problème de positionnement...
Ma fenetre apparait en fait en dehors de l'écran en bas à droit (j'ai pu voir ça en faisant un déplacement)

Mais quelle est l'unité de mesure de cette fonction pour le positionnement ?

[zazaraignée]

Salut

essaie de positionner frm par rapport aux dimensions de l'objet Screen (en pixels, je crois).

[alncool]

Oui le positionnement se fait bien en pixel ^^

Si tu as résolu ton problème n'oublie pas le tag !

[DarkVader]

Pas Top le double OnTop

[zazaraignée]

Salut

J'ai déjà fait une petite appli qui reste toujours au dessus des autres et j'ai dû recourir aux fonctions de l'API.

Les déclarations:

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
'Fonction (et constantes) de l'API qui permet de
'garder une fenêtre au dessus de toutes les autres
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 Declare Function FindWindow Lib "user32" _
                Alias "FindWindowA" (ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" ( _
                ByVal hwnd As Long) As Long
 
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

La fonction:

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
Private Function PositionForm(ByVal Feuille As Form, Optional PrePlan As Boolean = True) As Long
    'Variable (lgConst) pour comparer
    'si vrai ou faux (PrePlan)
    'en ajoutant une case à cocher sur la feuille
    Dim lgConst As Long
    If PrePlan Then
        lgConst = HWND_TOPMOST
      Else
        lgConst = HWND_NOTOPMOST
    End If
    PositionForm = SetWindowPos(Feuille.hwnd, lgConst, Feuille.Left \ Screen.TwipsPerPixelX, _
                    Feuille.Top \ Screen.TwipsPerPixelY, _
                    Feuille.Width \ Screen.TwipsPerPixelX, _
                    Feuille.Height \ Screen.TwipsPerPixelY, 0)
End Function

Et la petite case à cocher si on ne veut plus que la fenêtre soit au dessus:

Code :

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

1
2
3
4
5
6
7
8
Private Sub chkOnTop_Click()
    Select Case chkOnTop.Value
      Case 1 'coché
        PositionForm Me, True
      Case 0 'pas coché
        PositionForm Me, False
    End Select
End Sub