Imports Leadtools
Imports Leadtools.Twain
Public Sub TwainEnumerationCapabilityExample(ByVal parent As IntPtr)
Dim session As TwainSession = New TwainSession()
session.Startup(parent, "manufacturer", "productFamily", "version", "application", TwainStartupFlags.None)
Dim twCap As TwainCapability = New TwainCapability()
twCap.Information.ContainerType = TwainContainerType.Enumeration
twCap.Information.Type = TwainCapabilityType.ImageUnits
twCap.EnumerationCapability.Count = 2
twCap.EnumerationCapability.ItemType = TwainItemType.Uint16
Dim item As TwainCapabilityValue = TwainCapabilityValue.UnitInches
twCap.EnumerationCapability.SetValue(0, item)
twCap.EnumerationCapability.SetValue(1, TwainCapabilityValue.UnitTwips)
twCap.EnumerationCapability.CurrentIndex = 0
twCap.EnumerationCapability.DefaultIndex = 0
session.SetCapability(twCap, TwainSetCapabilityMode.Set)
session.Shutdown()
End Sub
using Leadtools;
using Leadtools.Twain;
public void TwainEnumerationCapabilityExample(IntPtr parent)
{
TwainSession session = new TwainSession();
session.Startup(parent, "manufacturer", "productFamily", "version", "application", TwainStartupFlags.None);
TwainCapability twCap = new TwainCapability();
twCap.Information.ContainerType = TwainContainerType.Enumeration;
twCap.Information.Type = TwainCapabilityType.ImageUnits;
twCap.EnumerationCapability.Count = 2;
twCap.EnumerationCapability.ItemType = TwainItemType.Uint16;
TwainCapabilityValue item = TwainCapabilityValue.UnitInches;
twCap.EnumerationCapability.SetValue(0, item);
twCap.EnumerationCapability.SetValue(1, TwainCapabilityValue.UnitTwips);
twCap.EnumerationCapability.CurrentIndex = 0;
twCap.EnumerationCapability.DefaultIndex = 0;
session.SetCapability(twCap, TwainSetCapabilityMode.Set);
session.Shutdown();
}