Sección de códigos , trucos y ejemplos para visual basic

153 - CallByName

Ejemplo de la función CallByName de Visual basic para llamar a funciones, métodos y propiedades por su nombre

Acá podés ver algunos ejemplos que hice bien simples de esta función que permite, no solo ejecutar y llamar a funciones y rutinas por su nombre, si no también recuperar el valor de propiedades y escribirlas, es decir cambiarlas llamandolas por su nombre

El siguiente código tiene cuatro ejemplos: El primer llama a una SubRutina. El segundo Llama a una función con parámetros. En este caso al tener parámetros, a CallByname hay que especificarcelos en el último parámetro de la llamada a CallByName. El tercer ejemplo cambia el valor de la propiedad BackColor del formulario. El cuarto recupera el valor de una propiedad de un objeto, en este caso el Caption del Formulario.

En estos dos últimos casos, el tercer parámetro de CallByname es VbLet (cambia la propiedad) y VbGet (recupera la propiedad).

En el caso de las rutinas y funciones, se utiliza VbMethod especificado en tercer parámetro de la función.

Nota: Si se utiliza con objetos, hay que utilizar en ves de vbLet, VbSet

Para el ejemplo colocar cuatro CommandButton y el siguiente código fuente en un Form

Option Explicit 'Nota: Cuando se utiliza CallByname para funciones y Sub, _ se debe especificar en el tercer parámetro el valor vbMethod 'Llama y Ejecuta la función Sumar. Private Sub Command2_Click() CallByName Me, "Sumar", VbMethod End Sub Sub Sumar() Dim num1 As Integer, num2 As Integer num1 = 10 num2 = 20 MsgBox num1 + num2 End Sub 'Llama y Ejecuta la función Sumar2. Como la función tiene parámetros _ se deben enviar en el último parámetro de CallByname en el orden _ en que están declarados en la función Private Sub Command1_Click() MsgBox CallByName(Me, "Sumar2", VbMethod, 2, 2) End Sub Function Sumar2(x As Integer, y As Integer) Sumar2 = x + y End Function 'Cambia el color del formulario notar que se utiliza vbLet y el _ valor de la propiedad en este caso Backcolor y el valor Private Sub Command3_Click() CallByName Me, "BackColor", VbLet, vbRed End Sub 'Recupera el valor de una propiedad de un objeto, en este caso _ el Caption del formulario Private Sub Command4_Click() MsgBox CallByName(Me, "Caption", VbGet) End Sub Private Sub Form_Load() Command1.Caption = " Ejecutar la Rutina Sumar " Command2.Caption = " Ejecutar la función Sumar2 " Command3.Caption = " cambiar el valor de una propiedad " Command4.Caption = " Recuperar el valor de una propiedad " End Sub

Otra cosa importante. Si la función a llamar está por ejemplo en una clase, hay que especificar en el primer parámetro de CallByName el nombre del módulo de clase.

Un ejemplo

En el módulo de clase

Public Function Sumar(Valor1 As Long, Valor2 As Long) As Long
Sumar = Valor1 + Valor2
End Function

y para llamar al método-función sumar con CallByname desde un formulario:

Dim oClass1 As New Class1


    'Le envía a CallBayname el nombre del módulo en el primero parámetro
    Resultado = CallByName(Class1, "Sumar", VbMethod, 100, 200)

    'Muestra el resultado
    MsgBox Resultado, vbInformation

Buscar en Recursos vb