Buenas,

estoy intentando pasar un CommandButton como parámetro a una función ubicada en un módulo bas. Al compilarlo me da error de que no coinciden los tipos. He probado pasandole ByVal, ByRef, pero nada.


-modulo.bas-

Public Sub GetButton(button As CommandButton)
button.Caption = "kkkk"
End Sub

-form-

Modulo1.GetButton(Form1.Command1)



Sin embargo, sí que me deja hacer esto mismo ubicando la función en el mismo formulario y pasandole el CommandButton como parámetro.

Porque no se lo puedo pasar al módulo? tengo que hacer alguna conversión? Alguien me puede ayudar...

Hola el problema es que pasas el argumento entre parentesis.
Probalo asi.


-modulo.bas-

Public Sub GetButton(button As CommandButton)
button.Caption = "kkkk"
End Sub

-form-

Modulo1.GetButton Form1.Command1


Cuando llamas a una funcion pasando los argumentos entre parentesis la funcion necesita un lugar (Variable, vector, etc) donde almacenar el valor que te devuelve.

Espero que te sirva. Saludos

oohhh... graciassss!