using (ListLabel LL = new ListLabel())
{
// Define/Assign data source
LL.DataSource = CreateDataSet();
// Initialize function
DesignerFunction RegQuery = new DesignerFunction();
RegQuery.FunctionName = "RegQuery";
RegQuery.GroupName = "Registry";
RegQuery.MinimalParameters = 1;
RegQuery.MaximumParameters = 1;
RegQuery.ResultType = LlParamType.String;
RegQuery.EvaluateFunction += new EvaluateFunctionHandler(RegQuery_EvaluateFunction);
// Add function
LL.DesignerFunctions.Add(RegQuery);
// Call the designer
LL.Design();
}
// ...
void RegQuery_EvaluateFunction(object sender, EvaluateFunctionEventArgs e)
{
// Get registry key
RegistryKey key = Registry.CurrentUser.OpenSubKey(@"Software\combit\");
e.ResultValue = key.GetValue(e.Parameter1.ToString()).ToString();
}
Using LL As New ListLabel()
' Define/Assign data source
LL.DataSource = CreateDataSet()
' Initialize function
Dim RegQuery As New DesignerFunction()
RegQuery.FunctionName = "RegQuery"
RegQuery.GroupName = "Registry"
RegQuery.MinimalParameters = 1
RegQuery.MaximumParameters = 1
RegQuery.ResultType = LlParamType.[String]
RegQuery.EvaluateFunction += New EvaluateFunctionHandler(RegQuery_EvaluateFunction)
' Add function
LL.DesignerFunctions.Add(RegQuery)
' Call the designer
LL.Design()
End Using
' ...
Sub RegQuery_EvaluateFunction(sender As Object, e As EvaluateFunctionEventArgs) Handles RegQuery.EvaluateFunction
' Get registry key
Dim key As RegistryKey
RegistryKey = Registry.CurrentUser.OpenSubKey("Software\combit\")
e.ResultValue = key.GetValue(e.Parameter1.ToString()).ToString()
End Sub