Renzo Lanza
697eaab19a
- Aggiunta funzionalità di invio della licenza via e-mail e relativo pulsante in SearchLicencePage - Sistemato DatePickerYears per Product/OptionDeadline in New/UpdateLicencePage - I 2 bottoni di DatePickerYears settano la deadline al 31/01 dell'anno successivo di quello corrente o al 31/01/2099 (licenza perpetua) - Aggiunta possibilità di scaricare su disco la licenza dal DB, generata col testo presente in LicFile
35 lines
1.3 KiB
VB.net
35 lines
1.3 KiB
VB.net
Public Class DatePickerYears
|
|
|
|
Public Property SelectedDate As Date?
|
|
Get
|
|
Return CustomDP.SelectedDate
|
|
End Get
|
|
Set(value As Date?)
|
|
CustomDP.SelectedDate = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Shared ReadOnly SelectedDateProperty As DependencyProperty =
|
|
DependencyProperty.Register("SelectedDate", GetType(Date), GetType(DatePickerYears),
|
|
New FrameworkPropertyMetadata(New Date()))
|
|
|
|
Private Sub CustomDP_SelectedDateChanged(ByVal sender As Object,
|
|
ByVal e As System.Windows.Controls.SelectionChangedEventArgs) Handles CustomDP.SelectedDateChanged
|
|
SelectedDate = New Date(Year(CDate(CustomDP.SelectedDate)),
|
|
Month(CDate(CustomDP.SelectedDate)),
|
|
Day(CDate(CustomDP.SelectedDate)))
|
|
|
|
End Sub
|
|
|
|
Private Sub Plus1Y_Click(sender As Object, e As RoutedEventArgs) Handles Plus1Y.Click
|
|
CustomDP.DisplayDate = New Date(Date.Now.Year + 1, 1, 31)
|
|
CustomDP.SelectedDate = CustomDP.DisplayDate
|
|
End Sub
|
|
|
|
Private Sub Perpetual_Click(sender As Object, e As RoutedEventArgs) Handles Perpetual.Click
|
|
CustomDP.DisplayDate = New Date(2099, 1, 31)
|
|
CustomDP.SelectedDate = CustomDP.DisplayDate
|
|
End Sub
|
|
|
|
End Class
|