Projektdateien hinzufügen.

FWCreateCalendar/Objects/clsCalEvent.vb

@@ -0,0 +1,105 @@
+Public Class CalEvent
+    Dim varTitle As String
+    Public Location As String
+    Public Organizer As User
+    Dim varStartDate, varStopDate As DateTime
+    Dim UID As String
+    Dim Busy As Boolean = True
+    Public Categories As New List(Of String)
+    Dim StartDateSet, StopDateSet, StartTimeSet, StopTimeSet As Boolean
+
+
+
+    Public Sub New(creator As User)
+        UID = Format(DateTime.Now, "yyyyMMdd-HHmmssffff") & "@" & creator.EMail.Split(CChar("@"))(1)
+        setStartDate(Now.Year, Now.Month, Now.Day)
+    End Sub
+
+
+    Public Function getVEvent() As String
+        If StartTimeSet = False Then StopTimeSet = False
+
+        If StopDateSet = False Then
+            setStopDate(varStartDate.Year, varStartDate.Month, varStartDate.Day)
+        End If
+        If StartTimeSet And StopTimeSet = False Then
+            setStopTime(DateAdd(DateInterval.Hour, 3, varStartDate))
+        End If
+
+
+
+        getVEvent = "BEGIN:VEVENT" & vbCrLf
+        getVEvent &= "UID:" & UID & vbCrLf
+        getVEvent &= "DTSTAMP:" & Format(DateTime.UtcNow, "yyyyMMdd""T""HHmmss") & vbCrLf
+        If Organizer IsNot Nothing Then getVEvent &= "ORGANIZER:" & Organizer.QualifiedName & vbCrLf
+        If StartTimeSet = False Then
+            getVEvent &= "DTSTART;VALUE=DATE:" & Format(varStartDate, "yyyyMMdd") & vbCrLf
+            getVEvent &= "DTEND;VALUE=DATE:" & Format(varStopDate, "yyyyMMdd") & vbCrLf
+        Else
+            getVEvent &= "DTSTART:" & Format(varStartDate, "yyyyMMdd""T""HHmmss") & vbCrLf
+            getVEvent &= "DTEND:" & Format(varStopDate, "yyyyMMdd""T""HHmmss") & vbCrLf
+        End If
+        getVEvent &= "SUMMARY:" & varTitle & vbCrLf
+
+
+        Dim catstring As String = Nothing
+        For Each itm As String In Categories
+            catstring &= itm & ","
+        Next
+        catstring = catstring.Remove(catstring.LastIndexOf(","))
+        getVEvent &= "CATEGORIES:" & catstring & vbCrLf
+        getVEvent &= "END:VEVENT"
+
+    End Function
+
+    Public Property Title As String
+        Get
+            Return varTitle
+        End Get
+        Set(value As String)
+            varTitle = value.Replace("\", "\\").Replace(";", "\;").Replace(",", "\,")
+        End Set
+    End Property
+
+    Public Sub setStartDate(year As Integer, month As Integer, day As Integer)
+        varStartDate = New Date(year, month, day, varStartDate.Hour, varStartDate.Minute, varStartDate.Second)
+        StartDateSet = True
+    End Sub
+
+    Public Sub setStopDate(year As Integer, month As Integer, day As Integer)
+        varStopDate = New Date(year, month, day, varStopDate.Hour, varStopDate.Minute, varStopDate.Second)
+        StopDateSet = True
+    End Sub
+
+    Public Sub setStartTime(hour As Integer, minute As Integer, second As Integer)
+        varStartDate = New Date(varStartDate.Year, varStartDate.Month, varStartDate.Day, hour, minute, second)
+        StartTimeSet = True
+    End Sub
+
+    Public Sub setStopTime(hour As Integer, minute As Integer, second As Integer)
+        varStopDate = New Date(varStopDate.Year, varStopDate.Month, varStopDate.Day, hour, minute, second)
+        StopTimeSet = True
+    End Sub
+
+    Public Sub setStopTime(time As Date)
+        varStopDate = time
+        StopTimeSet = True
+    End Sub
+
+
+End Class
+
+
+
+Public Class User
+    Public Name, EMail As String
+
+    Public Sub New(varName As String, varMail As String)
+        Name = varName
+        EMail = varMail
+    End Sub
+
+    Public Function QualifiedName() As String
+        QualifiedName = "CN=" & Name & ":MAILTO:" & EMail
+    End Function
+End Class

FWCreateCalendar/Objects/clsCategory.vb

@@ -0,0 +1,19 @@
+Imports Newtonsoft.Json
+<Serializable>
+Public Class Category
+
+    Public Property Key As String
+    Public Property Text As String
+    Public Property Color As Color
+    Public Property Exclude As Boolean
+
+    Public Sub New()
+    End Sub
+
+    Public Sub New(Key As String, Text As String, Color As Color)
+        Me.Key = Key
+        Me.Text = Text
+        Me.Color = Color
+    End Sub
+
+End Class

FWCreateCalendar/Objects/clsEventEntry.vb

@@ -0,0 +1,14 @@
+Public Class EventEntry
+    Public Property StartDate As Date = New Date(1900, 1, 1)
+    Public Property EndDate As Date = New Date(1900, 1, 1)
+    Public Property AllDay As Boolean
+    Public Property Category As String
+    Public Property Subject As String
+    Public Property Location As String
+    Public Property Status As String
+    Public Property IsInvalid As Boolean
+    Public Property Exclude As Boolean
+
+    Public Property RowIndex As Integer
+
+End Class

FWCreateCalendar/Objects/clsTableHeader.vb

@@ -0,0 +1,8 @@
+Public Class TableHeader
+    Public Property FieldName As String
+    Public Property ColumnIndex As Integer
+    Public Sub New(fieldname As String)
+        Me.FieldName = fieldname
+        ColumnIndex = -1
+    End Sub
+End Class