combit List & Label - Programmierer-Referenz - combit GmbH

Arbeiten mit den Komponenten
116
wird
Visible Gibt an, ob die Funktion im Assistenten angezeigt wird oder
nicht
MinimumParameters Die minimale Anzahl von Parametern. Gültig sind Werte zwischen
0 und 4.
MaximumParameters Die maximale Anzahl von Parametern. Gültig sind auch hier
Werte zwischen 0 und 4. Der Wert muss gleich oder größer der
minimalen Anzahl sein. Eine größere Anzahl ergibt optionale
Parameter.
ResultType Der Datentyp des Rückgabewerts
Mithilfe der Eigenschaften können Sie die neue Designerfunktion individuell einstellen.
Die Parameter für die Designerfunktionen werden im Quellcode festgelegt. Dies kann
wie folgt aussehen:
Private Sub InitializeDesFunction()
Dim param1 As DesignerFunctionsParameter
Dim param2 As DesignerFunctionsParameter
Set param1 = DesFunc_Add.Parameter1
param1.Description = "First Value"
param1.Type = LlParamType.ParamType_Double
Set param2 = DesFunc_Add.Parameter2
param2.Description = "Second Value"
param2.Type = LlParamType.ParamType_Double
DesFunc_Add.ParentComponent = ListLabel1
End Sub
Um die Funktion schließlich zum Leben zu erwecken, müssen Sie das Ereignis Des-
Func_Add_EvaluateFunction behandeln. Über die Ereignisargumente erhalten Sie Zugriff
auf die vom Benutzer eingegebenen Parameter. Um beispielsweise die Summe der
beiden Parameter zurück zu liefern, verwenden Sie folgende Zeilen:
Private Sub DesFunc_Add_EvaluateFunction(ResultValue As Variant, ResultType As
CMLL15FXLibCtl.LlParamType, DecimalPositions As Long, ByVal Parameters As Long, ByVal Parameter1
As Variant, ByVal Parameter2 As Variant, ByVal Parameter3 As Variant, ByVal Parameter4 As
Variant)
ResultValue = CDbl(Parameter1) + CDbl(Parameter2)
ResultType = ParamType_Double
End Sub