XL 2016 Bouton reduire et bouton niveau inf. dans le userform

djidji225 · 25 Avril 2020

Bonjour
comment allez vous ? bien j'espere
j'ai ce code ci qui devrait normalement me permettre de reduire et agrandir mon userform mais qui ne marche pas

Code:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Dim wLong As Long
Const GWL_STYLE = (-16), GWL_EXSTYLE = (-20), WS_SIZEBOX = &H40000, WS_TROIS_BOUTON = &H70000, WS_EX_APPWINDOW = &H40000

Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, Me.Caption)
wLong = GetWindowLongA(hwnd, GWL_STYLE) Or WS_SIZEBOX Or WS_TROIS_BOUTON
SetWindowLong hwnd, GWL_STYLE, wLong
End Sub

MErci de bien vouloir m'aider a avancer dans mon projet

laurent3372 · 25 Avril 2020

Qu'est-ce qui ne "marche" pas?
Chez moi, le code affiche une fenêtre avec les boutons "Fermer", "Normal" et "Minimizer" qui réagissent tous comme attendu.

jmfmarques · 25 Avril 2020

Bonjour
Le code montré, tel qu'il l'est en ce qui concerne les déclarations des fonctions utilisées de l'Api de Windows, est écrit pour fonctionner sur une version Office 32 bits.
En combien de bits est la tienne ?

djidji225 · 25 Avril 2020

Bonsoir
64 bits

jmfmarques · 25 Avril 2020

Et donc, déclaration appropriée --->> lire >>>

PtrSafe, mot clé (VBA)

Rubrique de référence sur Office VBA

docs.microsoft.com

djidji225 · 27 Avril 2020

Je ne comprends toujours rien , je ne sais pas comment adapter

patricktoulon · 27 Avril 2020

bonjour
tu vire tout ce qui concerne les api
tu colle ou intègre ceci

VB:

'**********************************************************************************************
'      Ajouter les deux boutons manquants dans la barre de titre  à l'UserForm  et le mouse resizepar les angles et les cotés
'patricktoulon
'**********************************************************************************************

'EXEMPLE
Private Sub UserForm_Activate()
    trois_boutons
End Sub

Private Sub trois_boutons()
    Dim hwnd&
    hwnd = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'api GetActiveWindow
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hwnd & ", " & -16 & ", " & &H94CF0080 & ")")     'api SetWindowLongA
End Sub

compatible 32/64bit sans déclaration

djidji225 · 27 Avril 2020

Merci beaucoup, mon problème est résolu
mais j'aimerais savoir si lors de l'agrandissement, limage ne peut pas prendre la forme du userform

patricktoulon · 27 Avril 2020

re
si tu parle de control image
utilise l'events resize du userform

VB:

Private Sub UserForm_Resize()
Image1.Move 0, 0, Me.InsideWidth, Me.InsideHeight
End Sub

si tu parle du fond de l'userform (la propriété ".picture")
tout simplement dans le activate

VB:

me.pictureSizeMode=1

djidji225 · 27 Avril 2020

je parlais justement de ça et c'est parfait, l'image s'adapte correctement mais les element du userform reste a leur place (label, textbox, combobox, etc)
je ne sais pas ce que fais le premier code mais ça me renvoi un message d'erreur

XL 2016 Bouton reduire et bouton niveau inf. dans le userform

djidji225

XLDnaute Nouveau

laurent3372

XLDnaute Impliqué

jmfmarques

XLDnaute Accro

djidji225

XLDnaute Nouveau

jmfmarques

XLDnaute Accro

PtrSafe, mot clé (VBA)

djidji225

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

djidji225

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

djidji225

XLDnaute Nouveau

Discussions similaires