Form au premier plan

Question

Bonjour a tous !
 
Private Sub Form_Load()
   mp3player.Show
End Sub

Voila ske j'ai, et le probleme c'ets que j'aimerai que mp3player soit au dessus de la form pr&#233;sente.. mais je n'y arrive pas elle ce met tjr derriere. Que faire plz ?

Coordialement,

PCPT · Answer

tu ne dis pas si tu la veux toujours en premier plan, ou juste &#224; l'appel.

toujours : SetForegroundWindow

&#224; l'appel : tu peux utiliser l'argument VbModal, ou apr&#232;s l'ouveture, SetFocus...

PCPT

cs_DARKSIDIOUS · Answer

Recherche un peu dans les sources du site, et tu trouvera vite ton bonheur !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Phonix4567 · Answer

je la veu tjr au premier plan ? 
Ou dois je placer ce bout de code s'il te plait ? SetForegroundWindow 

Meric bcp ...
Coordialement,

PCPT · Answer

http://www.vbfrance.com/recherche.aspx?r=Premier%20plan&tr=source

PCPT

Phonix4567 · Answer

pas trouver :/ ca serait pas plus rapide de donner la reponse :( ca fait depuis ce matin je cherche ...

PCPT · Answer

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
    Call SetForegroundWindow(Me.hwnd)
End Sub

PCPT

Phonix4567 · Answer

meric je tets ca tout de suite

Gobillot · Answer

oui mais &#231;a s'est provisoire.









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 Function FindWindow Lib "User32" Alias "FindWindowA"
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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 Command1_Click()

    Dim hWnd As Long

' faut mettre le nom exact de la fen&#234;tre    

    hWnd = FindWindow(vbNullString, "Mp3 Player")

    SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

End Sub


Daniel

Phonix4567 · Answer

ca ne marche pas :s

Phonix4567 · Answer

ca ne mache pas aucun des deux :S

Gobillot · Answer

If hWnd = 0 MsgBox "t'as pas mis le nom exact de la fen&#234;tre"

Daniel

Phonix4567 · Answer

c'ets a la place du mot en bleu qu il faut mettre le nom de la fenetre ??? car si oui si j'ai mis le nom exact qui est "mp3player"

Gobillot · Answer

ben oui avec les Majuscules aussi



hWnd = FindWindow(vbNullString, "mp3player")


                
                If hWnd <> 0 Then MsgBox "&#231;a devrait &#234;tre bon"

Daniel

PCPT · Answer

ce n'est pas le nom de la Form, mais son titre.....

hWnd = FindWindow(vbNullString, Me.Caption)
(mais je reste contre cette solution, si ce n'est pas pour un splash......)
PCPT

Phonix4567 · Answer

Aucune des deux ne marche.. meme avec le nom de la fenetre. J'ai reussit a faire autrement lorsqu'on click sur le bouton de la form1 ca ouvre la form2 et mp3 player. Comme ca ca marche nikel

PCPT · Answer

si tu avais dit d&#232;s le d&#233;but que "mp3player" n'&#233;tait pas le nom d'une Form (.Show laisse peu de doute), tu n'aurais certainement pas eu tant de r&#233;ponses
PCPT

Gobillot · Answer

et si avais dis aussi que mp3player n' &#233;tait pas lanc&#233; ...

bref le titre de la question n'est pas du tout en rapport avec ce que tu voulais faire.

Daniel

Form au premier plan

17 réponses

Discussions similaires