WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE COM ADO CDO ADSI LDAP
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Windows Image Acquisition

 Keywords: Windows Image Acquisition WIA WIA.CommonDialog Device Scanner

; Display Detailed Property Information
; The following example shows how to display detailed information about all the properties on the selected device.
;  Detlev Dalitz
;  DD.20100118.1919.CET

; Enum WiaSubType
UnspecifiedSubType = 0
RangeSubType = 1
ListSubType = 2
FlagSubType = 3
; End Enum


; Dim dev 'As Device
; Dim p 'As Property
; Dim s 'As String
; Dim i 'As Integer

CommonDialog1 = ObjectCreate ("WIA.CommonDialog")
dev = CommonDialog1.ShowSelectDevice
ForEach p In dev.Properties
   s = p.Name : "(" : p.PropertyID : ") = "
   If p.IsVector
      s = s : "[vector of data]"
   Else
      s = s : p.Value
      If p.SubType != UnspecifiedSubType
         If p.Value != p.SubTypeDefault
            s = s : "(Default = " : p.SubTypeDefault : ")"
         EndIf
      EndIf
   EndIf
   If p.IsReadOnly
      s = s : " [READ ONLY]"
   Else
      Select p.SubType
      Case FlagSubType
         s = s : " [ valid flags include:"
         For i = 1 To p.SubTypeValues.Count
            s = s : p.SubTypeValues(i)
            If i != p.SubTypeValues.Count
               s = s : ", "
            EndIf
         Next
         s = s : " ]"
         Break
      Case ListSubType
         s = s : " [ valid values include:"
         For i = 1 To p.SubTypeValues.Count
            s = s : p.SubTypeValues(i)
            If i != p.SubTypeValues.Count
               s = s : ", "
            EndIf
         Next
         s = s : " ]"
         Break
      Case RangeSubType
         s = s : " [ valid values in the range from " : p.SubTypeMin : " to " : p.SubTypeMax : " in increments of " : p.SubTypeStep : " ]"
         Break
      EndSelect
   EndIf
   Message ("", s)
Next
Exit

Article ID:   W18030
Filename:   Windows Image Acquisition .txt
File Created: 2010:01:19:09:25:22
Last Updated: 2010:01:19:09:25:22