Есть ли способ перевести этот код в VB? Большая часть этого проста, но я не могу найти способ переопределить обработчик событий.
public class MTObservableCollection<T> : ObservableCollection<T>
{
public MTObservableCollection()
{
_DispatcherPriority = DispatcherPriority.DataBind;
}
public MTObservableCollection(DispatcherPriority dispatcherPriority)
{
_DispatcherPriority = dispatcherPriority;
}
private DispatcherPriority _DispatcherPriority;
public override event NotifyCollectionChangedEventHandler CollectionChanged;
protected override void OnCollectionChanged(NotifyCollectionChangedEventArgs e)
{
var eh = CollectionChanged;
if (eh != null)
{
Dispatcher dispatcher = (from NotifyCollectionChangedEventHandler nh in eh.GetInvocationList()
let dpo = nh.Target as DispatcherObject
where dpo != null
select dpo.Dispatcher).FirstOrDefault();
if (dispatcher != null && dispatcher.CheckAccess() == false)
{
dispatcher.Invoke(DispatcherPriority.DataBind, (Action)(() => OnCollectionChanged(e)));
}
else
{
foreach (NotifyCollectionChangedEventHandler nh in eh.GetInvocationList())
nh.Invoke(this, e);
}
}
}
}