ش | ی | د | س | چ | پ | ج |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
8 | 9 | 10 | 11 | 12 | 13 | 14 |
15 | 16 | 17 | 18 | 19 | 20 | 21 |
22 | 23 | 24 | 25 | 26 | 27 | 28 |
29 | 30 |
CommonDialog Object
محتوی تمام متدهایی است که UI ( رابط کاربری یا User Interface ) را نشان میدهد و باید "WIA.CommonDialog" با CreateObject ساخته شود یا CommonDialog در فرم آورده شود.
Methods
ShowAcquireImage
نمایش یک یا چند دایالوگ باکس که یوزر را قادر سازد تا تصویر را از دستگاه مربوطع سازد بگیرد.
ShowAcquisitionWizard
ویزارد اسکنر و دوربین را فعال می کند ( نمایش )
ShowDeviceProperties
نمایش پراپرتی های دیالوگ باکس دستگاه یا Device مربوطه
ShowItemProperties
نمایش آیتم های دیالوگ باکس دستگاه یا Device مربوطه
باز شدن پنجره ی اسکنر
Dim Img
Dim CommonDialog1
Set CommonDialog1=CreateObject("Wia.CommonDialog
Set Img = CommonDialog1.ShowAcquire
(Img.SaveFile (Img
میشود لوپ زد و پراپرتی های مربوطه رو گرفت For Each Prp In
کپی در Word البته در خود Word نوشته شده مربوط به اکسس نیست
objImage.SaveFile strPath ' save into temporary file
' Insert in Word Document
Selection.InlineShapes.AddPicture
strPath
'Requires a reference to Microsoft Windows Image Acquisition Object Library
Dim Img 'As ImageFile _ )Set Img=CommonDialog1.ShowAcquireImage
_ ,UnspecifiedDeviceType
_ ,TextIntent
_ ,MaximizeQuality
( wiaFormatGIaf
(ScanDev=CommonDialog1.ShowSelectDevice(1,False,False
("Set img=CreateObject("Wia.ImageFile
(ScanDev.Items(1).Transfer(WiaFormatBMP