Renzo Lanza
80360b0306
- Aggiunti 2 nuovi Stati Chiave: Interna e InternaEgt - Entrando in ogni SearchPage viene subito riempita la tabella dell'elemento relativo (Chiave, Licenze, ecc.) senza bisogno di premere "Search" - Pulsante "Cancel" è diventato "Close" e spostato in fondo a destra - Aggiunto LicenceBox: form che visualizza il contenuto del file di licenza e ne permette il download (sostituisce il MessageBox che c'era prima) - "Update (Overwrite)" ora è seguito dalla rigenerazione della licenza - MainMenu non include più i pulsanti "New [...]". Questi sono stati tutti spostati all'interno delle SearchPage
22 lines
878 B
VB.net
22 lines
878 B
VB.net
Imports EgtUILib
|
|
|
|
Public Class LicenceBoxV
|
|
|
|
Private Sub LicenceBoxV_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
|
|
Me.Owner = Application.Current.MainWindow
|
|
|
|
InfoLbl.Text = CType(Map.refSearchLicencePageVM.Row.Item, Licence).LicFile
|
|
DownloadBtn.Content = "Download"
|
|
ExitBtn.Content = "Close"
|
|
End Sub
|
|
|
|
Private Sub DownloadBtn_Click(sender As Object, e As RoutedEventArgs) Handles DownloadBtn.Click
|
|
Dim lines As String() = InfoLbl.Text.Split(New String() {Environment.NewLine},
|
|
StringSplitOptions.None)
|
|
IO.File.WriteAllLines(IO.Path.ChangeExtension(CType(Map.refSearchLicencePageVM.Row.Item, Licence).File, ".lic"),
|
|
lines, Text.Encoding.UTF8)
|
|
MessageBox.Show("Licenza scaricata correttamente")
|
|
End Sub
|
|
End Class
|
|
|