在VB6中实现Kodak控件编程

实践篇

　　一、 Kodak图像编辑控件应用举例

　　1) ImgEdit控件的主要属性是控制扫描图像的分辨率、图像的宽高、是否允许对图像进行局部选择等；其主要方法有拷贝、剪切图像到粘贴板，从粘贴板复制图像，旋转、放缩、 镜像图像；打印、保存、刷新图像等。

　　下面是使用这个控件的一些小例。

‘从剪贴板粘贴图象 Private Sub Paste_Click() 　if (imgedit1.IsClipboardDataAvailable and imgedit1.ImageDisplayed ) then 　　‘从剪贴板粘贴图象，其参数为Imgedit的显示区域的起始坐标 　　imgedit1.ClipboardPaste(selleft,seltop) 　end if End Sub ‘镜像图像 Private Sub Flip_Click() 　if imgedit1.ImageDisplayed then 　　imgedit1.Flip ‘镜像图像 　end if End Sub ‘旋转图象 Private Sub Rotate_Click() 　if imgedit1.ImageDisplayed then 　　imgedit1.RotateRight ‘向右旋转图象 　end if End Sub ‘实现剪切 Private Sub Rotate_Click() 　imgedit1.DrawSelectionRect(selleft, seltop,selwidth,selheight) ‘进行图象局部选择 　imgedit1.ClipboardCut(selleft,seltop, selwidth,selheight) ‘剪切所选区域 End Sub

　　2) 另外，与ImgEdit控件绑定在一起的还有一个ImgAnnTool按钮控件，这一控件对应映像程序中的“批注”工具栏。下面这个例子可以通过“批注”工具栏操作ImgEdit控件中的图像。只需如下极简代码便OK。

Private Sub Form_Load() 　With ImgEdit1 　　.FitTo 0 'BEST_FIT 　　.DisplayBlankImage 1700, 2200 　　.ShowAnnotationToolPalette ‘随后可使用“批注”工具栏操作当前图像文件 　End With End Sub

　　二、Kodak图像扫描控件应用举例

　　1) ImgScan控件的主要属性有：

　　a、FileType：图像的文件类型（该构件支持三种：TIFF，BMP，AWD）；

　　b、ScanTo：返回或设置被扫描图像的目的；

可取值	含义
0 (缺省)	显示被扫描的图像.
1	显示被扫描的图像并写入一个文件.
2	把图像写入一个文件
3	以模板方式把图像写入文件并显示.
4.	以模板方式把图像写入文件
5	传真被扫描的图像

　　注意：如果取缺省值0，必须和 Wang ImgEdit 构件配合使用。

　　c、DestImageControl：Wang ImgEdit构件名；

　　d、Zoom：图像的放缩比例

　　2) ImgScan 的主要方法：

　　 OpenScanner ：打开扫描仪；

　　 CloseScanner ：关闭扫描仪；

　　 StartScan ： 开始扫描；

　　 StopScan ： 停止扫描

　　3) ImgScan使用举例

　　下面的程序段说明了如何使用Kodak图像扫描控件扫描一份文档，并把它保存在函数参数指定的文件名中。注意，窗体中Kodak图像扫描控件命名为ImgScan1。

Private Function ScanTheImage(ByVal TheImageFile As String) As Boolean 　Dim ReturnValue As Long 　Dim TestString As String 　If ImgScan1.ScannerAvailable then 　　ReturnValue = ImgScan1.OpenScanner() 　　ImgScan1.PageOption = 2 　　ImgScan1.FileType = 1 　　ImgScan1.PageType = 1 　　ImgScan1.CompressionType = 4 　　ImgScan1.CompressionInfo = 1 　　ImgScan1.ScanTo = 2 ‘保存为文件 　　ImgScan1.image = TheImageFile ‘图像将被保存 　　ImgScan1.ShowSetupBeforeScan = True 　　ImgScan1.MultiPage = True 　　ReturnValue = ImgScan1.StartScan() 　　DoEvents 　　ImgScan1.CloseScanner 　　TestString = Dir(TheImageFile) 　　If TestString <> "" Then 　　　ScanTheImage = True 　　End If 　Else 　　Msgbox “扫描设备尚不可用” 　　Exit function 　End If End Function

　　三、联合应用举例

　　本文附加了eiStream公司的Windows映像程序控件开发参考例程中的“Imaging Sample”一例（此程序在Windows 98/VB6下调试通过）。本例程对除了ImgOCR外四个自由控件的主要功能作了详细讨论。详见源程序” Imaging Sample.rar”。

　　四、小结

　　以上四个Kodak控件主要威力在于：图像注释功能、多页图像文件的的管理能力、缩略图预览功能、图像扫描功能。对于专业版本，还有图像OCR功能。以上仅为抛砖引玉，读者可以结合Windows的HELP文件夹下的帮助文件Imgocxd.hlp等有关资料详细研究。

查看本文来源