Imports System.IO Imports System.Drawing.Drawing2D Imports System.Drawing.Imaging 'Module PicSettings ' Private _DirectorySorgente As String ' Private _DirectoryDestinazione As String ' Private _DimVert As Integer ' Private _MargVert As Integer ' Private _DimStandard As Integer ' Private _DimStandardMiniatura As Integer ' Private _NomeData As Boolean ' Private _TestoNome As Boolean ' Private _UsaOrarioMiniatura As Boolean ' Private _UsaOrarioTestoApplicare As Boolean ' Private _UsaTempoGaraTestoApplicare As Boolean ' Private _TestoFirmaStart As String ' Private _TestoFirmaStartV As String ' Private _DataPartenza As DateTime ' Private _TestoOrario As String ' Private _UsaRotazioneAutomatica As Boolean ' Private _UsaForzaJpg As Boolean ' Private _LarghezzaSmall As Integer ' Private _AltezzaSmall As Integer ' Private _CreaMiniature As Boolean ' Private _AggiungiScritteMiniature As Boolean ' Private _AggTempoGaraMin As Boolean ' Private _AggNumTempMin As Boolean ' Private _Suffisso As String ' Private _Codice As String ' Private _Trasparenza As Integer ' Private _IlFont As String ' Private _Grassetto As Boolean ' Private _Posizione As String ' Private _Allineamento As String ' Private _Margine As Integer ' Private _LogoAltezza As Integer ' Private _LogoLarghezza As Integer ' Private _fontColoreRGB As Color ' Private _LogoAggiungi As Boolean ' Private _LogoNomeFile As String ' Private _LogoTrasparenza As String ' Private _LogoMargine As String ' Private _LogoPosizioneH As String ' Private _LogoPosizioneV As String ' Private _FotoGrandeDimOrigina As Boolean ' Private _AltezzaBig As Integer ' Private _LarghezzaBig As Integer ' Private _DestDir As DirectoryInfo ' Private _DimMin As Integer ' Private _TestoMin As Boolean ' Private _SecretDefault As Boolean ' Private _SecretBig As Boolean ' Private _SecretSmall As Boolean ' Private _SecretPathSmall As String ' Private _SecretPathBig As String ' Private _jpegQuality As Long ' Private _jpegQualityMin As Long ' Private FotoRuotaADestra As Boolean = False ' Private FotoRuotaASinistra As Boolean = False ' Private TempMinText As String = "" ' Private _mainForm As MainForm ' 'Private progressBar As System.Windows.Forms.ProgressBar ' Public Property mainForm() As MainForm ' Get ' Return _mainForm ' End Get ' Set(ByVal value As MainForm) ' _mainForm = value ' End Set ' End Property ' Public Property DirectorySorgente() As String ' Get ' Return _DirectorySorgente ' End Get ' Set(ByVal value As String) ' _DirectorySorgente = value ' End Set ' End Property ' Public Property DirectoryDestinazione() As String ' Get ' Return _DirectoryDestinazione ' End Get ' Set(ByVal value As String) ' _DirectoryDestinazione = value ' End Set ' End Property ' Public Property TestoFirmaStart() As String ' Get ' Return _TestoFirmaStart ' End Get ' Set(ByVal value As String) ' _TestoFirmaStart = value ' End Set ' End Property ' Public Property TestoFirmaStartV() As String ' Get ' Return _TestoFirmaStartV ' End Get ' Set(ByVal value As String) ' _TestoFirmaStartV = value ' End Set ' End Property ' Public Property DataPartenza() As DateTime ' Get ' Return _DataPartenza ' End Get ' Set(ByVal value As DateTime) ' _DataPartenza = value ' End Set ' End Property ' Public Property TestoOrario() As String ' Get ' Return _TestoOrario ' End Get ' Set(ByVal value As String) ' _TestoOrario = value ' End Set ' End Property ' Public Property DimStandard() As Integer ' Get ' Return _DimStandard ' End Get ' Set(ByVal value As Integer) ' _DimStandard = value ' End Set ' End Property ' Public Property DimStandardMiniatura() As Integer ' Get ' Return _DimStandardMiniatura ' End Get ' Set(ByVal value As Integer) ' _DimStandardMiniatura = value ' End Set ' End Property ' Public Property NomeData() As Boolean ' Get ' Return _NomeData ' End Get ' Set(ByVal value As Boolean) ' _NomeData = value ' End Set ' End Property ' Public Property TestoNome() As Boolean ' Get ' Return _TestoNome ' End Get ' Set(ByVal value As Boolean) ' _TestoNome = value ' End Set ' End Property ' Public Property UsaOrarioMiniatura() As Boolean ' Get ' Return _UsaOrarioMiniatura ' End Get ' Set(ByVal value As Boolean) ' _UsaOrarioMiniatura = value ' End Set ' End Property ' Public Property UsaOrarioTestoApplicare() As Boolean ' Get ' Return _UsaOrarioTestoApplicare ' End Get ' Set(ByVal value As Boolean) ' _UsaOrarioTestoApplicare = value ' End Set ' End Property ' Public Property UsaTempoGaraTestoApplicare() As Boolean ' Get ' Return _UsaTempoGaraTestoApplicare ' End Get ' Set(ByVal value As Boolean) ' _UsaTempoGaraTestoApplicare = value ' End Set ' End Property ' Public Property UsaRotazioneAutomatica() As Boolean ' Get ' Return _UsaRotazioneAutomatica ' End Get ' Set(ByVal value As Boolean) ' _UsaRotazioneAutomatica = value ' End Set ' End Property ' Public Property UsaForzaJpg() As Boolean ' Get ' Return _UsaForzaJpg ' End Get ' Set(ByVal value As Boolean) ' _UsaForzaJpg = value ' End Set ' End Property ' Public Property LarghezzaSmall() As Integer ' Get ' Return _LarghezzaSmall ' End Get ' Set(ByVal value As Integer) ' _LarghezzaSmall = value ' End Set ' End Property ' Public Property AltezzaSmall() As Integer ' Get ' Return _AltezzaSmall ' End Get ' Set(ByVal value As Integer) ' _AltezzaSmall = value ' End Set ' End Property ' Public Property CreaMiniature() As Boolean ' Get ' Return _CreaMiniature ' End Get ' Set(ByVal value As Boolean) ' _CreaMiniature = value ' End Set ' End Property ' Public Property AggiungiScritteMiniature() As Boolean ' Get ' Return _AggiungiScritteMiniature ' End Get ' Set(ByVal value As Boolean) ' _AggiungiScritteMiniature = value ' End Set ' End Property ' Public Property Suffisso() As String ' Get ' Return _Suffisso ' End Get ' Set(ByVal value As String) ' _Suffisso = value ' End Set ' End Property ' Public Property Codice() As String ' Get ' Return _Codice ' End Get ' Set(ByVal value As String) ' _Codice = value ' End Set ' End Property ' Public Property Trasparenza() As Integer ' Get ' Return _Trasparenza ' End Get ' Set(ByVal value As Integer) ' _Trasparenza = value ' End Set ' End Property ' Public Property IlFont() As String ' Get ' Return _IlFont ' End Get ' Set(ByVal value As String) ' _IlFont = value ' End Set ' End Property ' Public Property Grassetto() As Boolean ' Get ' Return _Grassetto ' End Get ' Set(ByVal value As Boolean) ' _Grassetto = value ' End Set ' End Property ' Public Property Posizione() As String ' Get ' Return _Posizione ' End Get ' Set(ByVal value As String) ' _Posizione = value ' End Set ' End Property ' Public Property Allineamento() As String ' Get ' Return _Allineamento ' End Get ' Set(ByVal value As String) ' _Allineamento = value ' End Set ' End Property ' Public Property Margine() As Integer ' Get ' Return _Margine ' End Get ' Set(ByVal value As Integer) ' _Margine = value ' End Set ' End Property ' Public Property LogoAltezza() As Integer ' Get ' Return _LogoAltezza ' End Get ' Set(ByVal value As Integer) ' _LogoAltezza = value ' End Set ' End Property ' Public Property LogoLarghezza() As Integer ' Get ' Return _LogoLarghezza ' End Get ' Set(ByVal value As Integer) ' _LogoLarghezza = value ' End Set ' End Property ' Public Property fontColoreRGB() As Color ' Get ' Return _fontColoreRGB ' End Get ' Set(ByVal value As Color) ' _fontColoreRGB = value ' End Set ' End Property ' Public Property LogoAggiungi() As Boolean ' Get ' Return _LogoAggiungi ' End Get ' Set(ByVal value As Boolean) ' _LogoAggiungi = value ' End Set ' End Property ' Public Property LogoNomeFile() As String ' Get ' Return _LogoNomeFile ' End Get ' Set(ByVal value As String) ' _LogoNomeFile = value ' End Set ' End Property ' Public Property LogoTrasparenza() As String ' Get ' Return _LogoTrasparenza ' End Get ' Set(ByVal value As String) ' _LogoTrasparenza = value ' End Set ' End Property ' Public Property LogoMargine() As String ' Get ' Return _LogoMargine ' End Get ' Set(ByVal value As String) ' _LogoMargine = value ' End Set ' End Property ' Public Property LogoPosizioneH() As String ' Get ' Return _LogoPosizioneH ' End Get ' Set(ByVal value As String) ' _LogoPosizioneH = value ' End Set ' End Property ' Public Property LogoPosizioneV() As String ' Get ' Return _LogoPosizioneV ' End Get ' Set(ByVal value As String) ' _LogoPosizioneV = value ' End Set ' End Property ' Public Property FotoGrandeDimOrigina() As Boolean ' Get ' Return _FotoGrandeDimOrigina ' End Get ' Set(ByVal value As Boolean) ' _FotoGrandeDimOrigina = value ' End Set ' End Property ' Public Property AltezzaBig() As Integer ' Get ' Return _AltezzaBig ' End Get ' Set(ByVal value As Integer) ' _AltezzaBig = value ' End Set ' End Property ' Public Property LarghezzaBig() As Integer ' Get ' Return _LarghezzaBig ' End Get ' Set(ByVal value As Integer) ' _LarghezzaBig = value ' End Set ' End Property ' Public Property DestDir() As DirectoryInfo ' Get ' Return _DestDir ' End Get ' Set(ByVal value As DirectoryInfo) ' _DestDir = value ' End Set ' End Property ' Public Property DimVert() As Integer ' Get ' Return _DimVert ' End Get ' Set(ByVal value As Integer) ' _DimVert = value ' End Set ' End Property ' Public Property MargVert() As Integer ' Get ' Return _MargVert ' End Get ' Set(ByVal value As Integer) ' _MargVert = value ' End Set ' End Property ' Public Property TestoMin() As Boolean ' Get ' Return _TestoMin ' End Get ' Set(ByVal value As Boolean) ' _TestoMin = value ' End Set ' End Property ' Public Property DimMin() As Integer ' Get ' Return _DimMin ' End Get ' Set(ByVal value As Integer) ' _DimMin = value ' End Set ' End Property ' Public Property SecretDefault() As Boolean ' Get ' Return _SecretDefault ' End Get ' Set(ByVal value As Boolean) ' _SecretDefault = value ' End Set ' End Property ' Public Property SecretBig() As Boolean ' Get ' Return _SecretBig ' End Get ' Set(ByVal value As Boolean) ' _SecretBig = value ' End Set ' End Property ' Public Property SecretSmall() As Boolean ' Get ' Return _SecretSmall ' End Get ' Set(ByVal value As Boolean) ' _SecretSmall = value ' End Set ' End Property ' Public Property SecretPathSmall() As String ' Get ' Return _SecretPathSmall ' End Get ' Set(ByVal value As String) ' _SecretPathSmall = value ' End Set ' End Property ' Public Property SecretPathBig() As String ' Get ' Return _SecretPathBig ' End Get ' Set(ByVal value As String) ' _SecretPathBig = value ' End Set ' End Property ' Public Property AggTempoGaraMin() As Boolean ' Get ' Return _AggTempoGaraMin ' End Get ' Set(ByVal value As Boolean) ' _AggTempoGaraMin = value ' End Set ' End Property ' Public Property AggNumTempMin() As Boolean ' Get ' Return _AggNumTempMin ' End Get ' Set(ByVal value As Boolean) ' _AggNumTempMin = value ' End Set ' End Property ' Public Property jpegQuality() As Long ' Get ' Return _jpegQuality ' End Get ' Set(ByVal value As Long) ' _jpegQuality = value ' End Set ' End Property ' Public Property jpegQualityMin() As Long ' Get ' Return _jpegQualityMin ' End Get ' Set(ByVal value As Long) ' _jpegQualityMin = value ' End Set ' End Property 'End Module