كود مسح ضوئي

كود المسح الضوئي الحالي

 EZTwain.SelectTwainsource(0) ' امر تحديد الاسكنر
            If My.Computer.FileSystem.FileExists(Application.StartupPath & "MyImage.tif") = True Then ' يتحقق إذا كان الصورة موجوده في الهارديسك بنفس الاسم ام لا 
                My.Computer.FileSystem.DeleteFile(Application.StartupPath & "MyImage.tif") ' في حال وجودها سيتم حذفها حتى يتمكن من حفظ الصورة الجديده
            End If
            EZTwain.AcquireToFileName(Me.Handle, Application.StartupPath & "MyImage.tif") ' يقوم باستخراج الصورة من الماسح الضوئي وحفظها في الهاردسك
            PictureBox1.ImageLocation = Application.StartupPath + "MyImage.tif" ' لجلب الصورة في البكتشر بوكس وعرضها

            OFD.FileName = Application.StartupPath + "MyImage.tif" ' لجلب موقع الصوره ووضعها في متغير
            If OFD.FileName = "" Then ' يتحقق هل المتغير فارغ لا يوجد فيه مسار لصورة ام لا
                Button2.Enabled = False
            Else
                Button2.Enabled = True
            End If