604 lines
14 KiB
VB.net
604 lines
14 KiB
VB.net
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
|