DevExpress官网

C#
using System;
using System.Collections;
using System.Collections.Generic;
using System.ComponentModel;

[Serializable]
public class CustomEvent {
object id;
DateTime start;
DateTime end;
string subject;
int status;
string description;
long label;
string location;
bool allday;
int eventType;
string recurrenceInfo;
string reminderInfo;
object ownerId;
double price;
string contactInfo; public CustomEvent() {
}
public DateTime StartTime { get { return start; } set { start = value; } }
public DateTime EndTime { get { return end; } set { end = value; } }
public string Subject { get { return subject; } set { subject = value; } }
public int Status { get { return status; } set { status = value; } }
public string Description { get { return description; } set { description = value; } }
public long Label { get { return label; } set { label = value; } }
public string Location { get { return location; } set { location = value; } }
public bool AllDay { get { return allday; } set { allday = value; } }
public int EventType { get { return eventType; } set { eventType = value; } }
public string RecurrenceInfo { get { return recurrenceInfo; } set { recurrenceInfo = value; } }
public string ReminderInfo { get { return reminderInfo; } set { reminderInfo = value; } }
public object OwnerId { get { return ownerId; } set { ownerId = value; } }
public object Id { get { return id; } set { id = value; } }
public double Price { get { return price; } set { price = value; } }
public string ContactInfo { get { return contactInfo; } set { contactInfo = value; } }
}
[Serializable]
public class CustomEventList : BindingList<CustomEvent> {
public void AddRange(CustomEventList events) {
foreach(CustomEvent customEvent in events)
this.Add(customEvent);
}
public int GetEventIndex(object eventId) {
for(int i = 0; i < Count; i++)
if(this[i].Id == eventId)
return i;
return -1;
}
}
public class CustomEventDataSource {
CustomEventList events;
public CustomEventDataSource(CustomEventList events) {
if(events == null)
DevExpress.XtraScheduler.Native.Exceptions.ThrowArgumentNullException("events");
this.events = events;
}
public CustomEventDataSource()
: this(new CustomEventList()) {
}
public CustomEventList Events { get { return events; } set { events = value; } } #region ObjectDataSource methods
public void InsertMethodHandler(CustomEvent customEvent) {
Events.Add(customEvent);
}
public void DeleteMethodHandler(CustomEvent customEvent) {
int eventIndex = Events.GetEventIndex(customEvent.Id);
if(eventIndex >= 0)
Events.RemoveAt(eventIndex);
}
public void UpdateMethodHandler(CustomEvent customEvent) {
int eventIndex = Events.GetEventIndex(customEvent.Id);
if(eventIndex >= 0) {
Events.RemoveAt(eventIndex);
Events.Insert(eventIndex, customEvent);
}
}
public IEnumerable SelectMethodHandler() {
CustomEventList result = new CustomEventList();
result.AddRange(Events);
return result;
}
#endregion
}

VB.NET
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
<Serializable> _
Public Class CustomEvent
Private id_Renamed As Object
Private start As DateTime
Private [end] As DateTime
Private subject_Renamed As String
Private status_Renamed As Integer
Private description_Renamed As String
Private label_Renamed As Long
Private location_Renamed As String
Private allday_Renamed As Boolean
Private eventType_Renamed As Integer
Private recurrenceInfo_Renamed As String
Private reminderInfo_Renamed As String
Private ownerId_Renamed As Object
Private price_Renamed As Double
Private contactInfo_Renamed As StringPublic Sub New()
End SubPublic Property StartTime() As DateTime
Get
Return start
End Get
Set(ByVal value As DateTime)
start = value
End Set
End Property
Public Property EndTime() As DateTime
Get
Return [end]
End Get
Set(ByVal value As DateTime)
[end] = value
End Set
End Property
Public Property Subject() As String
Get
Return subject_Renamed
End Get
Set(ByVal value As String)
subject_Renamed = value
End Set
End Property
Public Property Status() As Integer
Get
Return status_Renamed
End Get
Set(ByVal value As Integer)
status_Renamed = value
End Set
End Property
Public Property Description() As String
Get
Return description_Renamed
End Get
Set(ByVal value As String)
description_Renamed = value
End Set
End Property
Public Property Label() As Long
Get
Return label_Renamed
End Get
Set(ByVal value As Long)
label_Renamed = value
End Set
End Property
Public Property Location() As String
Get
Return location_Renamed
End Get
Set(ByVal value As String)
location_Renamed = value
End Set
End Property
Public Property AllDay() As Boolean
Get
Return allday_Renamed
End Get
Set(ByVal value As Boolean)
allday_Renamed = value
End Set
End Property
Public Property EventType() As Integer
Get
Return eventType_Renamed
End Get
Set(ByVal value As Integer)
eventType_Renamed = value
End Set
End Property
Public Property RecurrenceInfo() As String
Get
Return recurrenceInfo_Renamed
End Get
Set(ByVal value As String)
recurrenceInfo_Renamed = value
End Set
End Property
Public Property ReminderInfo() As String
Get
Return reminderInfo_Renamed
End Get
Set(ByVal value As String)
reminderInfo_Renamed = value
End Set
End Property
Public Property OwnerId() As Object
Get
Return ownerId_Renamed
End Get
Set(ByVal value As Object)
ownerId_Renamed = value
End Set
End Property
Public Property Id() As Object
Get
Return id_Renamed
End Get
Set(ByVal value As Object)
id_Renamed = value
End Set
End Property
Public Property Price() As Double
Get
Return price_Renamed
End Get
Set(ByVal value As Double)
price_Renamed = value
End Set
End Property
Public Property ContactInfo() As String
Get
Return contactInfo_Renamed
End Get
Set(ByVal value As String)
contactInfo_Renamed = value
End Set
End Property
End Class
<Serializable> _
Public Class CustomEventList
Inherits BindingList(Of CustomEvent)
Public Sub AddRange(ByVal events As CustomEventList)
For Each customEvent As CustomEvent In events
Me.Add(customEvent)
Next customEvent
End Sub
Public Function GetEventIndex(ByVal eventId As Object) As Integer
For i As Integer = 0 To Count - 1
If Me(i).Id Is eventId Then
Return i
End If
Next i
Return -1
End Function
End Class
Public Class CustomEventDataSource
Private events_Renamed As CustomEventList
Public Sub New(ByVal events As CustomEventList)
If events Is Nothing Then
DevExpress.XtraScheduler.Native.Exceptions.ThrowArgumentNullException("events")
End If
Me.events_Renamed = events
End Sub
Public Sub New()
Me.New(New CustomEventList())
End Sub
Public Property Events() As CustomEventList
Get
Return events_Renamed
End Get
Set(ByVal value As CustomEventList)
events_Renamed = value
End Set
End Property
#Region "ObjectDataSource methods"
Public Sub InsertMethodHandler(ByVal customEvent As CustomEvent)
Events.Add(customEvent)
End Sub
Public Sub DeleteMethodHandler(ByVal customEvent As CustomEvent)
Dim eventIndex As Integer = Events.GetEventIndex(customEvent.Id)
If eventIndex >= 0 Then
Events.RemoveAt(eventIndex)
End If
End Sub
Public Sub UpdateMethodHandler(ByVal customEvent As CustomEvent)
Dim eventIndex As Integer = Events.GetEventIndex(customEvent.Id)
If eventIndex >= 0 Then
Events.RemoveAt(eventIndex)
Events.Insert(eventIndex, customEvent)
End If
End Sub
Public Function SelectMethodHandler() As IEnumerable
Dim result As New CustomEventList()
result.AddRange(Events)
Return result
End Function
#End Region
End Class