vb-error al declarar las funciones

[jocormix]

hola a todos:

estoy realizando una aplicacion, me da un error y no se pq es, este es el codigo:

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

me da el siguiente error:

as any no se admite en instrucciones declare

a ver si alguien pudiese echarme una mano.

un saludo, gracias.

[Foxi]

Prueba con esto:

Código:

 
Public Declare Function GetPrivateProfileString Lib "kernel32" _
        Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
                                          ByVal lpKeyName As Any, _
                                          ByVal lpDefault As String, _
                                          ByVal lpRetunedString As String, _
                                          ByVal nSize As Long, _
                                          ByVal lpFileName As String) As Long

Perdón, pero he comprobado que es la misma declaración... Si te vale: lo uso en un montón de programas, realizando todas las declaraciones de las API's en un Módulo.

No sé si puede afectar, pero: ¿Tienes instalado algún Service pack?

Saludos, Foxi.

[Avellaneda]

Hola, creo que es porque no asigna la función a una variable pública o privada:

Si es en un módulo .bas:

Public Declare Function....

Si la utiliza a nivel de módulo:

Private Declare Function...

[Foxi]

Iniciado por Avellaneda

Hola, creo que es porque no asigna la función a una variable pública o privada:

Creo que te confundes: ya que si no pones si es privada o pública, el valor por defecto es 'Public'.

Además, no daría el error que indica en la definición de la función, sino en el uso de la misma, diciéndole que es una función desconocida.

Saludos, Foxi.

[Avellaneda]

Iniciado por Foxi

Creo que te confundes: ya que si no pones si es privada o pública, el valor por defecto es 'Public'.

Además, no daría el error que indica en la definición de la función, sino en el uso de la misma, diciéndole que es una función desconocida.

Saludos, Foxi.

¿Lo has verificado?
A mí si no declaro la función como Public o Private me dá error de compilación: No se admiten constantes....
Me refiero en un módulo normal (no en un .bas)

[Avellaneda]

Ahora que caigo, seguramente que está utilizando .NET y ahí no se permiten variables "Any".

En esta función en concreto, las puedes sustituir por "String" y no dará error.

[Foxi]

Iniciado por Avellaneda

¿Lo has verificado?
A mí si no declaro la función como Public o Private me dá error de compilación: No se admiten constantes....
Me refiero en un módulo normal (no en un .bas)

El error que te da, repito: es porque por defecto es Public, además de que lo has declarado en un módulo de objeto (probablemente en un formulario) y no en un módulo ".bas": Esto es: en un módulo "normal" te dará el mismo error aunque lo declares como Public.

Aparte de eso si el error de nuestro amigo 'jocormix' es por que trabaja en .NET, eso ya es otra cuestión en la que yo no puedo ayudar mucho...

Saludos, Foxi.