![]() ![]() If txtResizeResolution.Text = " " OrElse IsNumeric(txtResizeResolution.Text) = False Then OPdfImage.ScaleAbsolute(iWidthGoal, iHeightGoal)Įnd Sub Private Function FixedSize( ByVal imgPhoto As, _īyVal Width As Integer, ByVal Height As Integer) As If iAspectRatio < 1 Then ' Landscape image ' oImage.Save("C:\temp\folder1\Lilly_copy.jpg") End If OImage = FixedSize(oImage, iWidthGoal, iHeightGoal) IWidthGoal = iHeightPage * (iWidth / iHeight) IHeightGoal = iWidthPage * (iHeight / iWidth) OImage.Save(oMemoryStream, .Png)ĭim oImage2 As = (oMemoryStream)Įnd Sub Sub AddImage2( ByRef oImage As, ByRef oPdfDoc As, ByRef oPdfWriter As PdfWriter)ĭim iAspectRatio As Double = iWidth / iHeightĭim iWidthPage As Single = 0 Dim iHeightPage As Single = 0 If iAspectRatio iPageAspectRatio Then ' Width is too big OImage.SelectActiveFrame(, iPage)ĭim oMemoryStream As New IO.MemoryStream() ![]() OChapter.NumberDepth = 0 Dim oFileInfo As New FileInfo(sFromFilePath)Įnd Sub Sub AddPdf( ByVal sInFilePath As String, ByRef oPdfDoc As, ByRef oPdfWriter As PdfWriter)ĭim oDirectContent As = oPdfWriter.DirectContentĭim oPdfReader As = New (sInFilePath)ĭim iNumberOfPages As Integer = oPdfReader.NumberOfPagesĭim iPage As Integer = 0 Do While (i Then For iPage As Integer = 0 To iPageCount - 1 If chkBookmarks.Checked = False Then Exit Sub End If Dim oChapter As New ( " ", 0) Next End Sub Sub AddBookmark( ByRef oPdfDoc As, ByVal sFromFilePath As String) ProgressBar1.Value = 0 End If Dim oFolders As String() = Directory.GetDirectories(sFolderPath)įor i As Integer = 0 To oFolders.Length - 1 Dim sChildFolder As String = oFolders(i)ĭim iPos As Integer = sChildFolder.LastIndexOf( " \")ĭim sFolderName As String = sChildFolder.Substring(iPos 1) TxtOutput.Text = " Could not delete "
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |