هدية للاعضاء مثال علي التعامل مع الماسح الضوئي

علي اما الاخوة المشرفين يسمحوا لنا خذوا هذا شرح لكيفية عمل البرنامج

1- تفتح برنامج فيجوال بيزك جديد

2- تضيف عن طريق قائمةProject ثم components الاداتين السابقتين

3- تعمل فورم جديد وتضيف فيه الاداتين وزر لتنفيذ الامر

4- تكتب تحت الزر الكود التالي

Private Sub Command1_Click()

ImgScan1.Image = "c:\Image.jpg"

ImgScan1.PageOption = OverwriteAllPages ' Create New file

ImgScan1.MultiPage = False

ImgScan1.ScanTo = DisplayAndFile

ImgEdit1.ClearDisplay

ImgEdit1.Image = "c:\Image.jpg"

If ImgScan1.ScannerAvailable Then

ImgScan1.OpenScanner

' ImgScan1.ShowSelectScanner

ImgScan1.StartScan

ImgScan1.CloseScanner

Else

MsgBox "íæÌÏ ãÔßáÉ Ýí ÇáãÇÓÍ ÇáÖæÆí"

Exit Sub

End If

ImgEdit1.Zoom = 22

ImgEdit1.Display

' Image1.Picture = Image2.Picture

End Sub