Renzo Lanza
9ae5219393
- Corretto DatePickerYears: se si cancella la data e poi si perde il focus viene reimpostato con la data di oggi - Corretto filtro ricerca Licenze: LicenceTable.LockID e LicenceTable.Date in modo che non risultino ambigui - Sostituito "For I = 0 To 15" nei vari metodi LoadOptions() con "For I = 0 To OptionList.Count - 1". - Modificata LicenceBox: ora contiene anche le Options1/2 della Licenza ed è stata riscritta seguendo i criteri MVVM
37 lines
1.4 KiB
VB.net
37 lines
1.4 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
|
|
If IsNothing(SelectedDate) Then
|
|
SelectedDate = Date.Now
|
|
End If
|
|
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
|