Bonjour Zeb (dans news:ci6vsc$ba6$) tu nous disais :
Bonjour à tous,
Comment garder une fenêtre en 1er plan?
Merci d'avance,
Zeb
essaie de regarder par là ?
http://faq.vb.free.fr/index.php?questionP
--
Attention ! Adresse mail invalide ... Pour me contacter, cliquez sur le lien ci-dessous: http://scraper.chez.tiscali.fr/contact.htm
scraper
Hervé
Salut Zeb, Regarde si cela convient :
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 Const HWND_TOPMOST = -1
Private Sub Form_Load() Dim Position As Long
With Me Position = SetWindowPos( _ .hwnd, HWND_TOPMOST, _ .Left Screen.TwipsPerPixelX, _ .Top Screen.TwipsPerPixelY, _ .Width Screen.TwipsPerPixelX, _ .Height Screen.TwipsPerPixelY, 0) End With
End Sub
Hervé.
"Zeb" a écrit dans le message news: ci6vsc$ba6$
Bonjour à tous,
Comment garder une fenêtre en 1er plan?
Merci d'avance,
Zeb
Salut Zeb,
Regarde si cela convient :
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 Const HWND_TOPMOST = -1
Private Sub Form_Load()
Dim Position As Long
With Me
Position = SetWindowPos( _
.hwnd, HWND_TOPMOST, _
.Left Screen.TwipsPerPixelX, _
.Top Screen.TwipsPerPixelY, _
.Width Screen.TwipsPerPixelX, _
.Height Screen.TwipsPerPixelY, 0)
End With
End Sub
Hervé.
"Zeb" <crezenthel@partner.auchan.fr> a écrit dans le message news:
ci6vsc$ba6$1@reader1.imaginet.fr...
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 Const HWND_TOPMOST = -1
Private Sub Form_Load() Dim Position As Long
With Me Position = SetWindowPos( _ .hwnd, HWND_TOPMOST, _ .Left Screen.TwipsPerPixelX, _ .Top Screen.TwipsPerPixelY, _ .Width Screen.TwipsPerPixelX, _ .Height Screen.TwipsPerPixelY, 0) End With
End Sub
Hervé.
"Zeb" a écrit dans le message news: ci6vsc$ba6$
Bonjour à tous,
Comment garder une fenêtre en 1er plan?
Merci d'avance,
Zeb
Zeb
Merci pour ta réponse, mais ma fenêtre ne reste pas en 1er plan.
"Hervé" a écrit dans le message de news:
Salut Zeb, Regarde si cela convient :
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 Const HWND_TOPMOST = -1
Private Sub Form_Load() Dim Position As Long
With Me Position = SetWindowPos( _ .hwnd, HWND_TOPMOST, _ .Left Screen.TwipsPerPixelX, _ .Top Screen.TwipsPerPixelY, _ .Width Screen.TwipsPerPixelX, _ .Height Screen.TwipsPerPixelY, 0) End With
End Sub
Hervé.
"Zeb" a écrit dans le message news: ci6vsc$ba6$ > Bonjour à tous, > > Comment garder une fenêtre en 1er plan? > > Merci d'avance, > > Zeb > >
Merci pour ta réponse, mais ma fenêtre ne reste pas en 1er plan.
"Hervé" <hmsilve@wanadoo.fr> a écrit dans le message de news:
u71GihomEHA.2948@TK2MSFTNGP11.phx.gbl...
Salut Zeb,
Regarde si cela convient :
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 Const HWND_TOPMOST = -1
Private Sub Form_Load()
Dim Position As Long
With Me
Position = SetWindowPos( _
.hwnd, HWND_TOPMOST, _
.Left Screen.TwipsPerPixelX, _
.Top Screen.TwipsPerPixelY, _
.Width Screen.TwipsPerPixelX, _
.Height Screen.TwipsPerPixelY, 0)
End With
End Sub
Hervé.
"Zeb" <crezenthel@partner.auchan.fr> a écrit dans le message news:
ci6vsc$ba6$1@reader1.imaginet.fr...
> Bonjour à tous,
>
> Comment garder une fenêtre en 1er plan?
>
> Merci d'avance,
>
> Zeb
>
>
Merci pour ta réponse, mais ma fenêtre ne reste pas en 1er plan.
"Hervé" a écrit dans le message de news:
Salut Zeb, Regarde si cela convient :
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 Const HWND_TOPMOST = -1
Private Sub Form_Load() Dim Position As Long
With Me Position = SetWindowPos( _ .hwnd, HWND_TOPMOST, _ .Left Screen.TwipsPerPixelX, _ .Top Screen.TwipsPerPixelY, _ .Width Screen.TwipsPerPixelX, _ .Height Screen.TwipsPerPixelY, 0) End With
End Sub
Hervé.
"Zeb" a écrit dans le message news: ci6vsc$ba6$ > Bonjour à tous, > > Comment garder une fenêtre en 1er plan? > > Merci d'avance, > > Zeb > >
Zeb
Merci pour ta réponse, mais ma fenêtre ne reste pas en 1er plan.
"scraper" a écrit dans le message de news:
Bonjour Zeb (dans news:ci6vsc$ba6$) tu nous disais :
> Bonjour à tous, > > Comment garder une fenêtre en 1er plan? > > Merci d'avance, > > Zeb
essaie de regarder par là ?
http://faq.vb.free.fr/index.php?questionP
--
Attention ! Adresse mail invalide ... Pour me contacter, cliquez sur le lien ci-dessous: http://scraper.chez.tiscali.fr/contact.htm
scraper
Merci pour ta réponse, mais ma fenêtre ne reste pas en 1er plan.
"scraper" <scraper@pasdespam.fr> a écrit dans le message de news:
eZJOqymmEHA.3900@TK2MSFTNGP10.phx.gbl...
Bonjour Zeb
(dans news:ci6vsc$ba6$1@reader1.imaginet.fr)
tu nous disais :
> Bonjour à tous,
>
> Comment garder une fenêtre en 1er plan?
>
> Merci d'avance,
>
> Zeb
essaie de regarder par là ?
http://faq.vb.free.fr/index.php?questionP
--
Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm
Merci pour ta réponse, mais ma fenêtre ne reste pas en 1er plan.
"scraper" a écrit dans le message de news:
Bonjour Zeb (dans news:ci6vsc$ba6$) tu nous disais :
> Bonjour à tous, > > Comment garder une fenêtre en 1er plan? > > Merci d'avance, > > Zeb
essaie de regarder par là ?
http://faq.vb.free.fr/index.php?questionP
--
Attention ! Adresse mail invalide ... Pour me contacter, cliquez sur le lien ci-dessous: http://scraper.chez.tiscali.fr/contact.htm
scraper
le_troll
Salut, t'a pas de chance avec ta feuille lol, elle veut pas... Tiens, regardes ça:
Form2.Show vbNormal, Me
'--------------------------------------
Me sur une form appelée
Me.Show
Load FormX
FormX.Show , Me
Me.SetFocus
---------------------------------------
Et dis-moi si elle ne reste pas au 1er plan ???
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"Zeb" a écrit dans le message de news:ci6vsc$ba6$
Bonjour à tous,
Comment garder une fenêtre en 1er plan?
Merci d'avance,
Zeb
Salut, t'a pas de chance avec ta feuille lol, elle veut pas...
Tiens, regardes ça:
Form2.Show vbNormal, Me
'--------------------------------------
Me sur une form appelée
Me.Show
Load FormX
FormX.Show , Me
Me.SetFocus
---------------------------------------
Et dis-moi si elle ne reste pas au 1er plan ???
--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
"Zeb" <crezenthel@partner.auchan.fr> a écrit dans le message de
news:ci6vsc$ba6$1@reader1.imaginet.fr...
Salut, t'a pas de chance avec ta feuille lol, elle veut pas... Tiens, regardes ça:
Form2.Show vbNormal, Me
'--------------------------------------
Me sur une form appelée
Me.Show
Load FormX
FormX.Show , Me
Me.SetFocus
---------------------------------------
Et dis-moi si elle ne reste pas au 1er plan ???
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"Zeb" a écrit dans le message de news:ci6vsc$ba6$
Bonjour à tous,
Comment garder une fenêtre en 1er plan?
Merci d'avance,
Zeb
JeanPaul
J'utilise la fonction d'Hervé, mais je l'emploie differemment. Ce système m'a toujours donné satisfaction.
Private Declare Sub 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)
J'utilise la fonction d'Hervé, mais je l'emploie differemment.
Ce système m'a toujours donné satisfaction.
Private Declare Sub 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)
J'utilise la fonction d'Hervé, mais je l'emploie differemment. Ce système m'a toujours donné satisfaction.
Private Declare Sub 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)
Heu, ça c'est "form toujours à l'écran", c'est pas "form au dessus", certes si c'est toujours à l'écran c'est au dessus...
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"JeanPaul" a écrit dans le message de news:ci8trg$96r$
J'utilise la fonction d'Hervé, mais je l'emploie differemment. Ce système m'a toujours donné satisfaction.
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal Cx As
Heu, ça c'est "form toujours à l'écran", c'est pas "form au dessus",
certes si c'est toujours à l'écran c'est au dessus...
--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
"JeanPaul" <jean-paul.sacco@wanadoo.fr> a écrit dans le message de
news:ci8trg$96r$1@news-reader4.wanadoo.fr...
J'utilise la fonction d'Hervé, mais je l'emploie differemment.
Ce système m'a toujours donné satisfaction.
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal
hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal Cx As
Heu, ça c'est "form toujours à l'écran", c'est pas "form au dessus", certes si c'est toujours à l'écran c'est au dessus...
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"JeanPaul" a écrit dans le message de news:ci8trg$96r$
J'utilise la fonction d'Hervé, mais je l'emploie differemment. Ce système m'a toujours donné satisfaction.
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal Cx As