67 lines
2.2 KiB
VB.net
67 lines
2.2 KiB
VB.net
Imports System.IO
|
|
Imports DevExpress.Xpf.Bars
|
|
Imports DevExpress.Xpf.Core.Native
|
|
|
|
Public Class VentanaVisorPDF
|
|
' Private Property DlgGuardar As Guardar
|
|
' Public st As New MemoryStream
|
|
' Public Delegate Sub Guardar(PDF As Stream)
|
|
'Public Sub New(pdf As Stream, DelegadoGuardar As Guardar)
|
|
Public Sub New(pdf As Stream)
|
|
|
|
' Llamada necesaria para el diseñador.
|
|
InitializeComponent()
|
|
If pdf IsNot Nothing Then Me.VisorPDF.DocumentSource = pdf
|
|
' DlgGuardar = DelegadoGuardar
|
|
|
|
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
' Private Sub VentanaVisorPDF_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
|
'Try
|
|
' Dim bm As BarManager = TryCast(LayoutHelper.FindElement(VisorPDF, Function(n) TypeOf n Is BarManager), BarManager)
|
|
' ' If bm Is Nothing Then MsgBox("no funciona")
|
|
' Dim bbi As New BarButtonItem()
|
|
' Dim bbil As New BarButtonItemLink()
|
|
' bbi.Name = "Save"
|
|
' bbi.Content = "Save"
|
|
' bbil.BarItemName = "Save"
|
|
' AddHandler bbi.ItemClick, AddressOf GuardarPDF
|
|
' bm.Items.Add(bbi)
|
|
' bm.Bars(0).ItemLinks.Insert(0, bbil)
|
|
'Catch ex As Exception
|
|
' MsgBox(ex.Message)
|
|
'End Try
|
|
' End Sub
|
|
Private Sub GuardarPDF(sender As Object, e As ItemClickEventArgs)
|
|
Try
|
|
' VisorPDF.SaveDocument(st)
|
|
Me.DialogResult = True
|
|
Me.Close()
|
|
'Dim ms As New System.IO.MemoryStream
|
|
'VisorPDF.SaveDocument(ms)
|
|
'DlgGuardar.Invoke(ms)
|
|
Catch ex As Exception
|
|
Me.Close()
|
|
MessageBox.Show(ex.Message, "Error")
|
|
End Try
|
|
End Sub
|
|
Private Sub GuardarPDFComo(sender As Object, e As ItemClickEventArgs)
|
|
Try
|
|
Dim sfd As New Microsoft.Win32.SaveFileDialog
|
|
sfd.FileName = ""
|
|
sfd.Filter = "Archivo pdf|*.pdf"
|
|
sfd.DefaultExt = ".pdf"
|
|
If sfd.ShowDialog() Then
|
|
VisorPDF.SaveDocument(sfd.FileName)
|
|
End If
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message, "Error")
|
|
End Try
|
|
End Sub
|
|
|
|
End Class
|