کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

ImageFile object




Holds images transferred to your computer when you call Transfer or ShowTransfer. The ImageFile object is a container. It also supports image files through LoadFile. An ImageFile object can be created using 

WIA.ImageFile" as the ProgID in a call to CreateObject"


Methods

The ImageFile object has these methods.

TABLE 1
MethodDescription
LoadFileLoads the ImageFile object with the specified file.
SaveFileSaves the ImageFile object to the specified file.

Properties


used as variable say ADFstatus that reads whether there is still a paper in the feeder and used this to create a while loop.(wiaScanner.Properties.Item("3087")). I then saved each scanned image separately, and it causes the ADF scanner to stop after each scan instead of scanning all papers at once.


("createobject("WIA.ImageFile


Dim wiaImg As WIA.ImageFile
ADFStatus=wiaScanner.Properties.Item("3087").Value
counter = 0

While ADFStatus 
counter = counter + 1
Set wiaImg=wiaScanner.Items(1).Transfer(WIA.FormatID.wiaFormatBMP)
wiaImg.SaveFile ("C:\Test\" & counter & ".bmp")
Set wiaImg=Nothing
ADFStatus=wiaScanner.Properties.Item("3087").Value Wend



Indicates the file format of an image as String versions of GUIDs.

TABLE 1
Constant/valueDescription
wiaFormatBMP
{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}
FormatID for the Windows BMP format.
wiaFormatPNG
{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}
FormatID for the PNG format.
wiaFormatGIF
{B96B3CB0-0728-11D3-9D7B-0000F81EF32E}
FormatID for the GIF format.
wiaFormatJPEG
{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}
FormatID for the JPEG format.
wiaFormatTIFF
{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}
FormatID for the TIFF format.