13b49e14cb
-> gestione della stampa quote porta.
57 lines
1.6 KiB
VB.net
57 lines
1.6 KiB
VB.net
Imports EgtUILib
|
|
Imports combit.ListLabel25
|
|
Imports combit.ListLabel25.DataProviders
|
|
Imports Microsoft.Win32
|
|
Imports System.Collections
|
|
Imports System.Collections.Generic
|
|
Imports System.Data
|
|
Imports System.Data.OleDb
|
|
Imports System.Data.SqlClient
|
|
Imports System.Globalization
|
|
Imports System.IO
|
|
Imports System.Linq
|
|
Imports System.Text
|
|
Imports System.Windows
|
|
Imports System.Windows.Controls
|
|
Imports System.Windows.Data
|
|
Imports System.Windows.Documents
|
|
Imports System.Windows.Input
|
|
Imports System.Windows.Media
|
|
Imports System.Windows.Media.Imaging
|
|
Imports System.Windows.Shapes
|
|
Imports System.Xml
|
|
Imports System.ComponentModel
|
|
Imports System.Collections.ObjectModel
|
|
|
|
Public Class PrintWndV
|
|
|
|
Private m_PrintWndVM As PrintWndVM
|
|
|
|
Sub New(Owner As Window, PrintWndVM As PrintWndVM)
|
|
MyBase.New(Owner)
|
|
AddHandler Closed, AddressOf PrintWndV_Closed
|
|
' This call is required by the designer.
|
|
InitializeComponent()
|
|
Me.DataContext = PrintWndVM
|
|
' Assegno al riferimento locale al VM il VM preso dal DataContext
|
|
m_PrintWndVM = PrintWndVM
|
|
|
|
m_PrintWndVM.MyLL.PreviewControl = enhancedPreviewControl.PreviewControl
|
|
m_PrintWndVM.Preview()
|
|
End Sub
|
|
|
|
Private Sub PrintWndV_Closed(sender As Object, e As System.EventArgs) Handles Me.Closed
|
|
enhancedPreviewControl.FileName = String.Empty
|
|
m_PrintWndVM.MyLL.Dispose()
|
|
|
|
''Imposto contesto generale
|
|
'EgtSetCurrentContext(Map.refSceneManagerVM.ProjectScene.GetCtx())
|
|
''Cancello contesto di visualizzazione utensile
|
|
'EgtDeleteContext(Map.refPrintSceneHostV.PrintScene.GetCtx())
|
|
End Sub
|
|
|
|
|
|
End Class
|
|
|
|
|