Springen naar inhoud


- - - - -
VS 2015

Hoe Google Kalender Invullen

VS2015

  • Log in a.u.b. om te beantwoorden
Er zijn 13 reacties in dit onderwerp

#1 glda19

glda19

    Professional Developer

  • Leden
  • PipPipPipPip
  • 273 berichten
    Laatst bezocht vandaag, 20:52

Geplaatst op 09 oktober 2018 - 20:12

Hi
Ik heb al gezocht via google. Maar geen oplossing gevonden voor het volgende probleem.
Ik zou graag de code willen hebben hoe ik een google calender kan bewerken via vb.net
Vind niks via google

Bedankt voor de medewerking

#2 doebi

doebi

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 538 berichten
    Laatst bezocht 09 okt 2018 20:40

Geplaatst op 09 oktober 2018 - 20:15

Misschien via de api

https://developers.g...pis/calendar/v3

Niet getest, maar ben zelf ook wel geïnteresseerd

#3 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1064 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 10 oktober 2018 - 16:56

Bericht bekijkenglda19, op 09 oktober 2018 - 20:12, zei:

Ik heb al gezocht via google. Maar geen oplossing gevonden voor het volgende probleem.
Ik zou graag de code willen hebben hoe ik een google calender kan bewerken via vb.net

Ik heb dat anderhalf jaar geleden blijkbaar eens (voor jou) gedaan.
Ik weet niet of ik die code nog ga terugvinden, maar ik zal binnenkort eens op zoek gaan.


Bericht bekijkenglda19, op 09 oktober 2018 - 20:12, zei:

Vind niks via google
Dat vind ik stug, ik meen me te herinneren dat ik de info ook via google heb opgeduikeld.



Bericht bekijkendoebi, op 09 oktober 2018 - 20:15, zei:

Inderdaad, dat is waar ik de mosterd heb gehaald.

#4 glda19

glda19

    Professional Developer

  • Leden
  • PipPipPipPip
  • 273 berichten
    Laatst bezocht vandaag, 20:52

Geplaatst op 10 oktober 2018 - 17:26

had daar ook al gezien maar vind het niet duidelijk.
Kun je even kort vb maken

#5 glda19

glda19

    Professional Developer

  • Leden
  • PipPipPipPip
  • 273 berichten
    Laatst bezocht vandaag, 20:52

Geplaatst op 10 oktober 2018 - 17:50

Ik heb nooit uw code een anderhalf jaar geleden gezien.
En vind die site van google niet vree duidelijk

#6 glda19

glda19

    Professional Developer

  • Leden
  • PipPipPipPip
  • 273 berichten
    Laatst bezocht vandaag, 20:52

Geplaatst op 10 oktober 2018 - 17:57

Is het via deze link dat ik moet gaan kijkenhttps://developers.g...ickstart/dotnet
en daar dan de stapen uitvoeren

#7 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1064 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 12 oktober 2018 - 14:26

Bericht bekijkenglda19, op 10 oktober 2018 - 17:50, zei:

Ik heb nooit uw code een anderhalf jaar geleden gezien.
Dat heb ik toch niet gezegd.
En we weten beiden waarom, ik zou daar niet op terugkomen in jouw geval.

Bericht bekijkenglda19, op 10 oktober 2018 - 17:50, zei:

En vind die site van google niet vree duidelijk
Tja, ik had daar blijkbaar geen problemen mee, want ik heb ondertussen die code teruggevonden, waaronder het volgende proof of concept (heb enkel de data aangepast naar 2018 én mijn ClientId en Secret er uit gehaald, natuurlijk én ook de Application name ).

Visual Basic Code:
Option Strict On

Imports System.Threading
Imports Google.Apis.Calendar.v3
Imports Google.Apis.Calendar.v3.Data
Imports Google.Apis.Services
Imports Google.Apis.Auth.OAuth2

Module Module1
	 Dim service As CalendarService

	 Public Sub Main(ByVal args As String())
		 Dim credential As UserCredential =
			 GoogleWebAuthorizationBroker.AuthorizeAsync(
			 New ClientSecrets With
			 {
			 .ClientId = "jouw ClientId",
			 .ClientSecret = "jouw ClientSecret"
			 },
			 {CalendarService.Scope.Calendar}, "user", CancellationToken.None).Result

	 service = New CalendarService(New BaseClientService.Initializer() With
		 {
			 .HttpClientInitializer = credential,
			 .ApplicationName = "jouw Calendar App"
		 })
	
	
		 Dim list As IList(Of CalendarListEntry) = service.CalendarList.List().Execute().Items
		 DisplayList(list)

		 For Each calendar As CalendarListEntry In list
			 DisplayFirstCalendarEvents(calendar)
		 Next

		 Console.WriteLine("Press any key to continue...")
		 Console.ReadKey()
	 End Sub

	 Private Sub DisplayList(ByVal list As IList(Of CalendarListEntry))
		 Console.WriteLine("Lists of calendars:")
		 For Each item As CalendarListEntry In list
			 Console.WriteLine("Summary: " + item.Summary)
			 Console.WriteLine("Location:" + item.Location)
			 Console.WriteLine("TimeZone:" + item.TimeZone)
		 Next
	 End Sub

	 Private Sub DisplayFirstCalendarEvents(ByVal list As CalendarListEntry)
		 Console.WriteLine(Environment.NewLine & "Events tussen 01/09/2018 en 31/12/2018", list.Summary)
	 Dim request As EventsResource.ListRequest = service.Events.List(list.Id)
		 'request.MaxResults = 10
		 request.TimeMin = New DateTime(2018, 09, 1)
		 request.TimeMax = New DateTime(2018, 12, 31)
		 For Each calendarEvent As [Event] In request.Execute().Items
			 Console.WriteLine("Summary: " + calendarEvent.Summary)
		 Next
	 End Sub
