|
Dobrý den, mám aplikaci, která umožňuje volat ActiveX programy takto: myobj = CreateObject("MyAFLObject.Class1"); Graph1 = myobj.IIR2(Close, 0.2, 1.2, -0.4); Chtěl bych si napsat vlastní ActiveX DLL ve Visual Basic 2005 Express, abych jí volat, předat parametery a přijmout výsledky. Mám příklad pro VB6, který mi ale ve Visual Basic 2005 Express nefunguje. Můžete mě prosím navést jak na to? Díky Martin Příklad: ve VB6 Mám si vytvořit nový projekt typu ActiveX/DLL, v něm Class1 a do Class1 vložit následující funkci, překompilovat a volat z aplikace. Public Function IIR2(InputArray() As Variant, f0 As Variant, f1 As Variant, f2 As Variant) As Variant Dim Result() ReDim Result(UBound(InputArray)) ' size the Result array to match InputArray 'initialize first two elements Result(0) = InputArray(0) Result(1) = InputArray(1) For i = 2 To UBound(InputArray) Result(i) = f0 * InputArray(i) + f1 * Result(i - 1) + f2 * Result(i - 2) Next IIR2 = Result End Function
|