Discussion :

[MPRIBOM]

Bonjour,

Pour compléter la discussion :
http://www.developpez.net/forums/d14...sies-userform/

J'ai une autre question : Comment puis-je piloter la croix rouge comme mon bouton Annuler ?

[clementmarcotte]

Bonjour,

Tu ajoutes un bouton, ou tu prends un bouton existant qui convient (genre Bouton "Annuler" ou "Quitter"), et tu mets sa propriété "Cancel" à True. Ensuite, tu mets les procédures qui conviennent dans l'événement Click du bouton en question.

[Invité]

Bonjour,
personnellement je ne m'embête pas je supprime la croix du formulaire!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'pour enlever la croix rouge d'un UF
#If Win64 Then
    Private Declare PtrSafe Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 #Else
    Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If
Private Sub UserForm_Initialize()
Dim hWnd As Long
    hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
    & "Frame", Me.Caption)
    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub

Re-Édite: petite précision, ce serai malhonnête de dire que ce code est de moi!