参考代码
'--------------------------------------------------以下分解PDF为图片
If e.Form.Controls("TextBox1").text <> "" Then 'PDF文件已获取
Dim Pdfv As new PDFView.ConvertPDF.PDFConvert
Dim pcb As WinForm.PictureBox = e.form.Controls("照片")
Dim path1 As String = e.Form.Controls("TextBox1").text '获取的PDF文件路径
Dim finfo As new FileInfo(path1)
For i As Integer = 1 To _pdfWrapper.PageCount '遍历PDF的页数
'If i Mod 20 = 0 Then
'_pdfWrapper.dispose
'_pdfWrapper = Nothing
'gc.collect
'_pdfWrapper = new PDFLibNet.PDFWrapper()
'_pdfWrapper.LoadPDF(path1)
'End If
Dim path As String = ProjectPath & "Attachments\" & "PDF" & finfo.Name.substring(0,finfo.Name.LastIndexOf(".")) & "-" & i & ".jpg" '为每页图片命名并存储
_pdfWrapper.ExportJpg(path, i, i, 72, 90) '路径,页数,页数,dpi,质量
Do While _pdfWrapper.IsJpgBusy = True
Threading.Thread.Sleep(100)
Loop
Dim inf As new FileInfo(path)
Dim ndr As DataRow = DataTables("图片列表").addnew '将图片信息写入表(通过表事件写入ListView1)
ndr("全路径") = path
ndr("文件名") = inf.Name
ndr("时间") = Date.Now
Next
Else
Return
End If
'Dim lvw As WinForm.ListView = Forms("文字识别").Controls("ListView1")
''lvw.CheckBoxes = True
'lvw.AllowDrag = True '允许拖动行
'lvw.AllowDrop = True '允许接收拖动过来的行
'
'lvw.StopRedraw() '暂停绘制
'lvw.Rows.Clear() '清除原来的行
'lvw.Images.Clear() '清除原来的图片
'lvw.View = ViewMode.LargeIcon '显示模式为 大图标
'lvw.Images.LargeSize = New Size(70,99) '定义大图标尺寸
'For Each dr As DataRow In DataTables("图片列表").DataRows '从数据表中提取数据
'Dim Key As String = dr("文件名") '获取此员工的照片文件
'lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值
'Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
'vr.Text = dr("文件名") '设置标题
'vr.ImageKey = Key '设置图片键值
'Next
'lvw.ResumeRedraw() '恢复绘制
加好友 
发短信
Post By：2018/4/20 17:06:00 [只看该作者]
