用MiDocView控件实现编辑.tif格式的文件,请问该如何操作呢?最好有代码,谢谢。

解决方案 »

  1.   

    正好也在找相关的代码,但是没有找到现成的,只是用goole找到了一些片断,自己再研究了下,代码如下:希望对以后有相同问题的人有所帮助.
    代码一: 只在miDocviewer中显示tif文件
    Private Sub Form_Load()
    Dim miDoc As MODI.Document
    Set miDoc = New MODI.DocumentmiDoc.Create "c:\fileName.tif"
    miDocviewer.Document = miDoc
     
    End Sub代码二:旋转tif文件90度,并保存为文件
    Private Sub Form_Load()
    Dim miDoc As MODI.Document
    Set miDoc = New MODI.Document
    Dim myImg As MODI.ImagemiDoc.Create "c:\chahua.tif"
    miDocviewer.Document = miDoc
    Set myImg = miDoc.Images(0)
     
    myImg.Rotate 90
    miDoc.SaveAs "C:\fileName.tif", miFILE_FORMAT_TIFF
     
    End Submy Email:fs87123#163.com
      

  2.   

    我晕  你们用的到底是 VB还是VC啊  Dim miDoc As MODI.Document 之后会出现错误。。
    会提示改成MODIctl
    而且 就算 没错误 到后来 也输不出来