API non reconnu sous .net
Je decouvre visual basic.net pour la premiere fois. :?
J'ai voulu inserer dans un module un code en API permettant de changer la couleur d'une progressbar. Ce code marchait tres bien dans excel sous vba, le voici :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| '‘API DECLARATION
Public Declare Function SendMessage Lib _
"user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Any) As Long
'‘CONSTANT DECLARATION
Public Const CCM_FIRST = &H2000
Public Const CCM_SETBKCOLOR = (CCM_FIRST + 1)
Public Const PBM_SETBKCOLOR = CCM_SETBKCOLOR
Public Const WM_USER = &H400
Public Const PBM_SETBARCOLOR = (WM_USER + 9) |
Seulement le "as Any" en rouge n'est pas reconnu par vb.net, que faire?
("as Any" is not supported in declare statement)
Merci de votre reponse
PS: Je n'ai pas cree ce code API, je l'ai trouve sur un forum.