Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
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