Visual Basic 6.0 Google Calendar: Get Color Definitions

Back to Index

Returns the color definitions for calendars and events.

Documentation: https://developers.google.com/google-apps/calendar/v3/reference/colors/get


Dim rest As New ChilkatRest
Dim success As Long

'   Provide a previously obtained OAuth2 access token.
Dim oauth2 As New ChilkatOAuth2
oauth2.AccessToken = "OAUTH2_ACCESS_TOKEN"
success = rest.SetAuthOAuth2(oauth2)

success = rest.Connect("www.googleapis.com",443,1,1)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim sbJson As New ChilkatStringBuilder
success = rest.FullRequestNoBodySb("GET","/calendar/v3/colors",sbJson)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

If (rest.ResponseStatusCode <> 200) Then
    Debug.Print "Received error response code: " & rest.ResponseStatusCode
    Debug.Print "Response body:"
    Debug.Print sbJson.GetAsString()
    Exit Sub
End If

Dim json As New ChilkatJsonObject
success = json.LoadSb(sbJson)

'  The following code parses the JSON response.
'  A sample JSON response is shown below the sample code.
Dim kind As String
Dim updated As String
Dim calendar1Background As String
Dim calendar1Foreground As String
Dim calendar2Background As String
Dim calendar2Foreground As String
Dim calendar3Background As String
Dim calendar3Foreground As String
Dim calendar4Background As String
Dim calendar4Foreground As String
Dim calendar5Background As String
Dim calendar5Foreground As String
Dim calendar6Background As String
Dim calendar6Foreground As String
Dim calendar7Background As String
Dim calendar7Foreground As String
Dim calendar8Background As String
Dim calendar8Foreground As String
Dim calendar9Background As String
Dim calendar9Foreground As String
Dim calendar10Background As String
Dim calendar10Foreground As String
Dim calendar11Background As String
Dim calendar11Foreground As String
Dim calendar12Background As String
Dim calendar12Foreground As String
Dim calendar13Background As String
Dim calendar13Foreground As String
Dim calendar14Background As String
Dim calendar14Foreground As String
Dim calendar15Background As String
Dim calendar15Foreground As String
Dim calendar16Background As String
Dim calendar16Foreground As String
Dim calendar17Background As String
Dim calendar17Foreground As String
Dim calendar18Background As String
Dim calendar18Foreground As String
Dim calendar19Background As String
Dim calendar19Foreground As String
Dim calendar20Background As String
Dim calendar20Foreground As String
Dim calendar21Background As String
Dim calendar21Foreground As String
Dim calendar22Background As String
Dim calendar22Foreground As String
Dim calendar23Background As String
Dim calendar23Foreground As String
Dim calendar24Background As String
Dim calendar24Foreground As String
Dim event1Background As String
Dim event1Foreground As String
Dim event2Background As String
Dim event2Foreground As String
Dim event3Background As String
Dim event3Foreground As String
Dim event4Background As String
Dim event4Foreground As String
Dim event5Background As String
Dim event5Foreground As String
Dim event6Background As String
Dim event6Foreground As String
Dim event7Background As String
Dim event7Foreground As String
Dim event8Background As String
Dim event8Foreground As String
Dim event9Background As String
Dim event9Foreground As String
Dim event10Background As String
Dim event10Foreground As String
Dim event11Background As String
Dim event11Foreground As String

kind = json.StringOf("kind")
updated = json.StringOf("updated")
calendar1Background = json.StringOf("calendar.1.background")
calendar1Foreground = json.StringOf("calendar.1.foreground")
calendar2Background = json.StringOf("calendar.2.background")
calendar2Foreground = json.StringOf("calendar.2.foreground")
calendar3Background = json.StringOf("calendar.3.background")
calendar3Foreground = json.StringOf("calendar.3.foreground")
calendar4Background = json.StringOf("calendar.4.background")
calendar4Foreground = json.StringOf("calendar.4.foreground")
calendar5Background = json.StringOf("calendar.5.background")
calendar5Foreground = json.StringOf("calendar.5.foreground")
calendar6Background = json.StringOf("calendar.6.background")
calendar6Foreground = json.StringOf("calendar.6.foreground")
calendar7Background = json.StringOf("calendar.7.background")
calendar7Foreground = json.StringOf("calendar.7.foreground")
calendar8Background = json.StringOf("calendar.8.background")
calendar8Foreground = json.StringOf("calendar.8.foreground")
calendar9Background = json.StringOf("calendar.9.background")
calendar9Foreground = json.StringOf("calendar.9.foreground")
calendar10Background = json.StringOf("calendar.10.background")
calendar10Foreground = json.StringOf("calendar.10.foreground")
calendar11Background = json.StringOf("calendar.11.background")
calendar11Foreground = json.StringOf("calendar.11.foreground")
calendar12Background = json.StringOf("calendar.12.background")
calendar12Foreground = json.StringOf("calendar.12.foreground")
calendar13Background = json.StringOf("calendar.13.background")
calendar13Foreground = json.StringOf("calendar.13.foreground")
calendar14Background = json.StringOf("calendar.14.background")
calendar14Foreground = json.StringOf("calendar.14.foreground")
calendar15Background = json.StringOf("calendar.15.background")
calendar15Foreground = json.StringOf("calendar.15.foreground")
calendar16Background = json.StringOf("calendar.16.background")
calendar16Foreground = json.StringOf("calendar.16.foreground")
calendar17Background = json.StringOf("calendar.17.background")
calendar17Foreground = json.StringOf("calendar.17.foreground")
calendar18Background = json.StringOf("calendar.18.background")
calendar18Foreground = json.StringOf("calendar.18.foreground")
calendar19Background = json.StringOf("calendar.19.background")
calendar19Foreground = json.StringOf("calendar.19.foreground")
calendar20Background = json.StringOf("calendar.20.background")
calendar20Foreground = json.StringOf("calendar.20.foreground")
calendar21Background = json.StringOf("calendar.21.background")
calendar21Foreground = json.StringOf("calendar.21.foreground")
calendar22Background = json.StringOf("calendar.22.background")
calendar22Foreground = json.StringOf("calendar.22.foreground")
calendar23Background = json.StringOf("calendar.23.background")
calendar23Foreground = json.StringOf("calendar.23.foreground")
calendar24Background = json.StringOf("calendar.24.background")
calendar24Foreground = json.StringOf("calendar.24.foreground")
event1Background = json.StringOf("event.1.background")
event1Foreground = json.StringOf("event.1.foreground")
event2Background = json.StringOf("event.2.background")
event2Foreground = json.StringOf("event.2.foreground")
event3Background = json.StringOf("event.3.background")
event3Foreground = json.StringOf("event.3.foreground")
event4Background = json.StringOf("event.4.background")
event4Foreground = json.StringOf("event.4.foreground")
event5Background = json.StringOf("event.5.background")
event5Foreground = json.StringOf("event.5.foreground")
event6Background = json.StringOf("event.6.background")
event6Foreground = json.StringOf("event.6.foreground")
event7Background = json.StringOf("event.7.background")
event7Foreground = json.StringOf("event.7.foreground")
event8Background = json.StringOf("event.8.background")
event8Foreground = json.StringOf("event.8.foreground")
event9Background = json.StringOf("event.9.background")
event9Foreground = json.StringOf("event.9.foreground")
event10Background = json.StringOf("event.10.background")
event10Foreground = json.StringOf("event.10.foreground")
event11Background = json.StringOf("event.11.background")
event11Foreground = json.StringOf("event.11.foreground")

