c# - Office 2010 monitoring calendar events -

-

hey have following code in vb.net translated c# found on internet monitoring outlook calendar events (add, modify , delete).

the code is:

public class thisaddin     private sub thisaddin(sender object, e system.eventargs) handles me.startup         dim monitor new calendarmonitor(me.application.activeexplorer())          addhandler monitor.appointmentadded, addressof monitor_appointmentadded         addhandler monitor.appointmentmodified, addressof monitor_appointmentmodified         addhandler monitor.appointmentdeleting, addressof monitor_appointmentdeleting     end sub  ...etc etc... end class

=======================

public class calendarmonitor     private _explorer explorer     private _folderpaths list(of string)     private _calendarfolders list(of mapifolder)     private _calendaritems list(of items)     private _deleteditemsfolder mapifolder      public event appointmentadded eventhandler(of eventargs(of appointmentitem))     public event appointmentmodified eventhandler(of eventargs(of appointmentitem))     public event appointmentdeleting eventhandler(of canceleventargs(of appointmentitem))      public sub new(anexplorer explorer)         _folderpaths = new list(of string)()         _calendarfolders = new list(of mapifolder)()         _calendaritems = new list(of items)()          _explorer = anexplorer         _explorer.beforefolderswitch += new explorerevents_10_beforefolderswitcheventhandler(addressof explorer_beforefolderswitch)          dim session [namespace] = _explorer.session         try             _deleteditemsfolder = session.getdefaultfolder(oldefaultfolders.olfolderdeleteditems)             hookupdefaultcalendarevents(session)                     marshal.releasecomobject(session)             session = nothing         end try     end sub      private sub hookupdefaultcalendarevents(asession [namespace])         dim folder mapifolder = asession.getdefaultfolder(oldefaultfolders.olfoldercalendar)         if folder isnot nothing             try                 hookupcalendarevents(folder)                             marshal.releasecomobject(folder)                 folder = nothing             end try         end if     end sub      private sub explorer_beforefolderswitch(anewfolder object, byref cancel boolean)         dim folder mapifolder = trycast(anewfolder, mapifolder)         '         ' hookup events other calendar folder opened.         '         if folder isnot nothing             try                 if folder.defaultitemtype = olitemtype.olappointmentitem                     hookupcalendarevents(folder)                 end if                             marshal.releasecomobject(folder)                 folder = nothing             end try         end if     end sub      private sub hookupcalendarevents(acalendarfolder mapifolder)         if acalendarfolder.defaultitemtype <> olitemtype.olappointmentitem             throw new argumentexception("the mapifolder must use " + "appointmentitems default type.")         end if          if (_folderpaths.contains(acalendarfolder.folderpath) = false) andalso (isuserscalendar(acalendarfolder))             dim items items = acalendarfolder.items              _folderpaths.add(acalendarfolder.folderpath)             _calendarfolders.add(acalendarfolder)             _calendaritems.add(items)              items.beforeitemmove += new mapifolderevents_12_beforeitemmoveeventhandler(addressof calendar_beforeitemmove)             items.itemchange += new itemsevents_itemchangeeventhandler(addressof calendaritems_itemchange)             items.itemadd += new itemsevents_itemaddeventhandler(addressof calendaritems_itemadd)         end if     end sub      private sub calendaritems_itemadd(anitem object)         dim appointment appointmentitem = trycast(anitem, appointmentitem)         if appointment isnot nothing             try                 raiseevent appointmentadded(me, new eventargs(of appointmentitem)(appointment))                             marshal.releasecomobject(appointment)                 appointment = nothing             end try         end if     end sub      private sub calendaritems_itemchange(anitem object)         dim appointment appointmentitem = trycast(anitem, appointmentitem)         if appointment isnot nothing             try                 raiseevent appointmentmodified(me, new eventargs(of appointmentitem)(appointment))                             marshal.releasecomobject(appointment)                 appointment = nothing             end try         end if     end sub      private sub calendar_beforeitemmove(anitem object, amovetofolder mapifolder, byref cancel boolean)         if (amovetofolder nothing) orelse (isdeleteditemsfolder(amovetofolder))             dim appointment appointmentitem = trycast(anitem, appointmentitem)              if appointment isnot nothing                 try                     'if appointmentdeleting isnot nothing                     '                     ' listeners appointmentdeleting event can cancel move operation if moving                     ' deleted items folder.                     '                     dim args new canceleventargs(of appointmentitem)(appointment)                     raiseevent appointmentdeleting(me, args)                      cancel = args.cancel                     'end if                                     marshal.releasecomobject(appointment)                     appointment = nothing                 end try             end if         end if     end sub      private function isuserscalendar(afolder mapifolder) boolean         '         ' based purely on observations far - better way?         '         return (afolder.store isnot nothing)     end function      private function isdeleteditemsfolder(afolder mapifolder) boolean         return (afolder.entryid = _deleteditemsfolder.entryid)     end function end class

