Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks

Namespace PDF_Viewer
	Partial Public Class SaveService
		Public Partial Private Sub SaveAndView(ByVal filename As String, ByVal contentType As String, ByVal stream As MemoryStream)
		End Sub
	End Class
End Namespace

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks

Namespace PDF_Viewer
	Partial Public Class SaveService
		Public Partial Private Sub SaveAndView(ByVal filename As String, ByVal contentType As String, ByVal stream As MemoryStream)
		End Sub
	End Class
End Namespace

Imports Windows.Storage
Imports Windows.Storage.Pickers
Imports Windows.Storage.Streams
Imports Windows.UI.Popups

Namespace PDF_Viewer
    Partial Public Class SaveService
        Public Async Sub SaveAndView(filename As String, contentType As String, stream As MemoryStream)
            Dim stFile As StorageFile
            Dim extension As String = Path.GetExtension(filename)
            'Gets process windows handle to open the dialog in application process.
            Dim windowHandle As IntPtr = System.Diagnostics.Process.GetCurrentProcess().MainWindowHandle
            If Not Windows.Foundation.Metadata.ApiInformation.IsTypePresent("Windows.Phone.UI.Input.HardwareButtons") Then
                'Creates file save picker to save a file.
                Dim savePicker As New FileSavePicker()
                savePicker.DefaultFileExtension = ".pdf"
                savePicker.SuggestedFileName = filename
                'Saves the file as PDF file.
                savePicker.FileTypeChoices.Add("PDF", New List(Of String)() From {".pdf"})

                WinRT.Interop.InitializeWithWindow.Initialize(savePicker, windowHandle)
                stFile = Await savePicker.PickSaveFileAsync()
            Else
                Dim local As StorageFolder = ApplicationData.Current.LocalFolder
                stFile = Await local.CreateFileAsync(filename, CreationCollisionOption.ReplaceExisting)
            End If

            If stFile IsNot Nothing Then
                Using zipStream As IRandomAccessStream = Await stFile.OpenAsync(FileAccessMode.ReadWrite)
                    'Writes compressed data from memory to file.
                    Using outstream As Stream = zipStream.AsStreamForWrite()
                        outstream.SetLength(0)
                        'Saves the stream as file.
                        Dim buffer() As Byte = stream.ToArray()
                        outstream.Write(buffer, 0, buffer.Length)
                        outstream.Flush()
                    End Using
                End Using

                'Create message dialog box.
                Dim msgDialog As New MessageDialog("Do you want to view the document?", "File has been created successfully")
                Dim yesCmd As New UICommand("Yes")
                msgDialog.Commands.Add(yesCmd)
                Dim noCmd As New UICommand("No")
                msgDialog.Commands.Add(noCmd)

                WinRT.Interop.InitializeWithWindow.Initialize(msgDialog, windowHandle)

                'Showing a dialog box.
                Dim cmd As IUICommand = Await msgDialog.ShowAsync()
                If cmd.Label = yesCmd.Label Then
                    'Launch the saved file.
                    Await Windows.System.Launcher.LaunchFileAsync(stFile)
                End If
            End If
        End Sub
    End Class
End Namespace

Imports Windows.Storage
Imports Windows.Storage.Pickers
Imports Windows.Storage.Streams
Imports Windows.UI.Popups

Namespace PDF_Viewer
    Partial Public Class SaveService
        Public Async Sub SaveAndView(filename As String, contentType As String, stream As MemoryStream)
            Dim stFile As StorageFile
            Dim extension As String = Path.GetExtension(filename)
            'Gets process windows handle to open the dialog in application process.
            Dim windowHandle As IntPtr = System.Diagnostics.Process.GetCurrentProcess().MainWindowHandle
            If Not Windows.Foundation.Metadata.ApiInformation.IsTypePresent("Windows.Phone.UI.Input.HardwareButtons") Then
                'Creates file save picker to save a file.
                Dim savePicker As New FileSavePicker()
                savePicker.DefaultFileExtension = ".pdf"
                savePicker.SuggestedFileName = filename
                'Saves the file as PDF file.
                savePicker.FileTypeChoices.Add("PDF", New List(Of String)() From {".pdf"})

                WinRT.Interop.InitializeWithWindow.Initialize(savePicker, windowHandle)
                stFile = Await savePicker.PickSaveFileAsync()
            Else
                Dim local As StorageFolder = ApplicationData.Current.LocalFolder
                stFile = Await local.CreateFileAsync(filename, CreationCollisionOption.ReplaceExisting)
            End If

            If stFile IsNot Nothing Then
                Using zipStream As IRandomAccessStream = Await stFile.OpenAsync(FileAccessMode.ReadWrite)
                    'Writes compressed data from memory to file.
                    Using outstream As Stream = zipStream.AsStreamForWrite()
                        outstream.SetLength(0)
                        'Saves the stream as file.
                        Dim buffer() As Byte = stream.ToArray()
                        outstream.Write(buffer, 0, buffer.Length)
                        outstream.Flush()
                    End Using
                End Using

                'Create message dialog box.
                Dim msgDialog As New MessageDialog("Do you want to view the document?", "File has been created successfully")
                Dim yesCmd As New UICommand("Yes")
                msgDialog.Commands.Add(yesCmd)
                Dim noCmd As New UICommand("No")
                msgDialog.Commands.Add(noCmd)

                WinRT.Interop.InitializeWithWindow.Initialize(msgDialog, windowHandle)

                'Showing a dialog box.
                Dim cmd As IUICommand = Await msgDialog.ShowAsync()
                If cmd.Label = yesCmd.Label Then
                    'Launch the saved file.
                    Await Windows.System.Launcher.LaunchFileAsync(stFile)
                End If
            End If
        End Sub
    End Class
