VBA Usf sans Boutons sans titre etc
Bonjour la Team;
Avez vous s.v.p une idée du code pour inhiber la barre de titre, tous les boutons etc...
Mais avec cette particularité : avoir un Bouton à l'intérieur du UserForm pour réduire ou agrandir
Merci d'avance
Salutations
Bon j'ai ce code mais la reduc ne se fait pas au dessus de la barre des tache et de plus la barre de titre ainsi que le bouton fermer est apparent ???
avez vous une autre idée ??
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&)
Dim Hwnd&
Private Sub CommandButton1_Click()
ShowWindow Hwnd, 2 '3 pour agrandir,1 normal, et unload me pour quitter
End Sub
Private Sub UserForm_Activate()
ShowWindow Hwnd, 0
SetWindowLong Hwnd, -20, &H40101
ShowWindow Hwnd, 1
End Sub
Private Sub UserForm_Initialize()
Hwnd = FindWindow(vbNullString, Me.Caption)
End Sub
Merci d'avance
End Sub
Bonjour Ready & merci pour le fichier exemple
Est il possible sur cet exemple s.v.p de rajouter un Bouton ( dans l'Usf) qui permet de réduire l'usf au dessus barre des taches ( et bien sur quand il est en réduction tu as accès au bouton agrandissement de la barre de titre) ??
Merci d'avance