Debug.Print "Example Completed."

Sample JSON Response Body

{
  "kind": "calendar#colors",
  "updated": "2012-02-14T00:00:00.000Z",
  "calendar": {
    "1": {
      "background": "#ac725e",
      "foreground": "#1d1d1d"
    },
    "2": {
      "background": "#d06b64",
      "foreground": "#1d1d1d"
    },
    "3": {
      "background": "#f83a22",
      "foreground": "#1d1d1d"
    },
    "4": {
      "background": "#fa573c",
      "foreground": "#1d1d1d"
    },
    "5": {
      "background": "#ff7537",
      "foreground": "#1d1d1d"
    },
    "6": {
      "background": "#ffad46",
      "foreground": "#1d1d1d"
    },
    "7": {
      "background": "#42d692",
      "foreground": "#1d1d1d"
    },
    "8": {
      "background": "#16a765",
      "foreground": "#1d1d1d"
    },
    "9": {
      "background": "#7bd148",
      "foreground": "#1d1d1d"
    },
    "10": {
      "background": "#b3dc6c",
      "foreground": "#1d1d1d"
    },
    "11": {
      "background": "#fbe983",
      "foreground": "#1d1d1d"
    },
    "12": {
      "background": "#fad165",
      "foreground": "#1d1d1d"
    },
    "13": {
      "background": "#92e1c0",
      "foreground": "#1d1d1d"
    },
    "14": {
      "background": "#9fe1e7",
      "foreground": "#1d1d1d"
    },
    "15": {
      "background": "#9fc6e7",
      "foreground": "#1d1d1d"
    },
    "16": {
      "background": "#4986e7",
      "foreground": "#1d1d1d"
    },
    "17": {
      "background": "#9a9cff",
      "foreground": "#1d1d1d"
    },
    "18": {
      "background": "#b99aff",
      "foreground": "#1d1d1d"
    },
    "19": {
      "background": "#c2c2c2",
      "foreground": "#1d1d1d"
    },
    "20": {
      "background": "#cabdbf",
      "foreground": "#1d1d1d"
    },
    "21": {
      "background": "#cca6ac",
      "foreground": "#1d1d1d"
    },
    "22": {
      "background": "#f691b2",
      "foreground": "#1d1d1d"
    },
    "23": {
      "background": "#cd74e6",
      "foreground": "#1d1d1d"
    },
    "24": {
      "background": "#a47ae2",
      "foreground": "#1d1d1d"
    }
  },
  "event": {
    "1": {
      "background": "#a4bdfc",
      "foreground": "#1d1d1d"
    },
    "2": {
      "background": "#7ae7bf",
      "foreground": "#1d1d1d"
    },
    "3": {
      "background": "#dbadff",
      "foreground": "#1d1d1d"
    },
    "4": {
      "background": "#ff887c",
      "foreground": "#1d1d1d"
    },
    "5": {
      "background": "#fbd75b",
      "foreground": "#1d1d1d"
    },
    "6": {
      "background": "#ffb878",
      "foreground": "#1d1d1d"
    },
    "7": {
      "background": "#46d6db",
      "foreground": "#1d1d1d"
    },
    "8": {
      "background": "#e1e1e1",
      "foreground": "#1d1d1d"
    },
    "9": {
      "background": "#5484ed",
      "foreground": "#1d1d1d"
    },
    "10": {
      "background": "#51b749",
      "foreground": "#1d1d1d"
    },
    "11": {
      "background": "#dc2127",
      "foreground": "#1d1d1d"
    }
  }
}