Discussion :

[mobiclick]

Bonjour le forum,

Je souhaiterais ajouter une poignée de redimensionnement en bas ,à droite de mon userform qui contient différents contrôles...

Merci d'avace

[PMO2017]

Bonjour,

Essayez le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String)
Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" _
  (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" _
  (ByVal hwnd As Long, ByVal nIndex As Long)
 
Private Const GWL_STYLE As Long = -16
 
Private Sub UserForm_Initialize()
Dim hwnd&
hwnd& = FindWindow(vbNullString, Me.Caption)
SetWindowLong hwnd&, GWL_STYLE, GetWindowLong(hwnd&, GWL_STYLE) Or &H70000
End Sub

Cordialement.

PMO
Patrick Morange

[patricktoulon]

bonjour

pour info:

&h10000 ajoute le bouton maximiser
&h20000 ajoute le bouton minimiser
&h30000 ajoute les deux boutons
&h40000 ajoute que l'élasticité (ce qui est concerné dans ce sujet )
&h50000 ajoute le bouton maximiser et l'élasticité
&h60000 ajoute le bouton minimiser et l'élasticité
&h70000 la totale

maintenant dans le meme context en ramplacant "or &h xxxxx"

par and not

on peut enlevé le bouton ou meme la caption ou meme le cadre

_ and not &h80000 plus de bouton du tout
_ and not ahc00000 plus de caption



dans le forum contribuez tu a de nombreux exemples y compris les miens

le titre userform redimentionnables

voila au plaisir