Bonjour,
Voici 2 questions (VBA) :
1.- Comment demander qu'une fenêtre donnée soit activée ?
2.- Est-il possible d'obliger une fenêtre à rester affichée en premier plan
?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Guy DETIENNE
Saluty ;O)
Pour placer la fenêtre au premier plan (à coller dans un module) :
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
Public Const HWND_TOPMOST = -1 Public Const HWND_NOTOPMOST = -2 Public Const SWP_FRAMECHANGED = &H20 Public Const SWP_NOSIZE = &H1 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOZORDER = &H4 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_DRAWFRAME = &H20 Public Const SWP_SHOWWINDOW = &H40
Public Sub FormOnTop(hWindow As Long, bTopMost As Boolean)
Dim wFlags, Placement
wFlags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
Select Case bTopMost Case True Placement = HWND_TOPMOST Case False Placement = HWND_NOTOPMOST End Select
Bonjour, Voici 2 questions (VBA) : 1.- Comment demander qu'une fenêtre donnée soit activée ? 2.- Est-il possible d'obliger une fenêtre à rester affichée en premier plan
?
Saluty ;O)
Pour placer la fenêtre au premier plan (à coller dans un module) :
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
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOZORDER = &H4
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_DRAWFRAME = &H20
Public Const SWP_SHOWWINDOW = &H40
Public Sub FormOnTop(hWindow As Long, bTopMost As Boolean)
Dim wFlags, Placement
wFlags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
Select Case bTopMost
Case True
Placement = HWND_TOPMOST
Case False
Placement = HWND_NOTOPMOST
End Select
"jv" <jv@jv.com> a écrit dans le message de
news:c72eom$bcc$1@news-reader4.wanadoo.fr...
Bonjour,
Voici 2 questions (VBA) :
1.- Comment demander qu'une fenêtre donnée soit activée ?
2.- Est-il possible d'obliger une fenêtre à rester affichée en premier
plan
Pour placer la fenêtre au premier plan (à coller dans un module) :
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
Public Const HWND_TOPMOST = -1 Public Const HWND_NOTOPMOST = -2 Public Const SWP_FRAMECHANGED = &H20 Public Const SWP_NOSIZE = &H1 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOZORDER = &H4 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_DRAWFRAME = &H20 Public Const SWP_SHOWWINDOW = &H40
Public Sub FormOnTop(hWindow As Long, bTopMost As Boolean)
Dim wFlags, Placement
wFlags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
Select Case bTopMost Case True Placement = HWND_TOPMOST Case False Placement = HWND_NOTOPMOST End Select
Bonjour, Voici 2 questions (VBA) : 1.- Comment demander qu'une fenêtre donnée soit activée ? 2.- Est-il possible d'obliger une fenêtre à rester affichée en premier plan
?
jv
Merci,Guy. J'ai dû mal m'exprimer. Je souhaite que la fenêtre reste en permanence au premier plan, tant que l'on ne la ferme pas.
"Guy DETIENNE" a écrit dans le message news: u$
Saluty ;O)
Pour placer la fenêtre au premier plan (à coller dans un module) :
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
Public Const HWND_TOPMOST = -1 Public Const HWND_NOTOPMOST = -2 Public Const SWP_FRAMECHANGED = &H20 Public Const SWP_NOSIZE = &H1 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOZORDER = &H4 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_DRAWFRAME = &H20 Public Const SWP_SHOWWINDOW = &H40
Public Sub FormOnTop(hWindow As Long, bTopMost As Boolean)
Dim wFlags, Placement
wFlags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
Select Case bTopMost Case True Placement = HWND_TOPMOST Case False Placement = HWND_NOTOPMOST End Select
Bonjour, Voici 2 questions (VBA) : 1.- Comment demander qu'une fenêtre donnée soit activée ? 2.- Est-il possible d'obliger une fenêtre à rester affichée en premier plan
?
Merci,Guy.
J'ai dû mal m'exprimer.
Je souhaite que la fenêtre reste en permanence au premier plan, tant que
l'on ne la ferme pas.
"Guy DETIENNE" <tchao.net@nospam.skynet.be> a écrit dans le message news:
u$PSI4CMEHA.2736@TK2MSFTNGP11.phx.gbl...
Saluty ;O)
Pour placer la fenêtre au premier plan (à coller dans un module) :
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
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOZORDER = &H4
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_DRAWFRAME = &H20
Public Const SWP_SHOWWINDOW = &H40
Public Sub FormOnTop(hWindow As Long, bTopMost As Boolean)
Dim wFlags, Placement
wFlags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
Select Case bTopMost
Case True
Placement = HWND_TOPMOST
Case False
Placement = HWND_NOTOPMOST
End Select
"jv" <jv@jv.com> a écrit dans le message de
news:c72eom$bcc$1@news-reader4.wanadoo.fr...
Bonjour,
Voici 2 questions (VBA) :
1.- Comment demander qu'une fenêtre donnée soit activée ?
2.- Est-il possible d'obliger une fenêtre à rester affichée en premier
plan
Merci,Guy. J'ai dû mal m'exprimer. Je souhaite que la fenêtre reste en permanence au premier plan, tant que l'on ne la ferme pas.
"Guy DETIENNE" a écrit dans le message news: u$
Saluty ;O)
Pour placer la fenêtre au premier plan (à coller dans un module) :
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
Public Const HWND_TOPMOST = -1 Public Const HWND_NOTOPMOST = -2 Public Const SWP_FRAMECHANGED = &H20 Public Const SWP_NOSIZE = &H1 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOZORDER = &H4 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_DRAWFRAME = &H20 Public Const SWP_SHOWWINDOW = &H40
Public Sub FormOnTop(hWindow As Long, bTopMost As Boolean)
Dim wFlags, Placement
wFlags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
Select Case bTopMost Case True Placement = HWND_TOPMOST Case False Placement = HWND_NOTOPMOST End Select
Bonjour, Voici 2 questions (VBA) : 1.- Comment demander qu'une fenêtre donnée soit activée ? 2.- Est-il possible d'obliger une fenêtre à rester affichée en premier plan
?
Raymond [mvp]
Bonjour.
Tu définis le formulaire en fenêtre indépendante, elle sera toujours devant, et fenêtre modale qui empêchera d'activer une autre fenêtre.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"jv" a écrit dans le message de news:c72n75$e0b$
Merci,Guy. J'ai dû mal m'exprimer. Je souhaite que la fenêtre reste en permanence au premier plan, tant que l'on ne la ferme pas.
Bonjour.
Tu définis le formulaire en fenêtre indépendante, elle sera toujours devant,
et fenêtre modale qui empêchera d'activer une autre fenêtre.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"jv" <jv@jv.com> a écrit dans le message de
news:c72n75$e0b$1@news-reader5.wanadoo.fr...
Merci,Guy.
J'ai dû mal m'exprimer.
Je souhaite que la fenêtre reste en permanence au premier plan, tant que
l'on ne la ferme pas.