Discussion :

[manou14]

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.

[Aspic]

Remplace le par As Integer

N'oublit pas les balises "code" pour mettre en forme ton code

[manou14]

c'est quoi une balise code ?

[Aspic]

C'est ca :

Code :

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

'place ton code ici

Pour l'activer, il faut cliquer sur le diese # lorsque tu ecris ou édites un message !

PS: Lorsque ton probleme est résolu, place le tag situé en bas de ton topic.

[manou14]

merci beaucoup!