-
Notifications
You must be signed in to change notification settings - Fork 3
/
Form1.vb
26 lines (21 loc) · 1.05 KB
/
Form1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Imports System
Imports System.Windows.Forms
Namespace CustomRecurrenceFormDescendantSample
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
AddHandler schedulerControl1.EditAppointmentFormShowing, AddressOf schedulerControl1_EditAppointmentFormShowing
AddHandler Shown, AddressOf Form1_Shown
End Sub
Private Sub schedulerControl1_EditAppointmentFormShowing(ByVal sender As Object, ByVal e As DevExpress.XtraScheduler.AppointmentFormEventArgs)
' Recurrence form allows editing only daily recurring appointments.
Dim myForm As MyAppointmentEditForm = New MyAppointmentEditForm(schedulerControl1, e.Appointment, e.OpenRecurrenceForm, DevExpress.XtraScheduler.RecurrenceType.Daily)
myForm.ShowDialog()
e.Handled = True
End Sub
Private Sub Form1_Shown(ByVal sender As Object, ByVal e As EventArgs)
schedulerControl1.CreateAppointment(False, True)
End Sub
End Class
End Namespace