...
Code examples in VB / VBA OLE and Pascal Scripting OLE below show examples of OLE access to the API.
...
API
...
Calls
VB/VBA (OLE)
Code Block |
---|
language | vb |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Using IItem Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
Sub main()
Dim planswift = CreateObject("PlanSwift9.PlanCenter")
Dim settings = planswift.GetItem("\Settings")
Dim property = settings.GetProperty("AllowExtenderDPI")
Console.WriteLn(property.ResultAsBoolean());
End Sub |
Code Block |
---|
language | vb |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Using PlanSwift Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
Sub Main()
Dim planswift = CreateObject("PlanSwift9.PlanCenter")
Dim nameProperty = planswift.GetProperty("\Settings","AllowExtenderDPI")
Console.WriteLn(property.ResultAsBoolean)
End Sub |
Pascal Scripting (OLE)
Code Block |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Item Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
begin
settings := getItem('\Settings');
ShowMessage(GetResultAsBoolean(settings,'AllowExtenderDPI'));
end |
Code Block |
---|
theme | RDark |
---|
title | Root Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
begin
ShowMessage(GetResultAsBoolean('\Settings','AllowExtenderDPI'));
end |