Taille USER inférieur à 99

[ericTA]

Bonjour à tous,

Il y a t il un moyen de réduire la largeur (Width) d'un USER en dessous de 99 ?

Merci d'avance

Eric

 

[phlaurent55]

Re : Taille USER inférieur à 99

Bonjour Eric,

à première vue (et après essai), cela ne semble pas possible

à+
Philippe

 

[PMO2]

Re : Taille USER inférieur à 99

Bonjour,

C'est possible en utilisant les APIs mais c'est compliqué.
Quand j'aurai le temps, je fournirai un exemple.

 

[Staple1600]

Re : Taille USER inférieur à 99

Bonsoir à tous

Avec les API, oui , mais dans quel but ??

Option Explicit
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Private Declare Function SetWindowPos Lib "user32.dll" (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 Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2

Private Sub UserForm_Click()
Dim hwnd As Long
Dim lngWidth As Long
Dim lngHeight As Long
lngWidth = 45
lngHeight = 45
hwnd = GetActiveWindow()
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, lngWidth, lngHeight, SWP_NOMOVE
End Sub

PS: Si on teste avec moins de 45, seul la croix rouge apparait.

 

[Staple1600]

Re : Taille USER inférieur à 99

[...SUITE...]

Une version plus aboutie (grâce un emprunt à Leith Roth)
NB: Test OK sur Excel 2013 32 bits.
Ps: Pour fermer, l'userform il suffit de cliquer dessus.
DANS UN MODULE STANDARD

'Written: August 01, 2009
'Author:  Leith Ross
'Summary: Removes the Titlebar and thick border around a UserForm.
'Returns the Window Handle of the Window that is accepting User input.
 Public Declare Function GetForegroundWindow Lib "user32.dll" () As Long

 Private Declare Function GetWindowLong _
   Lib "user32.dll" _
     Alias "GetWindowLongA" _
       (ByVal hwnd As Long, ByVal nIndex As Long) As Long
               
 Private Declare Function SetWindowLong _
  Lib "user32.dll" _
    Alias "SetWindowLongA" _
      (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Sub RemoveFrame()
Dim Bitmask As Long
Dim hwnd As Long
Dim WindowStyle As Long
Const GWL_STYLE As Long = (-16)
Const WS_DLGFRAME As Long = &H400000
hwnd = GetForegroundWindow
WindowStyle = GetWindowLong(hwnd, GWL_STYLE)
Bitmask = WindowStyle And (Not WS_DLGFRAME)
Call SetWindowLong(hwnd, GWL_STYLE, Bitmask)
End Sub

DANS LE CODE DE L'USERFOM

Option Explicit
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Private Declare Function SetWindowPos Lib "user32.dll" (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 Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2

Private Sub UserForm_Activate()
Dim hwnd As Long
Dim lngWidth As Long
Dim lngHeight As Long
RemoveFrame
lngWidth = 25
lngHeight = 25
hwnd = GetActiveWindow()
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, lngWidth, lngHeight, SWP_NOMOVE
End Sub
Private Sub UserForm_Click()
Unload Me
End Sub

 

[PMO2]

Re : Taille USER inférieur à 99

Bonjour,

@ Staple1600
Tu as très bien répondu à la demande en fournissant l'exemple, bravo !

Avec les API, oui , mais dans quel but ??

Je suppose que la finalité est d'obtenir une barre d'outils personnalisée OU d'afficher un Trombinoscope (???).