Positionnement USF (Sujet mystérieux)

[RONIBO]

Bonjour,

j'ai un code qui permet de mettre en premier mon usf, même durant la navigation dans Windows (Internet, dossier etc)

je modifie l'option en mettant -2 dans la procédure close pour qu'il passe cette fois ci en arrière plan, car si je modifie pas l'option je risque de pas voir mon msgbox (Il sera derrière mon usf)

Mon problème est quand je cliques sur annuler au msgbox, mon userform change de position je sais pas pour quelle raison.

Avez vous une idée?

Merci d'avance

 

[Si...]

Re : Positionnement USF (Sujet mystérieux)

salut

2 cas à tester :
le formulaire se ferme (utilisation classique de la croix)

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Me.Hide
    CloseMode = 1
    Select Case MsgBox("Voulez-vous enregistrer les modifications avant de quitter le programme ?", 35, "")
      Case 6
        ThisWorkbook.Save
         Application.DisplayAlerts = False
         Application.Quit
      Case 7
         ThisWorkbook.Saved = True
         Application.DisplayAlerts = False
         Application.Quit
      Case Else
         Cancel = 1
    End Select
End Sub

on veut garder le formulaire visible ou pas

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Me.Hide
    CloseMode = 1
    Select Case MsgBox("Voulez-vous enregistrer les modifications avant de quitter le programme ?", 35, "")
      Case 6
        ThisWorkbook.Save
         Application.DisplayAlerts = False
         Application.Quit
      Case 7
         ThisWorkbook.Saved = True
         Application.DisplayAlerts = False
         Application.Quit
      Case Else
         If MsgBox("Voulez-vous fermer le formulaire ?", 4, "") = 6 Then Unload Me: Exit Sub
         Cancel = 1: Me.Show
    End Select
End Sub

Dans ce dernier cas, il faudra prévoir sa réouverture. D'ailleurs ton "Open" pose problème.

 

[Dranreb]

Re : Positionnement USF (Sujet mystérieux)

Bonjour.
Je pense que les paramètres x,y,cx,cy de SetWindowPos sont en pixels puisque ce sont des Long, et non en points.
Le mieux, d'après ma documentation, serait de la 'flaguer' pour qu'elle n'en tienne pas compte:

SetWindowPos(Hwnd, Devant, 0, 0, 0, 0, &H43&)

(&H43 = SWP_SHOWWINDOW + SWP_NOMOVE + SWP_NOSIZE)

Voire :

SetWindowPos(Hwnd, Devant, 0, 0, 0, 0, &H43& Or Devant = 1 And &H10&)

(Y ajoute SWP_NOACTIVATE si Devant = HWND_BOTTOM)

 

[job75]

Re : Positionnement USF (Sujet mystérieux)

Re, salut Si..., Bernard,

En fait, dès le moment où la propriété StartUpPosition de l'USF est sur 1 - CenterOwner, il est inutile de le positionner à l'ouverture.

Et il suffit de faire avec les positions X et Y ce qui a été fait pour Hauteur et Largeur :

Sub PositionneUserform(Devant As Integer)
Dim Position As Long, Hwnd As Long, Hauteur, Largeur, X, Y
    With Me
        Hauteur = .Height
        Largeur = .Width
        X = .Left
        Y = .Top
        Hwnd = FindWindowA(vbNullString, .Caption)
        Position = SetWindowPos(Hwnd, Devant, 0, 0, 0, 0, 0)
        .Width = Largeur
        .Height = Hauteur
        .Left = X
        .Top = Y
    End With
End Sub

Dans ces conditions, comme l'a bien vu Dranreb, seuls les 2 premiers arguments de la fonction SetWindowPos(Hwnd sont utiles, on peut donc mettre tous les autres à zéro.

Fichier (2).

A+

 

[job75]

Re : Positionnement USF (Sujet mystérieux)

Re,

J'ai complètement revu mon post précédent.

A+

 

[RONIBO]

Re : Positionnement USF (Sujet mystérieux)

Bonsoir,

Tout d'abord merci à tous pour vos solutions, vous êtes des chefs

Je me mets au travail, pour tester lequel sera fonctionnel avec mon fichier

Je vous tien au courant dans une heure

A+