DialogForm Objekt

Mit diesem Objekt können Sie eigene Dialoge gestalten und per Script darauf zugreifen.

Beispiel VBScript:

Option Explicit

Dim oDlgObj

Set oDlgObj = cRM.DialogForm

WScript.ConnectObject oDlgObj,"DIALOG_"

oDlgObj.DialogTitle = "DialogForm"

oDlgObj.DefineVariableStart

oDlgObj.DefineVariable "Var1", 0, "C", 20, "0", ""

oDlgObj.DefineVariable "Var2", 0, "N", 20, "3", ""

oDlgObj.DefineFctStart

oDlgObj.DefineFct "OK", "Bestätigen", True, False, vbOK

oDlgObj.DefineFct "Abbrechen", "Beenden", True, False, vbCancel

oDlgObj.DefineFct "Event", "Event", False, True, -1

oDlgObj.DLIPath = " %PRJDIR%\Test.dli"

oDlgObj.Sizable = True

oDlgObj.SizeToContent = False

oDlgObj.WidthInPixel = 640

oDlgObj.HeightInPixel = 480

oDlgObj.Show

Dim contents

contents = ""

oDlgObj.GetVariableContentsVariant "Var2", contents

MsgBox "Var2: " & contents

oDlgObj.GetVariableContentsVariant "Var1", contents

MsgBox "Var1: " & contents

' Ereignis, bei dem CauseCallback = true aufgerufen wird

Sub DIALOG_ExecuteFct(sName)

    MsgBox "Event: " & sName

End Sub

MsgBox "Ende"

WScript.DisconnectObject oDlgObj

Set oDlgObj = Nothing

Beispiel C#-Script:

public static void Main()

{

    long OK = 1;

    long CANCEL = 2;

    long ABORT = 3;

    long RETRY = 4;

    long IGNORE = 5;

    long YES = 6;

    long NO = 7;

    DialogForm dlgObj = cRM.DialogForm;

    dlgObj.DialogTitle = "DialogForm";

    dlgObj.DefineVariableStart();

    dlgObj.DefineVariable("Var1", 0, "C", 20, 0, "");

    dlgObj.DefineVariable("Var2", 0, "N", 20, 3, "");

    dlgObj.DefineFctStart();

    dlgObj.DefineFct("OK", "Bestätigen", true, false, OK);

    dlgObj.BindFctHandler("OK", ButtonOK);

    dlgObj.DefineFct("Abbrechen", "Beenden", true, false, CANCEL);

    dlgObj.BindFctHandler("Abbrechen", ButtonCancel);

    dlgObj.DefineFct("Event", "Event", false, true, -1);

    dlgObj.BindFctHandler("Event", ButtonEvent);

    dlgObj.DLIPath = @"%PRJDIR%\Test.dli";

    dlgObj.Sizable = true;

    dlgObj.SizeToContent = false;

    dlgObj.WidthInPixel = 640;

    dlgObj.HeightInPixel = 480;

    dlgObj.Show();

    object contents = null;

    dlgObj.GetVariableContentsVariant("Var2", ref contents);

    MessageBox.Show("Var2: " + contents.ToString(), cRM.AppTitle, MessageBoxButtons.OK);

    dlgObj.GetVariableContentsVariant("Var1", ref contents);

    MessageBox.Show("Var1: " + contents.ToString(), cRM.AppTitle, MessageBoxButtons.OK);

}

public static void ButtonOK()

{

    MessageBox.Show("Die Schaltfläche \"OK\" wurde betätigt.", cRM.AppTitle, MessageBoxButtons.OK);

}

public static void ButtonCancel()

{

    MessageBox.Show("Die Schaltfläche \"Abbrechen\" wurde betätigt.", cRM.AppTitle, MessageBoxButtons.OK);

}

public static void ButtonEvent()

{

    MessageBox.Show("Die Schaltfläche \"Event\" wurde betätigt.", cRM.AppTitle, MessageBoxButtons.OK);

}