Dim dr As DataRow = Tables("表A").Current.DataRowDim fl As String = ProjectPath & dr("第一列")msgbox(fl)
Dim Pdfv As new PDFView.ConvertPDF.PDFConvertDim pcb As WinForm.PictureBox = e.form.Controls("PictureBox1")
pcb.Image = Pdfv.GetPageFromPDF(fl, 1)