vb.net - Creating a Google Calendar event in VB -

-

i'm trying create google calendar event in visual basic using google api v3.

i've managed authenticate , events calendar i'm not sure how save events , documentation isn't helpful.

here's current code:

imports system.collections.generic imports system.io   imports system.threading  imports google.apis.calendar.v3 imports google.apis.calendar.v3.data imports google.apis.calendar.v3.eventsresource imports google.apis.services imports google.apis.auth.oauth2 imports google.apis.util.store imports google.apis.requests   public class clsgoogle       '' calendar scopes initialized on main method.     dim scopes ilist(of string) = new list(of string)()      '' calendar service.     dim service calendarservice      public calevents list(of [event]) = new list(of [event])     'list of events in calendar      sub new()       'classes constructor, authenticate google servers everytime object created         authenticate()     end sub      private function authenticate()     'function gets authenticates google servers          ' add calendar specific scope scopes list.         scopes.add(calendarservice.scope.calendar)           dim credential usercredential         using stream new filestream("client_secrets.json", filemode.open, fileaccess.read)             credential = googlewebauthorizationbroker.authorizeasync(                     googleclientsecrets.load(stream).secrets, scopes, "user", cancellationtoken.none,                     new filedatastore("calendar.vb.sample")).result         end using          ' create calendar service using initializer instance         dim initializer new baseclientservice.initializer()         initializer.httpclientinitializer = credential         initializer.applicationname = "vb.net calendar sample"         service = new calendarservice(initializer)         return 0             end function         sub getcalendar(mindate date, optional maxdate date = nothing)          dim list ilist(of calendarlistentry) = service.calendarlist.list().execute().items()     'list of google calendars user has         dim eventrequest listrequest = service.events.list(list("0").id)     'specifies google calendar perform query          eventrequest.timemin = mindate      'specifies minimum date in query          if not maxdate = nothing             eventrequest.timemax = maxdate      'specifies maximum date in query         end if         each calendarevent data.event in eventrequest.execute.items  'for each event in google calendar add calevents             calevents.add(calendarevent)         next     end sub       sub updatecalendar()         dim calendarevent new data.event         dim startdatetime new data.eventdatetime         dim date         = "19/11/2014 12:00"         startdatetime.datetime =         dim b date         b = a.addhours(2)         dim enddatetime new data.eventdatetime         enddatetime.datetime = b         calendarevent.start = startdatetime         calendarevent.end = enddatetime         calendarevent.id = system.guid.newguid.tostring         calendarevent.description = "test"           dim request new insertrequest(service, calendarevent, service.events.list(list("0").id))         request.createrequest()         request.execute()      end sub  end class

1) new event

service.events.insert(calendarevent, service.events.list(list("0").id).execute()

2) delete event (id event id)

' search id event

dim id string = getevent_id(oggetto, data, ora) service.events.delete(service.events.list(list("0").id, id).execute()

3) update event (id event id)

' search id event

dim id string = getevent_id(oggetto, data, ora) service.events.update(calendarevent, service.events.list(list("0").id, id).execute()

`------------------------------------------------------------------------------------------

public function getevent_id(testo string, data string, ora string)          dim eventrequest listrequest = service.events.list(service.events.list(list("0").id))         '         eventrequest.q = testo         '         each calendarevent data.event in eventrequest.execute.items               dim stringa string = data.tostring & " " & ora.tostring             if calendarevent.start.datetime.tostring <> nothing                 if calendarevent.start.datetime.tostring.substring(0, stringa.length) = data.tostring & " " & ora.tostring                     ' ok                     return calendarevent.id                 end if             end if         next         return 0 end function

Comments

Post a Comment

Popular posts from this blog

java - Oracle EBS .ClassNotFoundException: oracle.apps.fnd.formsClient.FormsLauncher.class ERROR -

-
i need in configuring java on machine because, when try loading forms, loader goes in circles , gives error: java.lang.classnotfoundexception: oracle.apps.fnd.formsclient.formslauncher.class @ sun.plugin2.applet.applet2classloader.findclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass0(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass(unknown source) @ java.lang.classloader.loadclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadcode(unknown source) @ sun.plugin2.applet.plugin2manager.createapplet(unknown source) @ sun.plugin2.applet.plugin2manager$appletexecutionrunnable.run (unknown source) @ java.lang.thread.run(unknown source) i have tried re-installing firefox, older versions of java runtime environments, disabling proxy. what missing? application working on other machines. i spent around 100 hours finding s...
Read more

c# - how to use buttonedit in devexpress gridcontrol -

-
Image
i trying create gridcontrol buttonedit in 1 of columns. when user clicks button edit, popups form select product. when selection done on popup, returns datarow selection main grid below. but when column loses focus, value wrote column disappear. here code creates gridcontrol's data , buttonedit's click event. private void frmsiparisnew_load(object sender, eventargs e) { dt = new datatable(); dt.columns.add("malzeme_kodu",typeof(string)); dt.columns.add("malzeme_aciklama", typeof(string)); dt.columns.add("adet", typeof(decimal)); dt.columns.add("birim", typeof(string)); dt.columns.add("fiyat", typeof(decimal)); dt.columns.add("kur", typeof(string)); dt.columns.add("tutar", typeof(decimal)); datarow dr = dt.newrow(); dt.rows.add(dr); gc.datasource = dt; } private void repositoryitembuttoneditmal...
Read more

How do you convert a timestamp into a datetime in python with the correct timezone? -

-
you naively expect work: import pytz datetime import datetime def tz_datetime_from_timestamp(timestamp): """convert timestamp datetime """ tz = pytz.timezone('australia/perth') server_time = datetime.utcnow() delta = tz.utcoffset(server_time) value = datetime.utcfromtimestamp(timestamp).replace(tzinfo=tz) return value + delta print tz_datetime_from_timestamp(1416387060) and convert timestamp 1416387060 wed nov 19 16:51:00 2014 gmt+8:00. ...but not. prints: 2014-11-19 16:51:00+07:43 the timezone of australia/perth not gmt+7:43. it gmt+8:00. unequivocally stated on australian government website http://www.australia.gov.au/about-australia/our-country/time : awst equal coordinated universal time plus 8 hours (utc +8). so, heck pytz pulling 7.43 from? well, turns out pytz pulls data http://www.iana.org/time-zones time zone database, , database states: # western australia # # rule name type in on @...
Read more