Xojo Conferences
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

WIAPropertyEnumeratorMBS class

Type Topic Plugin Version macOS Windows Linux Console & Web iOS
class Image Capture MBS Win Plugin 10.3 No Yes No Yes, Windows only No
Function: The class for a property enumerator.
Example:
Sub ListProperties(it as WIAItemMBS, plist as listbox)
// enumerate properties into a given listbox

// clear list
PList.DeleteAllRows

// get properties
dim p as WIAPropertyStorageMBS = it.PropertyStorage
if p<>Nil then
dim e as WIAPropertyEnumeratorMBS = p.Enumerate

if e<>nil then
dim ps as WIAPropertyMBS = e.NextItem

while ps<>Nil
// read the property value
dim v as Variant = p.Read(ps)

// get some identifier string for the listbox, name or id
dim k as string = ps.Name
if len(k)=0 then
k = str(ps.ID)
end if

PList.AddRow k

if v.Type = v.TypeObject then
if v isa WIAGUIDMBS then
dim g as WIAGUIDMBS = v
PList.Cell(PList.LastIndex,1)=g.DisplayString
else
PList.Cell(PList.LastIndex,1)="? some object" // should never happen
end if
else
PList.Cell(PList.LastIndex,1)=v.StringValue
end if

ps = e.NextItem
wend

end if
end if
End Sub

Feedback, Comments & Corrections

This class has no sub classes.

Some methods using this class:

Some examples which use this class:


The items on this page are in the following plugins: MBS Win Plugin.


WIAItemMBS   -   WIAPropertyMBS




Links
MBS Xojo Plugins