MsgBox au 1er plan

Version imprimable

11/07/2011, 09h34
modenofx

MsgBox au 1er plan

Bonjour à tous les développeurs.

J’ai cherché parmi différents post du forum mais je n’ai rien trouvé de concluant.

Au cours de l’exécution du programme j’ai une Input Box qui demande à l’utilisateur de rentrer une adresse. Celle-ci est lue depuis un site internet par l’utilisateur.

Je voudrais que l’input Box reste toujours au premier plan mais si on change de fenêtre pour prendre le navigateur internet par exemple.

Merci d’avance à ceux qui éclaireront ma lanterne.

Bonne programmation à tous.

Bonjour,

Avec API et avec une Form (mettre un TextBox par exemple pour la récupération de l'adresse). Code à mettre dans le module de la Form :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
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 FindWindowA _
            Lib "user32" ( _
            ByVal lpClassName As String, _
            ByVal lpWindowName As String) As Long
 
Private Sub UserForm_Initialize()
 
    Dim Position As Long
    Dim Hwnd As Long
    Dim Hauteur As Long
    Dim Largeur As Long
 
    With Me
        Hauteur = .Height
        Largeur = .Width
 
        Hwnd = FindWindowA(vbNullString, .Caption)
 
        Position = SetWindowPos(Hwnd, -1, _
                                .Top, _
                                .Left, _
                                .Width, _
                                .Height, 0)
 
        .Width = Largeur
        .Height = Hauteur
 
    End With
 
End Sub

Hervé.

11/07/2011, 16h14
modenofx

Bonjour Theze,

Tout d’abord je vous remercie pour votre réponse.

Suite à mes recherches et d’après ce que j’avais compris il faut faire appel aux API windows, chose que vous me confirmez dans votre message.

Etant débutant en programmation aussi bien en VBA que pour les API windows, je vais essayer d’utiliser votre code.

Je mettrais un message pour vous informer de la situation.

Bonne programmation, cordialement.
12/07/2011, 10h17
modenofx

un grand merci :

Bonjour Theze,

Le code vba que tu m'as transmis fonctionne à merveille! :)

C'est exactement ce que je cherchais. :ccool:

Je te remercie encore pour ton aide et bonne programmation, cordialement.