End Module




En het werkt nog steeds:de eerste is een eigen calendar, de tweede de feestdagen in België (die ik -voor jou- toen ook heb toegevoegd blijkbaar) :

Bijlage  kalendergoogle.png   21,82K   4 downloads

#8 glda19

glda19

    Professional Developer

  • Leden
  • PipPipPipPip
  • 273 berichten
    Laatst bezocht vandaag, 20:52

Geplaatst op 12 oktober 2018 - 18:20

thx
dus ik moet eerst  nog iets doen
En dit is voor het weergeven van de kalender
maar wat doe je als je er meer hebt

#9 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1064 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 14 oktober 2018 - 17:47

Bericht bekijkenglda19, op 12 oktober 2018 - 18:20, zei:

dus ik moet eerst  nog iets doen
Wat bedoel je?

Bericht bekijkenglda19, op 12 oktober 2018 - 18:20, zei:

En dit is voor het weergeven van de kalender
Ja. Maar je kan ook nieuwe events toevoegen:
Visual Basic Code:
Public Sub Nieuw(calendarId As String)
Dim moment = Date.Today.AddDays(1).AddHours(9)
Dim newEvent As New [Event]()
With newEvent
	 .Summary = "Dit is ook een nieuw event"
	 .Description = "Ook een nieuw event"
	 .Start = New EventDateTime()
	 .Start.DateTime = moment
	 .[End] = New EventDateTime()
	 .[End].DateTime = moment.AddHours(2)
End With
service.Events.Insert(newEvent, calendarId).Execute()
End Sub




Bericht bekijkenglda19, op 12 oktober 2018 - 18:20, zei:

maar wat doe je als je er meer hebt
Gebruik het Calender Id

Werkt ook gewoon:
Bijlage  kalendergoogleinsert2.png   19,93K   0 downloads

#10 glda19

glda19

    Professional Developer

  • Leden
  • PipPipPipPip
  • 273 berichten
    Laatst bezocht vandaag, 20:52

Geplaatst op 15 oktober 2018 - 07:10

Wat is de clientid clientsecret en je spreekt daar ook in je eerste code van een application name
Dus veronderstel ik dat ik.eerst de link op de developer pagina moet volgen niet? Om zo een application name aan te maken vermoed ik ? Verder nog iets doen ze spreken daar ook van een bepaald bestand daar iets mee doen!

#11 glda19

glda19

    Professional Developer

  • Leden
  • PipPipPipPip
  • 273 berichten
    Laatst bezocht vandaag, 20:52

Geplaatst op 15 oktober 2018 - 07:11

Wat is de clientid clientsecret en je spreekt daar ook in je eerste code van een application name
Dus veronderstel ik dat ik.eerst de link op de developer pagina moet volgen niet? Om zo een application name aan te maken vermoed ik ? Verder nog iets doen ze spreken daar ook van een bepaald bestand daar iets mee doen!

#12 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1064 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op 15 oktober 2018 - 10:48

Bericht bekijkenglda19, op 15 oktober 2018 - 07:11, zei:

Wat is de clientid clientsecret en je spreekt daar ook in je eerste code van een application name

Volg de link Get Started:
  • SetUp
  • Authentication and authorization : kies voor 2. Authorized API access (OAuth 2.0)
  • Kies de juiste ClientId voor wat je wil doen

Bericht bekijkenglda19, op 15 oktober 2018 - 07:11, zei:

Verder nog iets doen ze spreken daar ook van een bepaald bestand daar iets mee doen!
Dat is een .json bestand met je ClientId en ClientSecret in, ik heb die gewoon in de code geplakt (dat is weliswaar ok voor een demo of proof-of-concept, maar niet voor productiecode).

Je hebt nu alle stappen en daarnaast ook alle nodige code in vb.net, dus ik vermoed dat het nu wel zou moeten lukken om het werkend te krijgen, niet?

#13 Dirk Andries

Dirk Andries

    Guru Developer

  • Leden
  • PipPipPipPipPipPip
  • 1064 berichten
    Laatst bezocht
  • LocatieGent

Geplaatst op vandaag, 14:06

Bericht bekijkenDirk Andries, op 15 oktober 2018 - 10:48, zei:

Je hebt nu alle stappen en daarnaast ook alle nodige code in vb.net, dus ik vermoed dat het nu wel zou moeten lukken om het werkend te krijgen, niet?

En? Vlot het een beetje?

#14 glda19

glda19

    Professional Developer

  • Leden
  • PipPipPipPip
  • 273 berichten
    Laatst bezocht vandaag, 20:52

Geplaatst op vandaag, 19:50

nog niet de tijd gehad en waarschijnlijk begin november ook niet door operatie. Probeer eens dit weekend.
Maar 1 vraag je nog hoe kun je zeggen dat het in een bepaalde kalender moet als je er meerdere hebt.
vb Een Google kalender op naam en dan een op naam werk verlof.





Ook met taq VS 2015, VS2015 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VS 2015] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)