اسکن و ذخیره اتوماتیک عکس در مسیر دلخواه

[amir91]

سلام خدمت دوستان
On Error GoTo t1:

MkDir CurrentProject.Path & "\photo\b"

t1:


Dim ComDialog As wia.CommonDialog
Dim img As wia.ImageFile

Set ComDialog = New wia.CommonDialog
Set img = New wia.ImageFile

Set img = ComDialog.ShowAcquireImage()
img.SaveFile CurrentProject.Path & "\photo\b\" & Me.meli_code & ".bmp"

Set img = Nothing



کد فوق عکس شخص را اسکن کرده و در پوشه مورد نظر با نام کدملی شخص ذخیره می کند.
سوال من این است که می توان contrast عکس را داخل همین کدها قرار داد؟

[sadegh55]

سلام خدمت دوستان
On Error GoTo t1:

MkDir CurrentProject.Path & "\photo\b"

t1:


Dim ComDialog As wia.CommonDialog
Dim img As wia.ImageFile

Set ComDialog = New wia.CommonDialog
Set img = New wia.ImageFile

Set img = ComDialog.ShowAcquireImage()
img.SaveFile CurrentProject.Path & "\photo\b\" & Me.meli_code & ".bmp"

Set img = Nothing



کد فوق عکس شخص را اسکن کرده و در پوشه مورد نظر با نام کدملی شخص ذخیره می کند.
سوال من این است که می توان contrast عکس را داخل همین کدها قرار داد؟

دوست عزيز در صورت امكان يه نمونه از برنامه رو بفرستيد

[amir91]

فایل نمونه
http://up.persianscript.ir/uploads2/6c39-scan.rar

[bemilove]

می تونید از برنامه این پست اسفاده کنید
http://barnamenevis.org/showthread.php?516593-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%AF%D8%A8%DB%8C%D8%B1%D8%AE%D8%A7%D9%86%D9%87-%D8%A7%D8%B3%DA%A9%D9%86-%D8%A7%D8%B3%D9%86%D8%A7%D8%AF