and hitting error on line has code:

_explorer.beforefolderswitch += new explorerevents_10_beforefolderswitcheventhandler(addressof explorer_beforefolderswitch)

the error is:

an exception of type 'system.missingmemberexception' occurred in microsoft.visualbasic.dll not handled in user code

additional information: public member 'beforefolderswitch' on type 'explorerclass' not found.

what need in order working in vb.net?

you need convert vb's event wireup format:

addhandler _explorer.beforefolderswitch, addressof explorer_beforefolderswitch

note explicit delegate construction unnecessary.


Comments

Post a Comment

Popular posts from this blog

python - TypeError: start must be a integer -

-
i trying draw 5 turtles, getting typeerror on line 25. here code: import turtle wn = turtle.screen() redrose = turtle.turtle() color = input("what background color be?") fillcolor_f = input("what color of rose be?") redrose.hideturtle() redrose.speed(30) redrose.penup() redrose.left(180) redrose.forward(175) redrose.right(90) redrose.forward(30) redrose.right(90) redrose.pendown() def drawrose(red): redrose.color("pink") redrose.fillcolor(fillcolor_f) redrose.fill(true) in range(red): redrose.forward(i) redrose.right(49) in range(5): drawrose(redrose) redrose.penup() redrose.forward(350) redrose.right(144) redrose.pendown() redrose.fill(false) drawrose(50) wn.bgcolor(color) i trying draw 5 roses, produces errors. doing in interactivepython.org. you recursively calling drawrose wrong parameter. on line 23 ( for in range(red): ) expect red integer...
Read more

c# - DevExpress RepositoryItemComboBox BackColor property ignored -

-
i have following code almost works properly; private void cbstatus_drawitem(object sender, listboxdrawitemeventargs e) { string item = e.item string; if (item != null) { switch (item) { case "1": e.appearance.forecolor = color.green; e.appearance.backcolor = color.green; break; case "2": e.appearance.forecolor = color.orange; e.appearance.backcolor = color.orange; break; case "3": e.appearance.forecolor = color.red; e.appearance.backcolor = color.red; break; } } } when dropdown shown, items forecolor correct, backcolor remains whatever backcolor of theme is; i.e. if i've got set dark theme, backcolor dark, cells in gridview, rather being green/orange/red. i've tried setting e.appearance.options.usebackcolor trying set e....
Read more

django - Creating multiple model instances in DRF3 -

-
1) create multiple model instances 1 api call, asked here: how create multiple model instances django rest framework? tried solution named in link, no success. i trying upload multiple files in 1 api call. result: files uploaded (only once overwrote perform_create) 1 instance created (if send 2 files, latter created instance). my code: class fileuploadserializer(serializers.modelserializer): def __init__(self, *args, **kwargs): many = kwargs.pop('many', true) super(fileuploadserializer, self).__init__(many=many, *args, **kwargs) class meta: model = fileupload read_only_fields = ('created', 'datafile', 'owner') class fileuploadviewset(viewsets.modelviewset): queryset = fileupload.objects.all() serializer_class = fileuploadserializer parser_classes = (multipartparser, formparser, ) def perform_create(self, serializer): file_list = self.request.data.getlist('file') ...
Read more