Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
languagevb
themeRDark
firstline1
titleUsing IItem Object Model
linenumberstrue
collapsetrue
Sub main()
    Dim planswift = CreateObject("PlanSwift9.PlanCenter")
    Dim settings = planswift.GetItem("\Settings")
    Dim property = settings.GetProperty("NewAreaHotKey")
    Console.WriteLn(property.ResultAsInteger());
End Sub

...

Code Block
languagevb
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
collapsetrue
Sub Main()
    Dim planswift = CreateObject("PlanSwift9.PlanCenter")
    Dim nameProperty = planswift.GetProperty("\Settings","NewAreaHotKey")
    Console.WriteLn(property.ResultAsInteger)
End Sub

...

Code Block
themeRDark
firstline1
titleItem Object Model
linenumberstrue
collapsetrue
begin
    settings := getItem('\Settings');
    ShowMessage(GetResultAsInteger(settings,'NewAreaHotKey'));
end

...

Code Block
themeRDark
titleRoot Object Model
linenumberstrue
collapsetrue
begin
   ShowMessage(GetResultAsInteger('\Settings','NewAreaHotKey'));
end

...

Code Block
themeRDark
firstline1
titleItem Object Model
linenumberstrue
collapsetrue
begin
    settings := PlanSwift.getItem('\Settings');
    property := settings.GetProperty('NewAreaHotKey');
    ShowMessage(property.ResultAsInteger);
end

...

Code Block
themeRDark
titleUsing the PlanSwift Object Model
linenumberstrue
collapsetrue
begin
    property := PlanSwift.GetProperty('\Settings','NewAreaHotKey');
    ShowMessage(property.ResultAsInteger);
end

...