Corrigé 20.3 Masquer la croix de fermeture des formulaires personnalisés

Dans la partie déclarations du formulaire frmPageMotdePasse :

Private Declare PtrSafe Function GetWindowLongA Lib "user32" _ 
(ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr 
 
Private Declare PtrSafe Function SetWindowLongA Lib "user32" (ByVal hwnd As _ 
LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr 
 
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _ 
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr 

Commentaire

Les trois déclarations ci-dessus sont obligatoires.

Dans la partie code du formulaire :

Private Sub UserForm_Initialize()  
 
    Dim hwnd As LongPtr 
    Dim lngStyle As LongPtr 
    '======================================================== 
    ' La fonction FindWindow récupère...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 20.2 Connaître les types des unités logiques
Suivant
Corrigé 20.4 Calculer le temps d’exécution d’une procédure