Proe4.0使用VB.net生成缩略图方法
2024-10-08 19:11:50
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
最新文章
- 使用imeOptions
- Jetty使用攻略
- java compiler level does not match the version of the installed java project
- cojs 疯狂的重心 疯狂的机器人 题解报告
- 分享一个安卓中异步获取网络图片并自适应大小的第三方程序（来自github）
- opencv 中文文档地址
- css样式之背景图片
- Spring实例
- THUWC2018咸鱼记
- Linux 控制CPU使用率
- centos6.5上配置apache + mysql + php4.4.9 + eaccelerator-0.9.5 + postgresql-8.3.13 备忘
- 基于boot2docker部署Docker环境
- Invalid volume failure config value: 1
- 【Java】解析Java对XML的操作
- java基础篇---Servlet过滤器
- jQuery基础笔记（5）
- Python【经典类与新式类】
- 啸叫抑制（howling suppression）
- maven(15)，快照与发布，RELEASE与SNAPSHOT
- 【SYZOJ279】滑稽♂树（树套树）