amir91
چهارشنبه 17 شهریور 1395, 12:07 عصر
سلام خدمت دوستان
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 عکس را داخل همین کدها قرار داد؟
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 عکس را داخل همین کدها قرار داد؟