[Source] CallByNameEx y argumentos aleatorios

<< < (2/2)

seba123neo:
Cita de: Karcrack en 27 Marzo 2010, 13:03 pm

Tambien podrias hacer esto, no?
Código
Private Sub Form_Load()
   Dim vParams(1)  As Variant
 
   vParams(0) = "Hi ho"
   vParams(1) = 1500
   CallByName Me, "Mensaje", VbMethod, vParams()
End Sub
 
Public Sub Mensaje(ByRef vParams() As Variant)
   Call MsgBox(vParams(0), , vParams(1))
End Sub


si, yo tambien pense eso, pero el tema aca es que al pasarle el, array te pase cada indice del mismo al parametro correspondiente.

saludos.

BlackZeroX:
Cita de: Karcrack en 27 Marzo 2010, 13:03 pm

Tambien podrias hacer esto, no?
Código
Private Sub Form_Load()
   Dim vParams(1)  As Variant
 
   vParams(0) = "Hi ho"
   vParams(1) = 1500
   CallByName Me, "Mensaje", VbMethod, vParams()
End Sub
 
Public Sub Mensaje(ByRef vParams() As Variant)
   Call MsgBox(vParams(0), , vParams(1))
End Sub


la cosa que si algun parametro es distinto a variant por ejemplo una revoltura de variados parametros de distintos tipos NO FUNCIONA y este era mi problema y no me hubiera gustado estar convirtiendo dentro cada parametro al real.

Karcrack:
He estado investigando mas sobre TLI32 y es muy muy interesante... >:D

Código:

http://support.microsoft.com/kb/q224331/

 :D

BlackZeroX:
Cita de: Karcrack en 27 Marzo 2010, 18:24 pm

He estado investigando mas sobre TLI32 y es muy muy interesante... >:D

Código:

http://support.microsoft.com/kb/q224331/

 :D


No dije yo esto pero...:

Puedes obtener las funciones/procesos/Propiedades y sus parametros con sus tipos respectivos...

Sangrienta Luna Infernal!¡.

LeandroA:
che me gusto esa libreria mirando la ayuda vi que se pueden enumerar todas las constantes eventos funcion etc de una librerira

Código:

Private Sub Form_Load()

    Dim SIType As SearchItem
    Dim SIMember As SearchItem
    With TypeLibInfoFromFile("msvbvm60.dll")
      .SearchDefault = tliStConstants
      For Each SIType In .GetTypes
        For Each SIMember In .GetMembers(SIType.SearchData)
          Debug.Print SIMember, _
            .GetMemberInfo(SIType.SearchData, SIMember.InvokeKinds, SIMember.MemberId).Value
        Next
      Next
    End With

End Sub

Navegación

[0] Índice de Mensajes

[*] Página Anterior