Usf en Modal false et le réduire

[MuscatMimi]

Bonsoir
J'aimerais savoir s'il est possible de pouvoir réduire
un Usf dans la barre de tache???,

Merci de votre aide précieuse
Cordialement

 

[PMO2]

Re : Usf en Modal false et le réduire

Bonjour,

Faites la démarche suivante

1) Créez un UserForm1 avec un CommandButton1
2) Dans la fenêtre de code du UserForm, copiez le code suivant

Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" _
  (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)
Private Declare Function ShowWindow& Lib "user32" _
  (ByVal hwnd&, ByVal nCmdShow&)
Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" _
  (ByVal hwnd&, ByVal nIndex&)
  
Private Const GWL_STYLE As Long = -16
Private Const GWL_EXSTYLE As Long = -20
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_EX_APPWINDOW As Long = &H40000
Private Const WS_EX_DLGMODALFRAME As Long = &H1
      
Dim hwnd&

Private Sub UserForm_Activate()
Dim WStyle&
WStyle& = GetWindowLong(hwnd&, GWL_STYLE) Or WS_MINIMIZEBOX
SetWindowLong hwnd&, GWL_STYLE, WStyle&
ShowWindow hwnd&, 0
WStyle& = WS_EX_APPWINDOW + WS_EX_DLGMODALFRAME
SetWindowLong hwnd&, GWL_EXSTYLE, WStyle&
ShowWindow hwnd&, 1
End Sub

Private Sub UserForm_Initialize()
hwnd& = FindWindow(vbNullString, Me.Caption)
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

3) Dans un module standard, copiez le code suivant

Sub Launch()
UserForm1.Show vbModal
End Sub

Lancez la macro Launch qui fait apparaître le UserForm. Si vous cliquez l'icône de réduction (dans la barre de titre) le Userform
se réduit dans la barre des tâches. Il suffit de cliquez sur la mini fenêtre du UserForm dans la barre des tâches pour le voir réapparaître.

Cordialement.

PMO
Patrick Morange

 

[MuscatMimi]

Re : Usf en Modal false et le réduire

Bonsoir PMO,et le forum

Bravo, beau code, avec les Api

Merci de votre aide
Cordialement

 

[Compte Supprimé 979]

Ce n'est pas possible ....

Auto censure

Mes remarques n'avaient pas lieu d'être 😱

 

[MuscatMimi]

Re : Ce n'est pas possible ....

Bonsoir

Je t'ai déja répondu sur mon deuxiéme fil,je me suis expliqué

en ce qui concerne le premier fil, PMO a répondu, certe pariel que toi
il fallait bien que je le remercie,NON????,

Voila c'est tout pourquoi ce mettre en colére pour cela,
Certe comme tu l'a dit , j'aurai dû faire un Up sur mon premier Fil , je ne l'ai pas fait désolé,je m'excuse a nouveau
A noter que j'ai déja aidé qq personnes , qui ne m'ont jamais remerciés, j'ai rien dit
a ce sujet
Cordialement

 

[Compte Supprimé 979]

Re : Usf en Modal false et le réduire

Re,

Mea culpa, Vaucluse immo, c'était le premier sujet qui est remonté à la surface.

Je te prie de bien vouloir m'excuser 😱

PS : C'est bien le problème des post en double
Post précédent, auto censuré 😀