dotNETportal.cz

Před vrácením hodnoty kalendáře potřebujete odregistrovat a po něm opět zaregistrovat obslužnou proceduru události ValueChanged kalendáře. Původní hodnotu pro vrácení si musíte ve "vhodný okamžik" uchovat (například při detekci první změny nebo při nějakém plnění formuláře) v proměnné nebo ho mít uchovaný v nějakém objektu (modelu apod.).

Kód by mohl vypadat přibližně takto:

Private KalendarOriginalValue As DateTime

Private Sub Kalendar_ValueChanged(sender As Object, e As EventArgs)
	If Me.HasChanges AndAlso Not Me.SaveWithQuery() Then
		'Cancel Msg dialogu
		RemoveHandler Kalendar.ValueChanged, AddressOf Kalendar_ValueChanged
		Try
			'Vrácení původní hodnoty kalendáře
			kalendar.Value = Me.KalendarOriginalValue
		Finally
			AddHandler Kalendar.ValueChanged, AddressOf Kalendar_ValueChanged
		End Try
		Return
	End If

	If Not Me.HasChanges Then
		'První změna
		Me.KalendarOriginalValue = Kalendar.Value
		Me.HasChanges = True
	End If
End Sub

To odregistrování události je ten řádek:

RemoveHandler Kalendar.ValueChanged, AddressOf Kalendar_ValueChanged

Tím se při nastavení Value nebude Kalendar_ValueChanged opakovaně volat. Obsluha události se pak znovu zaregistruje tím AddHandler (v bloku Finally).

Jinak DateTimePicker události Validating a Validated má (dědí je z Control) viz MSDN (http://msdn.microsoft.com/cs-cz/library/..., ale jak se na něm chovají si musíte vyzkoušet.

1) Při And se vyhodnocují obě části výrazu, při AndAlso se pravá část výrazu vyhodnocuje pouze pokud je levá true (obdobně u OrElse se pravá část výrazu vyhodnocuje jen pokud je levá false).

2) SaveWithQuery v tom kódu představuje volaní metody, která by zobrazila nějaký ten msg dotaz zda uložit/vrátit změny. Pokud vrátí false, znamená to, že se musí změna vrátit, true že se změna uložila.