Renzo Lanza
747d4c746d
- Pulsante Delete cancella il record ma rimane nella pagina Search - Lettura file .ini adattata al lettore già presente nell'applicativo - Rinominati i file di configurazione in LicenceManager (.ini/.lic) - Rinominato il file d Log - Percorso KeyGenerator nel file .ini - Proposta data di oggi di default in NewLicencePage - ComboBox per ProductLevel con 1,5,10 - ComboBox in ordine di numero - Aggiunti "---ANY---" nelle comboBox di SearchKeyPage - SearchKey: Risultati di ricerca in ordine di numero - Adattamento al valore restituito (0 o 1) da KeyGenerator - Importazione AboutBox OmagCUT (DA SISTEMARE)
43 lines
1.3 KiB
VB.net
43 lines
1.3 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Class MainWindowV
|
|
|
|
Private m_MainWindowVM As MainWindowVM
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Funzione che interpreta l'xaml
|
|
InitializeComponent()
|
|
' Assegno al riferimento locale al VM il VM preso dal DataContext
|
|
m_MainWindowVM = DirectCast(Me.DataContext, MainWindowVM)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "EVENTS"
|
|
|
|
Private Sub MainWindowV_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
|
' Carico e imposto posizione finestra
|
|
WinPosFromIniToWindow(S_GENERAL, K_WINPLACE, Me)
|
|
End Sub
|
|
|
|
Private Sub MainWindowV_ContentRendered(sender As Object, e As EventArgs) Handles Me.ContentRendered
|
|
m_MainWindowVM.ContentRendered()
|
|
End Sub
|
|
|
|
Private Sub MainWindowV_Unloaded(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles Me.Closing
|
|
' Salvo posizione finestra (se non minimizzata)
|
|
If WindowState <> WindowState.Minimized Then
|
|
WinPosFromWindowToIni(Me, S_GENERAL, K_WINPLACE)
|
|
End If
|
|
End Sub
|
|
|
|
' Evento che apre AboutBox quando viene clickato il logo
|
|
Private Sub LogoBrd_MouseDown(sender As Object, e As MouseButtonEventArgs) Handles LogoBrd.MouseDown
|
|
Dim AboutBox As New AboutBoxWD(Me)
|
|
End Sub
|
|
#End Region ' EVENTS
|
|
|
|
End Class
|