[CallByName] Interesante [No todos nos lo sabemos creo >:D]

Iniciado por BlackZeroX, 6 Agosto 2008, 04:51 AM

0 Miembros y 1 Visitante están viendo este tema.

BlackZeroX

La pongo por que no todos nos la podriamos saber ¬¬!.

Bueno esto lo acabo de entrontrar ojala y les sirva de algo en un futuro. ( Yo solo conocia la funcion Call no esta ja  :o)

Poner en un formulario o donde deseen.

3 Textbox llamados

Text1
Text2
Text3
mas un Commanbutton llamado Command1


Código (vb) [Seleccionar]

Public Function Divide(arg1 As Long, arg2 As Long)
    Divide = arg1 / arg2
End Function
Public Function Multiplica(arg1 As Long, arg2 As Long)
    Multiplica = arg1 * arg2
End Function
Private Sub Command1_Click()
    MsgBox CallByName(Me, Text1.Text, VbMethod, Text2.Text, Text3.Text)
End Sub


;D ;D ;D ;D  Escribir en el text1  el nombre de la Funcion y clickear en el boton  ;D ;D ;D ;D ;D ;D
The Dark Shadow is my passion.

aaronduran2

Con esto se podría hacer un lenguaje de programación propio... :xD

Saludos.

Karcrack