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 :
Seulement le "as Any" en rouge n'est pas reconnu par vb.net, que faire?
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)
("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.
Partager