+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : التقاط صورة من الماسح الضوئي scanner (/showthread.php?tid=6015)
التقاط صورة من الماسح الضوئي scanner - RaggiTech - 17-10-12
كاتب الموضوع : Boutemine Oualid
عليك أولا بتنزيل الملف الموجود في المرفقات و هو مكتبة TWAIN الخاصة بالتحكم في الكاميرات و الماسح الضوئيالملف في المرفقات
كود :
[color=#0000ff]Declare[/color] [color=#0000ff]Function[/color] TWAIN_AcquireToClipboard [color=#0000ff]Lib[/color] "[color=#8b0000]EZTW32.DLL[/color]" ([color=#0000ff]ByVal[/color] hwndApp&, [color=#0000ff]ByVal[/color] wPixTypes&) [color=#0000ff]As[/color] [color=#0000ff]Long[/color]
[color=#0000ff]Declare[/color] [color=#0000ff]Function[/color] TWAIN_SelectImageSource [color=#0000ff]Lib[/color] "[color=#8b0000]EZTW32.DLL[/color]" ([color=#0000ff]ByVal[/color] hwndApp&) [color=#0000ff]As[/color] [color=#0000ff]Long[/color]
[color=#008000]'عملية التقاط صورة من الماسح الضوئي ووضعها في خلفية النافذة[/color]
R = TWAIN_SelectImageSource([color=#0000ff]Me[/color].hwnd)
[color=#008000]R : هي قيمة تمكنك من معرفة نتيجة العملية'[/color]
[color=#008000]'اذا كانت 0 فهناك خطأ وإلا فالعملية تمت بنجاح[/color]
[color=#008000]'Refresh لاعادة رسم منطقة هيكل النافذة[/color]
Me.Refersh
[color=blue]If[/color] R = 0 [color=blue]then[/color]
msgbox ("Error: لا يمكن التقاط الصورة")
[color=blue]end[/color] [color=blue]if[/color]
[color=#008000]عملية التقاط الصورة من الماسح الضوئي ' ووضعها في الClipBoard[/color]
R = TWAIN_AcquireToClipboard([color=#0000ff]Me[/color].hwnd, 0)
Image1.Picture = Clipboard.GetData(vbCFDIB)