PdfFocusCImageOptionsResize(SKSize, Boolean) Method

public void Resize(
	SKSize sizeInPixels,
	bool preserveAspectRatio
)

Public Sub Resize ( 
	sizeInPixels As SKSize,
	preserveAspectRatio As Boolean
)

using System;
using System.IO;
using System.Drawing;
using SkiaSharp;

namespace Sample
{
    class Sample
    {
        static void Main(string[] args)
        {
                                  // Get your free 30-day key here:   
             // https://sautinsoft.com/start-for-free/

            //Convert PDF into specified Image height & width
            SautinSoft.PdfFocus f = new SautinSoft.PdfFocus();

            // Set initial values
            string pdfPath = Path.GetFullPath(@"..\..\..\Potato Beetle.pdf");
            string imageFolder = new DirectoryInfo(Directory.GetCurrentDirectory()).CreateSubdirectory("Result").FullName;
            int width = 1600; // Width in Px
            int height = 1900; // Height in Px

            //Set image options
            f.ImageOptions.ImageFormat = SautinSoft.PdfFocus.CImageOptions.ImageFormats.Png;
            f.ImageOptions.Resize(new SKSize { Width = width, Height = height }, false);

            f.OpenPdf(pdfPath);
            if (f.PageCount > 0)
            {
                // Convert all pages to PNG images
                f.ToImage(imageFolder, "Page");

                //Show image
                System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(imageFolder) { UseShellExecute = true });
            }
        }
    }
}

Imports System
Imports System.IO
Imports System.Drawing
Imports SkiaSharp

Namespace Sample
    Friend Class Sample
        Shared Sub Main(ByVal args() As String)
                                  ' Get your free 30-day key here:   
             ' https://sautinsoft.com/start-for-free/

            'Convert PDF into specified Image height & width
            Dim f As New SautinSoft.PdfFocus()

            ' Set initial values
            Dim pdfPath As String = Path.GetFullPath("..\..\..\Potato Beetle.pdf")
            Dim imageFolder As String = (New DirectoryInfo(Directory.GetCurrentDirectory())).CreateSubdirectory("Result").FullName
            Dim width As Integer = 1600 ' Width in Px
            Dim height As Integer = 1900 ' Height in Px

            'Set image options
            f.ImageOptions.ImageFormat = SautinSoft.PdfFocus.CImageOptions.ImageFormats.Png
            f.ImageOptions.Resize(New SKSize With {
                .Width = width,
                .Height = height
            }, False)

            f.OpenPdf(pdfPath)
            If f.PageCount > 0 Then
                ' Convert all pages to PNG images
                f.ToImage(imageFolder, "Page")

                'Show image
                System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(imageFolder) With {.UseShellExecute = True})
            End If
        End Sub
    End Class
End Namespace