...
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 |