其实98、2000就有自带的控件可以用的,可以适用任何扫描仪。
控件名:kodak 图像编辑控制——含2个控件:ImgEdit
ImgAnnTool
kodak 图像扫描控制——含1个控件: ImgScan设置ImgScan1的destimagecontrol属性为需要显示扫描图片的imgedit控件名
使用范例如下:
ImgScan1.OpenScanner
ImgScan1.Image = app.path+"1.bmp"
ImgScan1.FileType = BMP_Bitmap
ImgScan1.StartScan
ImgEdit
ImgScan1.CloseScanner
控件名:kodak 图像编辑控制——含2个控件:ImgEdit
ImgAnnTool
kodak 图像扫描控制——含1个控件: ImgScan设置ImgScan1的destimagecontrol属性为需要显示扫描图片的imgedit控件名
使用范例如下:
ImgScan1.OpenScanner
ImgScan1.Image = app.path+"1.bmp"
ImgScan1.FileType = BMP_Bitmap
ImgScan1.StartScan
ImgEdit
ImgScan1.CloseScanner
并且还带有在线帮助. 在windows 97中有它的1.0版本,windows 98是2.1版本.并且在Win97中带有VB制作的例子,
只要安装Win97就有,它的存放路径是windows\wangsamp
此控件有四组功能,分别为:(控件的详细使用方法可以看windows\help\wangocxd.hlp) kodak 图像编辑控件 ImgEdit.ocx kodak 图像管理控件 ImgAdmin.ocx kodak 图像扫描控件 ImgScan.ocx kodak 图像缩略图控件 ImgThumb.ocx
.
.
.
ImgEdit '不要
ImgScan1.CloseScanner
兄弟个\给你写了一点
单我没有扫描仪,你自己试试在网页上用<OBJECT>标签的引用方法<OBJECT classid="clsid:6D940280-9F11-11CE-83FD-02608C3EC08A" id=ImgEdit1 style="LEFT: 0px; TOP: 0px" VIEWASTEXT>
<PARAM NAME="_Version" VALUE="131073">
<PARAM NAME="_ExtentX" VALUE="2646">
<PARAM NAME="_ExtentY" VALUE="1323">
<PARAM NAME="_StockProps" VALUE="96">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="Image" VALUE="">
<PARAM NAME="AnnotationImage" VALUE="">
<PARAM NAME="StatusCode" VALUE="0">
<PARAM NAME="ImageControl" VALUE="ImgEdit1">
<PARAM NAME="SelectionRectangleEnabled" VALUE="1">
<PARAM NAME="AnnotationType" VALUE="0">
<PARAM NAME="Page" VALUE="1">
<PARAM NAME="Zoom" VALUE="100">
<PARAM NAME="AnnotationLineStyle" VALUE="0">
<PARAM NAME="AnnotationLineWidth" VALUE="2">
<PARAM NAME="AnnotationLineColor" VALUE="255">
<PARAM NAME="AnnotationBackColor" VALUE="65535">
<PARAM NAME="AnnotationFillStyle" VALUE="0">
<PARAM NAME="AnnotationFillColor" VALUE="255">
<PARAM NAME="AnnotationFontColor" VALUE="0">
<PARAM NAME="AnnotationStampText" VALUE="">
<PARAM NAME="AnnotationTextFile" VALUE="">
<PARAM NAME="AutoRefresh" VALUE="0">
<PARAM NAME="DisplayScaleAlgorithm" VALUE="0">
<PARAM NAME="ImagePalette" VALUE="0">
<PARAM NAME="ScrollBars" VALUE="1">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="ScrollShortcutsEnabled" VALUE="1">
<PARAM NAME="UndoLevels" VALUE="0">
<PARAM NAME="UndoScope" VALUE="3">
<PARAM NAME="UndoBufferSize" VALUE="86802688">
<PARAM NAME="OcrZoneVisibility" VALUE="-5360">
<PARAM NAME="AnnotationOcrType" VALUE="0">
<PARAM NAME="UseCheckContinuePrinting" VALUE="0">
<PARAM NAME="ContinuePrinting" VALUE="0">
<PARAM NAME="ContinueWithoutUndo" VALUE="1">
<PARAM NAME="DisplayICMEnabled" VALUE="0"></OBJECT>
<OBJECT classid="clsid:84926CA0-2941-101C-816F-0E6013114B7F" id=ImgScan1 style="LEFT: 0px; TOP: 0px" VIEWASTEXT>
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="847">
<PARAM NAME="_ExtentY" VALUE="847">
<PARAM NAME="_StockProps" VALUE="0">
<PARAM NAME="DestImageControl" VALUE="">
<PARAM NAME="Image" VALUE="">
<PARAM NAME="Page" VALUE="1">
<PARAM NAME="Scroll" VALUE="1">
<PARAM NAME="StopScanBox" VALUE="0">
<PARAM NAME="PageCount" VALUE="32767">
<PARAM NAME="PageOption" VALUE="1">
<PARAM NAME="StatusCode" VALUE="0">
<PARAM NAME="FileType" VALUE="1">
<PARAM NAME="PageType" VALUE="1">
<PARAM NAME="CompressionType" VALUE="3">
<PARAM NAME="CompressionInfo" VALUE="8">
<PARAM NAME="MultiPage" VALUE="0">
<PARAM NAME="ScanTo" VALUE="0">
<PARAM NAME="Zoom" VALUE="100">
<PARAM NAME="ShowSetupBeforeScan" VALUE="1"></OBJECT><SCRIPT LANGUAGE=javascript>
<!--
ImgScan1.OpenScanner
ImgScan1.Image = "c:\aaa\"+"1.bmp"
ImgScan1.FileType = BMP_Bitmap
ImgScan1.StartScan
ImgScan1.CloseScanner//-->
</SCRIPT>