科技时代新浪首页 > 科技时代 > 软件 > 正文

在Visual Basic 6中实现Kodak控件编程(2)


http://www.sina.com.cn 2005年01月10日 13:47 天极yesky

  文/朱先中

  实践篇

  一、 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等有关资料详细研究。

[上一页]  [1]  [2]



评论】【应用软件】【推荐】【 】【打印】【下载点点通】【关闭
 

 
新 闻 查 询
关键词



热 点 专 题
印度洋地震海啸
部分大豆色拉油不合格
杨振宁登记结婚
意甲在线足球经理游戏
2005新春购车完全手册
岁末年初汽车降价一览
2005年新春购房指南
2004地产网络营销盘点
天堂II 玩转港澳指南

 
 



科技时代意见反馈留言板 电话:010-82628888-5828   欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

Copyright © 1996 - 2005 SINA Inc. All Rights Reserved

版权所有 新浪网