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