zoukankan      html  css  js  c++  java
  • Proe4.0使用VB.net生成缩略图方法

    Private Sub btnRasterImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRasterImage.Click
            Dim run As New pfcInterfaceExamples2
            Dim type As EpfcRasterType
            Try
                lblStatus.Text = ""
                If (txtImageFile.Text = "") Then
                    MsgBox("Please enter Image File name", MsgBoxStyle.Critical)
                ElseIf (txtImageType.Text = "") Then
                    MsgBox("Please select Image type", MsgBoxStyle.Critical)
                Else
                    Select Case txtImageType.Text
                        Case "BMP"
                            type = EpfcRasterType.EpfcRASTER_BMP
                        Case "JPEG"
                            type = EpfcRasterType.EpfcRASTER_JPEG
                        Case "TIFF"
                            type = EpfcRasterType.EpfcRASTER_TIFF
                        Case "EPS"
                            type = EpfcRasterType.EpfcRASTER_EPS
                        Case Else
                            MsgBox("Incorrect Image type", MsgBoxStyle.Critical)
                            Exit Sub
                    End Select
    
                    run.outputImageScreen(asyncConnection.Session, type, txtImageFile.Text)
                    lblStatus.Text = "Image Created"
    
                End If
            Catch ex As Exception
                lblStatus.Text = ""
                MsgBox(ex.Message.ToString + Chr(13) + ex.StackTrace.ToString)
            End Try
        End Sub
    
    Public Sub outputImageScreen(ByRef session As IpfcBaseSession, _
                                     ByVal type As Integer, _
                                     ByVal imageName As String)
            Dim instructions As IpfcRasterImageExportInstructions
            Dim imageExtension As String
            Dim rasterHeight As Double = 7.5
            Dim rasterWidth As Double = 10.0
            Dim dotsPerInch As Integer
            Dim imageDepth As Integer
    
            Try
                dotsPerInch = EpfcDotsPerInch.EpfcRASTERDPI_100
                imageDepth = EpfcRasterDepth.EpfcRASTERDEPTH_24
    
                instructions = getRasterInstructions(type, rasterWidth, _
                                                     rasterHeight, dotsPerInch, _
                                                     imageDepth)
    
                imageExtension = getRasterExtension(type)
    
                session.ExportCurrentRasterImage(imageName + imageExtension, instructions)
    
            Catch ex As Exception
                MsgBox(ex.Message.ToString + Chr(13) + ex.StackTrace.ToString)
            End Try
        End Sub

    作者:Joe.Fan
             
    本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。
  • 相关阅读:
    通过10g新特性得到PGA的调整建议
    震惊世界的中国秘方
    双休
    诺基亚的使用口令
    甲骨文承诺支持Sun硬件业务 闭口不谈MySQL
    ORACLE ERP 的前世今生
    企业渠道扩张千万别盲目
    已加密的pdf文件的解密方法
    AJAX跨域笔记
    php Could not execute xxx:__conroller
  • 原文地址:https://www.cnblogs.com/fanxingthink/p/4176160.html
Copyright © 2011-2022 走看看