Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Fenêtre boîte à outils

Fenêtre boîte à outils

6 réponses
Avatar
jean saint jalmes
Bonjour,

Dans un projet VB6, est-t'il possible d'obliger une fenêtre à rester au
premier plan pour en faire une boîte à outils toujours visible ?

Merci pour votre aide, Jean
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
X
Bonjour,

Quelques commandes "de premier plan", à mettre à l'appel, ou dans la
form (load)...

Form2.Show vbNormal, Me ' fait passer au 1er plan toujours

Me.Show

Load FormX ' reste devant, premier plan, toujours visible dans l'applie
FormX.Show , Me

Me.SetFocus

--
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"jean saint jalmes" a écrit dans
le message de news:
Bonjour,

Dans un projet VB6, est-t'il possible d'obliger une fenêtre à rester au
premier plan pour en faire une boîte à outils toujours visible ?

Merci pour votre aide, Jean


Avatar
Guy DETIENNE
Salut ;O)

Je crois que X n'a pas bien compris ta question. Ses réponses ne
correspondent pas à ta demande.
VB n'est pas capable de faire cela en natif. Pour pouvoir laisser une
fenêtre toujours au-dessus des autres (TopMost), comme une boîte à outils
que l'on peut rencontrer dans bcp d'applications, il faudra passer par
l'appel de l'API SetWindowPos .


A coller dans un formulaire :
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

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)

Private Sub Form_Activate()

'Positionne la fenêtre au niveau supérieure de toutes les autres
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or
SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

End Sub


Guy

"jean saint jalmes" a écrit dans
le message de news:
Bonjour,

Dans un projet VB6, est-t'il possible d'obliger une fenêtre à rester au
premier plan pour en faire une boîte à outils toujours visible ?

Merci pour votre aide, Jean


Avatar
X
Ah cher ami, la question était "...est-t'il possible d'obliger une
fenêtre à rester au premier plan...", alors je me suis posé la question (il
veut au 1er plan ou toujours à l'écran)... Considérant qu'au premier plan
n'est pas toujours à l'écran, j'ai interprété la question de la façon où
j'ai répondu...
Si j'ai mal compris j'en suis désolé, j'en suis même confus ;o)

--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Guy DETIENNE" a écrit dans le message de news:
udwb%
Salut ;O)

Je crois que X n'a pas bien compris ta question. Ses réponses ne
correspondent pas à ta demande.
VB n'est pas capable de faire cela en natif. Pour pouvoir laisser une
fenêtre toujours au-dessus des autres (TopMost), comme une boîte à outils
que l'on peut rencontrer dans bcp d'applications, il faudra passer par
l'appel de l'API SetWindowPos .


A coller dans un formulaire :
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

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)

Private Sub Form_Activate()

'Positionne la fenêtre au niveau supérieure de toutes les autres
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or
SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

End Sub


Guy

"jean saint jalmes" a écrit
dans
le message de news:
Bonjour,

Dans un projet VB6, est-t'il possible d'obliger une fenêtre à rester au
premier plan pour en faire une boîte à outils toujours visible ?

Merci pour votre aide, Jean






Avatar
Guy DETIENNE
Salut ;O)

"boîte à outils toujours visible " n'était-il pas un élément essentiel ?

Guy


"X" a écrit dans le message de
news:%
Ah cher ami, la question était "...est-t'il possible d'obliger une
fenêtre à rester au premier plan...", alors je me suis posé la question


(il
veut au 1er plan ou toujours à l'écran)... Considérant qu'au premier plan
n'est pas toujours à l'écran, j'ai interprété la question de la façon où
j'ai répondu...
Si j'ai mal compris j'en suis désolé, j'en suis même confus ;o)

--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
--------------------------------------------------------------------------


----------
"Guy DETIENNE" a écrit dans le message de news:
udwb%
> Salut ;O)
>
> Je crois que X n'a pas bien compris ta question. Ses réponses ne
> correspondent pas à ta demande.
> VB n'est pas capable de faire cela en natif. Pour pouvoir laisser une
> fenêtre toujours au-dessus des autres (TopMost), comme une boîte à


outils
> que l'on peut rencontrer dans bcp d'applications, il faudra passer par
> l'appel de l'API SetWindowPos .
>
>
> A coller dans un formulaire :
> Const HWND_TOPMOST = -1
> Const HWND_NOTOPMOST = -2
> Const SWP_NOSIZE = &H1
> Const SWP_NOMOVE = &H2
> Const SWP_NOACTIVATE = &H10
> Const SWP_SHOWWINDOW = &H40
>
> 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)
>
> Private Sub Form_Activate()
>
> 'Positionne la fenêtre au niveau supérieure de toutes les autres
> SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or
> SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
>
> End Sub
>
>
> Guy
>
> "jean saint jalmes" a écrit
> dans
> le message de news:
>> Bonjour,
>>
>> Dans un projet VB6, est-t'il possible d'obliger une fenêtre à rester au
>> premier plan pour en faire une boîte à outils toujours visible ?
>>
>> Merci pour votre aide, Jean
>
>




Avatar
X
Salut,
Ben non, j'avais cru comprendre qu'il voulait faire de sa form une boîte à
outils perso...

--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Guy DETIENNE" a écrit dans le message de news:

Salut ;O)

"boîte à outils toujours visible " n'était-il pas un élément essentiel ?

Guy


"X" a écrit dans le message de
news:%
Ah cher ami, la question était "...est-t'il possible d'obliger
une
fenêtre à rester au premier plan...", alors je me suis posé la question


(il
veut au 1er plan ou toujours à l'écran)... Considérant qu'au premier plan
n'est pas toujours à l'écran, j'ai interprété la question de la façon où
j'ai répondu...
Si j'ai mal compris j'en suis désolé, j'en suis même confus ;o)

--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
--------------------------------------------------------------------------


----------
"Guy DETIENNE" a écrit dans le message de news:
udwb%
> Salut ;O)
>
> Je crois que X n'a pas bien compris ta question. Ses réponses ne
> correspondent pas à ta demande.
> VB n'est pas capable de faire cela en natif. Pour pouvoir laisser une
> fenêtre toujours au-dessus des autres (TopMost), comme une boîte à


outils
> que l'on peut rencontrer dans bcp d'applications, il faudra passer par
> l'appel de l'API SetWindowPos .
>
>
> A coller dans un formulaire :
> Const HWND_TOPMOST = -1
> Const HWND_NOTOPMOST = -2
> Const SWP_NOSIZE = &H1
> Const SWP_NOMOVE = &H2
> Const SWP_NOACTIVATE = &H10
> Const SWP_SHOWWINDOW = &H40
>
> 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)
>
> Private Sub Form_Activate()
>
> 'Positionne la fenêtre au niveau supérieure de toutes les autres
> SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or
> SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
>
> End Sub
>
>
> Guy
>
> "jean saint jalmes" a écrit
> dans
> le message de
> news:
>> Bonjour,
>>
>> Dans un projet VB6, est-t'il possible d'obliger une fenêtre à rester
>> au
>> premier plan pour en faire une boîte à outils toujours visible ?
>>
>> Merci pour votre aide, Jean
>
>








Avatar
jean saint jalmes
Bonjour et merci à tous les deux.

Effectivement, mon souhait est de laisser une fenêtre (une seule et toujours
la même) au premier plan.

La réponse de Guy me convient parfaitement.

Cordialement, Jean

"jean saint jalmes" a écrit :

Bonjour,

Dans un projet VB6, est-t'il possible d'obliger une fenêtre à rester au
premier plan pour en faire une boîte à outils toujours visible ?

Merci pour votre aide, Jean