Discussion :

[lecaire]

je m'essaie a la programmation d'api
a l'exécution du code suivant j'ai le message d'erreur suivant "erreur de compilation seuls des commentaires peuvent apparaitre après end sub"

Code :

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

1
2
3
4
5
6
7
Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function RemoveMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const sc_close = &HF060&
Private Const mf_bycommand = &H0&
Dim hsysmenu As Long
hsysmenu = GetSystemMenu(Me.hwnd, False)
RemoveMenu hsysmenu, sc_close, mf_bycommand

merci de m'éclairer

[ucfoutu]

Bonsoir,

Plusieurs remarques (Fonctions de l'Api ou non, d'ailleurs)

A défaut de préciser (Private ou Public), c'est Public et Public ne peut être utilisé que dans un module .bas ...

Code :

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

1
2
hsysmenu = GetSystemMenu(Me.hwnd, False)
RemoveMenu hsysmenu, sc_close, mf_bycommand

Ceci ne peut être écrit que dans une procédure (Function ou Sub) ... que l'on ne voit pas ...

Une autre fois : valable pour tout, Api ou non !!!

[lecaire]

je précise maintenant private le code devient

Code :

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

1
2
3
4
5
6
7
Private Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const sc_close = &HF060&
Private Const mf_bycommand = &H0&
Dim hsysmenu As Long
hsysmenu = GetSystemMenu(Me.hwnd, False)
RemoveMenu hsysmenu, sc_close, mf_bycommand

tout cela se trouve dans l'évènement load
mais j'ai toujours le même message d'erreur

[OhMonBato]

Soit tu mets tes déclarations de function et constantes dans la zone de déclaration de ta feuille (En Private si tu veux) soit tu ajoutes un module (Menu Projet, Ajouter un module) et tu y mets tes déclarations (en Public)