Discussion :

[nakata77]

Bonjour,

J'ai un problemme en vb.net concernant quelques déclarations

j'ai cette erreur:

'UPGRADE_ISSUE: Declaring a parameter 'As Any' is not supported. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="FAE78A8D-8978-4FD4-8208-5B7324A8F795"'

Code :

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

1
2
3
4
5
 
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias
"RegQueryValueExA" (ByVal hkey As Integer, ByVal lpszValueName As
String, ByVal lpdwReserved As Integer, ByRef lpdwType As Integer, ByRef
lpData As Any, ByRef lpcbData As Integer) As Integer

je ne sais pas par quoi remplacer la déclaration lpData as Any sachant que j'utilise pour lpData des booléans ou des string quand j'utilise cette fontion

Si quelqu'un à une idée Merci

[neguib]

Peut être en declarant

Code :

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

1
2
3
4
5
6
7
8
9
10
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias
"RegQueryValueExA" (ByVal hkey As Integer, ByVal lpszValueName As
String, ByVal lpdwReserved As Integer, ByRef lpdwType As Integer, ByRef
lpData As Boolean, ByRef lpcbData As Integer) As Integer
 
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias
"RegQueryValueExA" (ByVal hkey As Integer, ByVal lpszValueName As
String, ByVal lpdwReserved As Integer, ByRef lpdwType As Integer, ByRef
lpData As String, ByRef lpcbData As Integer) As Integer