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
Proe4.0使用VB.net生成缩略图方法
最新推荐文章于 2021-04-11 10:53:27 发布