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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.