End Namespace

Imports Microsoft.VisualBasic

Private Sub UrlToPdf(ByVal sender As Object, ByVal e As EventArgs)
	If Not String.IsNullOrEmpty(URL.Text) Then
		Dim renderer = New IronPdf.ChromePdfRenderer()
		Dim pdf = renderer.RenderUrlAsPdf(URL.Text.Trim())
		Dim saveService As New SaveService()
		saveService.SaveAndView("URLtoPDF.pdf", "application/pdf", pdf.Stream)
		DisplayAlert("Success", "PDF from URL Created!", "OK")
	Else
		DisplayAlert("Error", "Field can't be empty! " & vbLf & "Please enter URL!", "OK")
	End If

End Sub

Imports Microsoft.VisualBasic

Private Sub UrlToPdf(ByVal sender As Object, ByVal e As EventArgs)
	If Not String.IsNullOrEmpty(URL.Text) Then
		Dim renderer = New IronPdf.ChromePdfRenderer()
		Dim pdf = renderer.RenderUrlAsPdf(URL.Text.Trim())
		Dim saveService As New SaveService()
		saveService.SaveAndView("URLtoPDF.pdf", "application/pdf", pdf.Stream)
		DisplayAlert("Success", "PDF from URL Created!", "OK")
	Else
		DisplayAlert("Error", "Field can't be empty! " & vbLf & "Please enter URL!", "OK")
	End If

End Sub

Imports Microsoft.VisualBasic

Private Sub HtmlToPdf(ByVal sender As Object, ByVal e As EventArgs)
	If Not String.IsNullOrEmpty(HTML.Text) Then
		Dim renderer = New IronPdf.ChromePdfRenderer()
		Dim pdf = renderer.RenderHtmlAsPdf(HTML.Text)
		Dim saveService As New SaveService()
		saveService.SaveAndView("IronPDF HTML string.pdf", "application/pdf", pdf.Stream)
		DisplayAlert("Success", "PDF from HTML Created!", "OK")
	Else
		DisplayAlert("Error", "Field can't be empty! " & vbLf & "Please enter valid HTML!", "OK")
	End If
End Sub

Imports Microsoft.VisualBasic

Private Sub HtmlToPdf(ByVal sender As Object, ByVal e As EventArgs)
	If Not String.IsNullOrEmpty(HTML.Text) Then
		Dim renderer = New IronPdf.ChromePdfRenderer()
		Dim pdf = renderer.RenderHtmlAsPdf(HTML.Text)
		Dim saveService As New SaveService()
		saveService.SaveAndView("IronPDF HTML string.pdf", "application/pdf", pdf.Stream)
		DisplayAlert("Success", "PDF from HTML Created!", "OK")
	Else
		DisplayAlert("Error", "Field can't be empty! " & vbLf & "Please enter valid HTML!", "OK")
	End If
End Sub

Private Sub FileToPdf(ByVal sender As Object, ByVal e As EventArgs)
	Dim renderer = New IronPdf.ChromePdfRenderer()
	Dim pdf = renderer.RenderHtmlFileAsPdf("C:\Users\Administrator\Desktop\index.html")
	Dim saveService As New SaveService()
	saveService.SaveAndView("HTML File to PDF.pdf", "application/pdf", pdf.Stream)
	DisplayAlert("Success", "PDF from File Created!", "OK")
End Sub

Private Sub FileToPdf(ByVal sender As Object, ByVal e As EventArgs)
	Dim renderer = New IronPdf.ChromePdfRenderer()
	Dim pdf = renderer.RenderHtmlFileAsPdf("C:\Users\Administrator\Desktop\index.html")
	Dim saveService As New SaveService()
	saveService.SaveAndView("HTML File to PDF.pdf", "application/pdf", pdf.Stream)
	DisplayAlert("Success", "PDF from File Created!", "OK")
End Sub