Wombat
b16cf3d860
Der Export enthält scheinbar jetzt keinerlei Zeitzonendaten Import in Google, Outlook und auf der HP hat funktioniert
523 lines
30 KiB
VB.net
523 lines
30 KiB
VB.net
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
|
Partial Class frmMain
|
|
Inherits DevExpress.XtraBars.FluentDesignSystem.FluentDesignForm
|
|
|
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
Try
|
|
If disposing AndAlso components IsNot Nothing Then
|
|
components.Dispose()
|
|
End If
|
|
Finally
|
|
MyBase.Dispose(disposing)
|
|
End Try
|
|
End Sub
|
|
|
|
'Wird vom Windows Form-Designer benötigt.
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
|
<System.Diagnostics.DebuggerStepThrough()> _
|
|
Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim TimeRuler1 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler()
|
|
Dim TimeRuler2 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler()
|
|
Dim TimeRuler3 As DevExpress.XtraScheduler.TimeRuler = New DevExpress.XtraScheduler.TimeRuler()
|
|
Me.grd = New DevExpress.XtraGrid.GridControl()
|
|
Me.grdv = New DevExpress.XtraGrid.Views.Grid.GridView()
|
|
Me.ridtpStartEndDate = New DevExpress.XtraEditors.Repository.RepositoryItemDateEdit()
|
|
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
|
Me.btnOpenFile = New DevExpress.XtraBars.BarButtonItem()
|
|
Me.btnCategories = New DevExpress.XtraBars.BarButtonItem()
|
|
Me.btnExport = New DevExpress.XtraBars.BarButtonItem()
|
|
Me.SwitchToDayViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToDayViewItem()
|
|
Me.SwitchToWorkWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToWorkWeekViewItem()
|
|
Me.SwitchToWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToWeekViewItem()
|
|
Me.SwitchToFullWeekViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToFullWeekViewItem()
|
|
Me.SwitchToMonthViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToMonthViewItem()
|
|
Me.SwitchToTimelineViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToTimelineViewItem()
|
|
Me.SwitchToGanttViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToGanttViewItem()
|
|
Me.SwitchToAgendaViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToAgendaViewItem()
|
|
Me.SwitchToYearViewItem1 = New DevExpress.XtraScheduler.UI.SwitchToYearViewItem()
|
|
Me.SwitchTimeScalesItem1 = New DevExpress.XtraScheduler.UI.SwitchTimeScalesItem()
|
|
Me.ChangeScaleWidthItem1 = New DevExpress.XtraScheduler.UI.ChangeScaleWidthItem()
|
|
Me.RepositoryItemSpinEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit()
|
|
Me.SwitchTimeScalesCaptionItem1 = New DevExpress.XtraScheduler.UI.SwitchTimeScalesCaptionItem()
|
|
Me.SwitchCompressWeekendItem1 = New DevExpress.XtraScheduler.UI.SwitchCompressWeekendItem()
|
|
Me.SwitchShowWorkTimeOnlyItem1 = New DevExpress.XtraScheduler.UI.SwitchShowWorkTimeOnlyItem()
|
|
Me.SwitchCellsAutoHeightItem1 = New DevExpress.XtraScheduler.UI.SwitchCellsAutoHeightItem()
|
|
Me.ChangeSnapToCellsUIItem1 = New DevExpress.XtraScheduler.UI.ChangeSnapToCellsUIItem()
|
|
Me.rpMain = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
|
Me.rpgGeneral = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
|
Me.ViewRibbonPage1 = New DevExpress.XtraScheduler.UI.ViewRibbonPage()
|
|
Me.ActiveViewRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.ActiveViewRibbonPageGroup()
|
|
Me.TimeScaleRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.TimeScaleRibbonPageGroup()
|
|
Me.LayoutRibbonPageGroup1 = New DevExpress.XtraScheduler.UI.LayoutRibbonPageGroup()
|
|
Me.OFD = New System.Windows.Forms.OpenFileDialog()
|
|
Me.tcMain = New DevExpress.XtraTab.XtraTabControl()
|
|
Me.tpGrid = New DevExpress.XtraTab.XtraTabPage()
|
|
Me.tpCalendar = New DevExpress.XtraTab.XtraTabPage()
|
|
Me.sched = New DevExpress.XtraScheduler.SchedulerControl()
|
|
Me.schedStorage = New DevExpress.XtraScheduler.SchedulerDataStorage(Me.components)
|
|
Me.SFD = New System.Windows.Forms.SaveFileDialog()
|
|
Me.splMain = New DevExpress.XtraEditors.SplitContainerControl()
|
|
Me.xlsSheet = New DevExpress.XtraSpreadsheet.SpreadsheetControl()
|
|
Me.SchedulerBarController1 = New DevExpress.XtraScheduler.UI.SchedulerBarController(Me.components)
|
|
Me.FluentDesignFormContainer1 = New DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormContainer()
|
|
Me.FluentDesignFormControl1 = New DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl()
|
|
CType(Me.grd, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.grdv, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.ridtpStartEndDate, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.ridtpStartEndDate.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.tcMain, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.tcMain.SuspendLayout()
|
|
Me.tpGrid.SuspendLayout()
|
|
Me.tpCalendar.SuspendLayout()
|
|
CType(Me.sched, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.schedStorage, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.splMain, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.splMain.Panel1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.splMain.Panel1.SuspendLayout()
|
|
CType(Me.splMain.Panel2, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.splMain.Panel2.SuspendLayout()
|
|
Me.splMain.SuspendLayout()
|
|
CType(Me.SchedulerBarController1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.FluentDesignFormControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'grd
|
|
'
|
|
Me.grd.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.grd.Location = New System.Drawing.Point(0, 0)
|
|
Me.grd.MainView = Me.grdv
|
|
Me.grd.Name = "grd"
|
|
Me.grd.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.ridtpStartEndDate})
|
|
Me.grd.Size = New System.Drawing.Size(650, 517)
|
|
Me.grd.TabIndex = 0
|
|
Me.grd.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grdv})
|
|
'
|
|
'grdv
|
|
'
|
|
Me.grdv.GridControl = Me.grd
|
|
Me.grdv.Name = "grdv"
|
|
'
|
|
'ridtpStartEndDate
|
|
'
|
|
Me.ridtpStartEndDate.AutoHeight = False
|
|
Me.ridtpStartEndDate.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
|
Me.ridtpStartEndDate.CalendarTimeProperties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
|
Me.ridtpStartEndDate.DisplayFormat.FormatString = "g"
|
|
Me.ridtpStartEndDate.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
|
|
Me.ridtpStartEndDate.EditFormat.FormatString = "g"
|
|
Me.ridtpStartEndDate.EditFormat.FormatType = DevExpress.Utils.FormatType.DateTime
|
|
Me.ridtpStartEndDate.MaskSettings.Set("mask", "g")
|
|
Me.ridtpStartEndDate.Name = "ridtpStartEndDate"
|
|
'
|
|
'RibbonControl1
|
|
'
|
|
Me.RibbonControl1.ExpandCollapseItem.Id = 0
|
|
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.btnOpenFile, Me.btnCategories, Me.btnExport, Me.SwitchToDayViewItem1, Me.SwitchToWorkWeekViewItem1, Me.SwitchToWeekViewItem1, Me.SwitchToFullWeekViewItem1, Me.SwitchToMonthViewItem1, Me.SwitchToTimelineViewItem1, Me.SwitchToGanttViewItem1, Me.SwitchToAgendaViewItem1, Me.SwitchToYearViewItem1, Me.SwitchTimeScalesItem1, Me.ChangeScaleWidthItem1, Me.SwitchTimeScalesCaptionItem1, Me.SwitchCompressWeekendItem1, Me.SwitchShowWorkTimeOnlyItem1, Me.SwitchCellsAutoHeightItem1, Me.ChangeSnapToCellsUIItem1})
|
|
Me.RibbonControl1.Location = New System.Drawing.Point(0, 31)
|
|
Me.RibbonControl1.MaxItemId = 20
|
|
Me.RibbonControl1.Name = "RibbonControl1"
|
|
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.rpMain, Me.ViewRibbonPage1})
|
|
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemSpinEdit1})
|
|
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
|
|
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.ShowOnMultiplePages
|
|
Me.RibbonControl1.Size = New System.Drawing.Size(1062, 126)
|
|
Me.RibbonControl1.ToolbarLocation = DevExpress.XtraBars.Ribbon.RibbonQuickAccessToolbarLocation.Hidden
|
|
'
|
|
'btnOpenFile
|
|
'
|
|
Me.btnOpenFile.Caption = "Exceldatei öffnen..."
|
|
Me.btnOpenFile.Id = 1
|
|
Me.btnOpenFile.ImageOptions.SvgImage = Global.FWCreateCalendar.My.Resources.Resources.open
|
|
Me.btnOpenFile.Name = "btnOpenFile"
|
|
'
|
|
'btnCategories
|
|
'
|
|
Me.btnCategories.Caption = "Einstellungen..."
|
|
Me.btnCategories.Id = 2
|
|
Me.btnCategories.ImageOptions.SvgImage = Global.FWCreateCalendar.My.Resources.Resources.viewsettings
|
|
Me.btnCategories.Name = "btnCategories"
|
|
Me.btnCategories.RibbonStyle = CType(((DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText) _
|
|
Or DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithoutText), DevExpress.XtraBars.Ribbon.RibbonItemStyles)
|
|
'
|
|
'btnExport
|
|
'
|
|
Me.btnExport.Caption = "Exportieren..."
|
|
Me.btnExport.Id = 3
|
|
Me.btnExport.ImageOptions.SvgImage = Global.FWCreateCalendar.My.Resources.Resources.exportfile
|
|
Me.btnExport.Name = "btnExport"
|
|
'
|
|
'SwitchToDayViewItem1
|
|
'
|
|
Me.SwitchToDayViewItem1.Id = 4
|
|
Me.SwitchToDayViewItem1.Name = "SwitchToDayViewItem1"
|
|
'
|
|
'SwitchToWorkWeekViewItem1
|
|
'
|
|
Me.SwitchToWorkWeekViewItem1.Id = 5
|
|
Me.SwitchToWorkWeekViewItem1.Name = "SwitchToWorkWeekViewItem1"
|
|
'
|
|
'SwitchToWeekViewItem1
|
|
'
|
|
Me.SwitchToWeekViewItem1.Id = 6
|
|
Me.SwitchToWeekViewItem1.Name = "SwitchToWeekViewItem1"
|
|
'
|
|
'SwitchToFullWeekViewItem1
|
|
'
|
|
Me.SwitchToFullWeekViewItem1.Id = 7
|
|
Me.SwitchToFullWeekViewItem1.Name = "SwitchToFullWeekViewItem1"
|
|
'
|
|
'SwitchToMonthViewItem1
|
|
'
|
|
Me.SwitchToMonthViewItem1.Id = 8
|
|
Me.SwitchToMonthViewItem1.Name = "SwitchToMonthViewItem1"
|
|
'
|
|
'SwitchToTimelineViewItem1
|
|
'
|
|
Me.SwitchToTimelineViewItem1.Id = 9
|
|
Me.SwitchToTimelineViewItem1.Name = "SwitchToTimelineViewItem1"
|
|
'
|
|
'SwitchToGanttViewItem1
|
|
'
|
|
Me.SwitchToGanttViewItem1.Id = 10
|
|
Me.SwitchToGanttViewItem1.Name = "SwitchToGanttViewItem1"
|
|
'
|
|
'SwitchToAgendaViewItem1
|
|
'
|
|
Me.SwitchToAgendaViewItem1.Id = 11
|
|
Me.SwitchToAgendaViewItem1.Name = "SwitchToAgendaViewItem1"
|
|
'
|
|
'SwitchToYearViewItem1
|
|
'
|
|
Me.SwitchToYearViewItem1.Id = 12
|
|
Me.SwitchToYearViewItem1.Name = "SwitchToYearViewItem1"
|
|
'
|
|
'SwitchTimeScalesItem1
|
|
'
|
|
Me.SwitchTimeScalesItem1.Id = 13
|
|
Me.SwitchTimeScalesItem1.Name = "SwitchTimeScalesItem1"
|
|
'
|
|
'ChangeScaleWidthItem1
|
|
'
|
|
Me.ChangeScaleWidthItem1.Edit = Me.RepositoryItemSpinEdit1
|
|
Me.ChangeScaleWidthItem1.Id = 14
|
|
Me.ChangeScaleWidthItem1.Name = "ChangeScaleWidthItem1"
|
|
Me.ChangeScaleWidthItem1.UseCommandCaption = True
|
|
'
|
|
'RepositoryItemSpinEdit1
|
|
'
|
|
Me.RepositoryItemSpinEdit1.AutoHeight = False
|
|
Me.RepositoryItemSpinEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
|
Me.RepositoryItemSpinEdit1.EditValueChangedFiringMode = DevExpress.XtraEditors.Controls.EditValueChangedFiringMode.[Default]
|
|
Me.RepositoryItemSpinEdit1.MaxValue = New Decimal(New Integer() {200, 0, 0, 0})
|
|
Me.RepositoryItemSpinEdit1.MinValue = New Decimal(New Integer() {10, 0, 0, 0})
|
|
Me.RepositoryItemSpinEdit1.Name = "RepositoryItemSpinEdit1"
|
|
'
|
|
'SwitchTimeScalesCaptionItem1
|
|
'
|
|
Me.SwitchTimeScalesCaptionItem1.Id = 15
|
|
Me.SwitchTimeScalesCaptionItem1.Name = "SwitchTimeScalesCaptionItem1"
|
|
'
|
|
'SwitchCompressWeekendItem1
|
|
'
|
|
Me.SwitchCompressWeekendItem1.Id = 16
|
|
Me.SwitchCompressWeekendItem1.Name = "SwitchCompressWeekendItem1"
|
|
'
|
|
'SwitchShowWorkTimeOnlyItem1
|
|
'
|
|
Me.SwitchShowWorkTimeOnlyItem1.Id = 17
|
|
Me.SwitchShowWorkTimeOnlyItem1.Name = "SwitchShowWorkTimeOnlyItem1"
|
|
'
|
|
'SwitchCellsAutoHeightItem1
|
|
'
|
|
Me.SwitchCellsAutoHeightItem1.Id = 18
|
|
Me.SwitchCellsAutoHeightItem1.Name = "SwitchCellsAutoHeightItem1"
|
|
'
|
|
'ChangeSnapToCellsUIItem1
|
|
'
|
|
Me.ChangeSnapToCellsUIItem1.Id = 19
|
|
Me.ChangeSnapToCellsUIItem1.Name = "ChangeSnapToCellsUIItem1"
|
|
'
|
|
'rpMain
|
|
'
|
|
Me.rpMain.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.rpgGeneral})
|
|
Me.rpMain.Name = "rpMain"
|
|
Me.rpMain.Text = "Allgemein"
|
|
'
|
|
'rpgGeneral
|
|
'
|
|
Me.rpgGeneral.ItemLinks.Add(Me.btnOpenFile)
|
|
Me.rpgGeneral.ItemLinks.Add(Me.btnCategories)
|
|
Me.rpgGeneral.ItemLinks.Add(Me.btnExport)
|
|
Me.rpgGeneral.Name = "rpgGeneral"
|
|
Me.rpgGeneral.Text = "Allgemein"
|
|
'
|
|
'ViewRibbonPage1
|
|
'
|
|
Me.ViewRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.ActiveViewRibbonPageGroup1, Me.TimeScaleRibbonPageGroup1, Me.LayoutRibbonPageGroup1})
|
|
Me.ViewRibbonPage1.Name = "ViewRibbonPage1"
|
|
'
|
|
'ActiveViewRibbonPageGroup1
|
|
'
|
|
Me.ActiveViewRibbonPageGroup1.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[False]
|
|
Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToDayViewItem1)
|
|
Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToWorkWeekViewItem1)
|
|
Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToWeekViewItem1)
|
|
Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToFullWeekViewItem1)
|
|
Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToMonthViewItem1)
|
|
Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToTimelineViewItem1)
|
|
Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToGanttViewItem1)
|
|
Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToAgendaViewItem1)
|
|
Me.ActiveViewRibbonPageGroup1.ItemLinks.Add(Me.SwitchToYearViewItem1)
|
|
Me.ActiveViewRibbonPageGroup1.Name = "ActiveViewRibbonPageGroup1"
|
|
'
|
|
'TimeScaleRibbonPageGroup1
|
|
'
|
|
Me.TimeScaleRibbonPageGroup1.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[False]
|
|
Me.TimeScaleRibbonPageGroup1.ItemLinks.Add(Me.SwitchTimeScalesItem1)
|
|
Me.TimeScaleRibbonPageGroup1.ItemLinks.Add(Me.ChangeScaleWidthItem1)
|
|
Me.TimeScaleRibbonPageGroup1.ItemLinks.Add(Me.SwitchTimeScalesCaptionItem1)
|
|
Me.TimeScaleRibbonPageGroup1.Name = "TimeScaleRibbonPageGroup1"
|
|
'
|
|
'LayoutRibbonPageGroup1
|
|
'
|
|
Me.LayoutRibbonPageGroup1.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[False]
|
|
Me.LayoutRibbonPageGroup1.ItemLinks.Add(Me.SwitchCompressWeekendItem1)
|
|
Me.LayoutRibbonPageGroup1.ItemLinks.Add(Me.SwitchShowWorkTimeOnlyItem1)
|
|
Me.LayoutRibbonPageGroup1.ItemLinks.Add(Me.SwitchCellsAutoHeightItem1)
|
|
Me.LayoutRibbonPageGroup1.ItemLinks.Add(Me.ChangeSnapToCellsUIItem1)
|
|
Me.LayoutRibbonPageGroup1.Name = "LayoutRibbonPageGroup1"
|
|
'
|
|
'OFD
|
|
'
|
|
Me.OFD.Filter = "Excel-Dateien (*.xls, *.xlsx, *.xlsm)|*.xlsx;*.xls;*.xlsm|Alle Dateien (*.*)|*.*"
|
|
'
|
|
'tcMain
|
|
'
|
|
Me.tcMain.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.tcMain.Location = New System.Drawing.Point(0, 0)
|
|
Me.tcMain.Name = "tcMain"
|
|
Me.tcMain.SelectedTabPage = Me.tpGrid
|
|
Me.tcMain.Size = New System.Drawing.Size(652, 542)
|
|
Me.tcMain.TabIndex = 2
|
|
Me.tcMain.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.tpGrid, Me.tpCalendar})
|
|
'
|
|
'tpGrid
|
|
'
|
|
Me.tpGrid.Controls.Add(Me.grd)
|
|
Me.tpGrid.Name = "tpGrid"
|
|
Me.tpGrid.Size = New System.Drawing.Size(650, 517)
|
|
Me.tpGrid.Text = "Tabelle"
|
|
'
|
|
'tpCalendar
|
|
'
|
|
Me.tpCalendar.Controls.Add(Me.sched)
|
|
Me.tpCalendar.Name = "tpCalendar"
|
|
Me.tpCalendar.Size = New System.Drawing.Size(650, 517)
|
|
Me.tpCalendar.Text = "Kalender"
|
|
'
|
|
'sched
|
|
'
|
|
Me.sched.ActiveViewType = DevExpress.XtraScheduler.SchedulerViewType.Year
|
|
Me.sched.DataStorage = Me.schedStorage
|
|
Me.sched.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.sched.Location = New System.Drawing.Point(0, 0)
|
|
Me.sched.MenuManager = Me.RibbonControl1
|
|
Me.sched.Name = "sched"
|
|
Me.sched.OptionsBehavior.ClientTimeZoneId = "UTC"
|
|
Me.sched.Size = New System.Drawing.Size(650, 517)
|
|
Me.sched.Start = New Date(2021, 12, 27, 0, 0, 0, 0)
|
|
Me.sched.TabIndex = 0
|
|
Me.sched.Text = "SchedulerControl1"
|
|
Me.sched.Views.DayView.TimeRulers.Add(TimeRuler1)
|
|
Me.sched.Views.FullWeekView.Enabled = True
|
|
Me.sched.Views.FullWeekView.TimeRulers.Add(TimeRuler2)
|
|
Me.sched.Views.WeekView.Enabled = False
|
|
Me.sched.Views.WorkWeekView.TimeRulers.Add(TimeRuler3)
|
|
Me.sched.Views.YearView.UseOptimizedScrolling = False
|
|
'
|
|
'schedStorage
|
|
'
|
|
'
|
|
'
|
|
'
|
|
Me.schedStorage.AppointmentDependencies.AutoReload = False
|
|
'
|
|
'
|
|
'
|
|
Me.schedStorage.Appointments.Labels.CreateNewLabel(0, "None", "&None", System.Drawing.SystemColors.Window)
|
|
Me.schedStorage.Appointments.Labels.CreateNewLabel(1, "Important", "&Important", System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(194, Byte), Integer), CType(CType(190, Byte), Integer)))
|
|
Me.schedStorage.Appointments.Labels.CreateNewLabel(2, "Business", "&Business", System.Drawing.Color.FromArgb(CType(CType(168, Byte), Integer), CType(CType(213, Byte), Integer), CType(CType(255, Byte), Integer)))
|
|
Me.schedStorage.Appointments.Labels.CreateNewLabel(3, "Personal", "&Personal", System.Drawing.Color.FromArgb(CType(CType(193, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(156, Byte), Integer)))
|
|
Me.schedStorage.Appointments.Labels.CreateNewLabel(4, "Vacation", "&Vacation", System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(228, Byte), Integer), CType(CType(199, Byte), Integer)))
|
|
Me.schedStorage.Appointments.Labels.CreateNewLabel(5, "Must Attend", "Must &Attend", System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(206, Byte), Integer), CType(CType(147, Byte), Integer)))
|
|
Me.schedStorage.Appointments.Labels.CreateNewLabel(6, "Travel Required", "&Travel Required", System.Drawing.Color.FromArgb(CType(CType(199, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(255, Byte), Integer)))
|
|
Me.schedStorage.Appointments.Labels.CreateNewLabel(7, "Needs Preparation", "&Needs Preparation", System.Drawing.Color.FromArgb(CType(CType(207, Byte), Integer), CType(CType(219, Byte), Integer), CType(CType(152, Byte), Integer)))
|
|
Me.schedStorage.Appointments.Labels.CreateNewLabel(8, "Birthday", "&Birthday", System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(207, Byte), Integer), CType(CType(233, Byte), Integer)))
|
|
Me.schedStorage.Appointments.Labels.CreateNewLabel(9, "Anniversary", "&Anniversary", System.Drawing.Color.FromArgb(CType(CType(141, Byte), Integer), CType(CType(233, Byte), Integer), CType(CType(223, Byte), Integer)))
|
|
Me.schedStorage.Appointments.Labels.CreateNewLabel(10, "Phone Call", "Phone &Call", System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(247, Byte), Integer), CType(CType(165, Byte), Integer)))
|
|
Me.schedStorage.TimeZoneId = "E. Europe Standard Time"
|
|
'
|
|
'SFD
|
|
'
|
|
Me.SFD.Filter = "iCalendar (*.ics)|*.ics|Alle Dateien (*.*)|*.*"
|
|
'
|
|
'splMain
|
|
'
|
|
Me.splMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel2
|
|
Me.splMain.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.splMain.FixedPanel = DevExpress.XtraEditors.SplitFixedPanel.None
|
|
Me.splMain.Location = New System.Drawing.Point(0, 157)
|
|
Me.splMain.Name = "splMain"
|
|
'
|
|
'splMain.Panel1
|
|
'
|
|
Me.splMain.Panel1.Controls.Add(Me.tcMain)
|
|
Me.splMain.Panel1.Text = "Panel1"
|
|
'
|
|
'splMain.Panel2
|
|
'
|
|
Me.splMain.Panel2.Controls.Add(Me.xlsSheet)
|
|
Me.splMain.Panel2.Text = "Panel2"
|
|
Me.splMain.Size = New System.Drawing.Size(1062, 542)
|
|
Me.splMain.SplitterPosition = 652
|
|
Me.splMain.TabIndex = 4
|
|
'
|
|
'xlsSheet
|
|
'
|
|
Me.xlsSheet.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.xlsSheet.Location = New System.Drawing.Point(0, 0)
|
|
Me.xlsSheet.MenuManager = Me.RibbonControl1
|
|
Me.xlsSheet.Name = "xlsSheet"
|
|
Me.xlsSheet.ReadOnly = True
|
|
Me.xlsSheet.Size = New System.Drawing.Size(400, 542)
|
|
Me.xlsSheet.TabIndex = 0
|
|
Me.xlsSheet.Text = "SpreadsheetControl1"
|
|
'
|
|
'SchedulerBarController1
|
|
'
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchToDayViewItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchToWorkWeekViewItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchToWeekViewItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchToFullWeekViewItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchToMonthViewItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchToTimelineViewItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchToGanttViewItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchToAgendaViewItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchToYearViewItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchTimeScalesItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.ChangeScaleWidthItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchTimeScalesCaptionItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchCompressWeekendItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchShowWorkTimeOnlyItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.SwitchCellsAutoHeightItem1)
|
|
Me.SchedulerBarController1.BarItems.Add(Me.ChangeSnapToCellsUIItem1)
|
|
Me.SchedulerBarController1.Control = Me.sched
|
|
'
|
|
'FluentDesignFormContainer1
|
|
'
|
|
Me.FluentDesignFormContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.FluentDesignFormContainer1.Location = New System.Drawing.Point(0, 31)
|
|
Me.FluentDesignFormContainer1.Name = "FluentDesignFormContainer1"
|
|
Me.FluentDesignFormContainer1.Size = New System.Drawing.Size(1062, 668)
|
|
Me.FluentDesignFormContainer1.TabIndex = 6
|
|
'
|
|
'FluentDesignFormControl1
|
|
'
|
|
Me.FluentDesignFormControl1.FluentDesignForm = Me
|
|
Me.FluentDesignFormControl1.Location = New System.Drawing.Point(0, 0)
|
|
Me.FluentDesignFormControl1.Name = "FluentDesignFormControl1"
|
|
Me.FluentDesignFormControl1.Size = New System.Drawing.Size(1062, 31)
|
|
Me.FluentDesignFormControl1.TabIndex = 8
|
|
Me.FluentDesignFormControl1.TabStop = False
|
|
'
|
|
'frmMain
|
|
'
|
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
|
Me.ClientSize = New System.Drawing.Size(1062, 699)
|
|
Me.ControlContainer = Me.FluentDesignFormContainer1
|
|
Me.Controls.Add(Me.splMain)
|
|
Me.Controls.Add(Me.RibbonControl1)
|
|
Me.Controls.Add(Me.FluentDesignFormContainer1)
|
|
Me.Controls.Add(Me.FluentDesignFormControl1)
|
|
Me.FluentDesignFormControl = Me.FluentDesignFormControl1
|
|
Me.Name = "frmMain"
|
|
Me.Text = "Feuerwehrkalender erstellen"
|
|
CType(Me.grd, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.grdv, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.ridtpStartEndDate.CalendarTimeProperties, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.ridtpStartEndDate, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.tcMain, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.tcMain.ResumeLayout(False)
|
|
Me.tpGrid.ResumeLayout(False)
|
|
Me.tpCalendar.ResumeLayout(False)
|
|
CType(Me.sched, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.schedStorage, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.splMain.Panel1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.splMain.Panel1.ResumeLayout(False)
|
|
CType(Me.splMain.Panel2, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.splMain.Panel2.ResumeLayout(False)
|
|
CType(Me.splMain, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.splMain.ResumeLayout(False)
|
|
CType(Me.SchedulerBarController1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.FluentDesignFormControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
Me.PerformLayout()
|
|
|
|
End Sub
|
|
|
|
Friend WithEvents grd As DevExpress.XtraGrid.GridControl
|
|
Friend WithEvents grdv As DevExpress.XtraGrid.Views.Grid.GridView
|
|
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
|
|
Friend WithEvents rpMain As DevExpress.XtraBars.Ribbon.RibbonPage
|
|
Friend WithEvents rpgGeneral As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
|
Friend WithEvents btnOpenFile As DevExpress.XtraBars.BarButtonItem
|
|
Friend WithEvents OFD As OpenFileDialog
|
|
Friend WithEvents tcMain As DevExpress.XtraTab.XtraTabControl
|
|
Friend WithEvents tpGrid As DevExpress.XtraTab.XtraTabPage
|
|
Friend WithEvents tpCalendar As DevExpress.XtraTab.XtraTabPage
|
|
Friend WithEvents sched As DevExpress.XtraScheduler.SchedulerControl
|
|
Friend WithEvents schedStorage As DevExpress.XtraScheduler.SchedulerDataStorage
|
|
Friend WithEvents btnCategories As DevExpress.XtraBars.BarButtonItem
|
|
Friend WithEvents btnExport As DevExpress.XtraBars.BarButtonItem
|
|
Friend WithEvents SFD As SaveFileDialog
|
|
Friend WithEvents splMain As DevExpress.XtraEditors.SplitContainerControl
|
|
Friend WithEvents xlsSheet As DevExpress.XtraSpreadsheet.SpreadsheetControl
|
|
Friend WithEvents SwitchToDayViewItem1 As DevExpress.XtraScheduler.UI.SwitchToDayViewItem
|
|
Friend WithEvents SwitchToWorkWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToWorkWeekViewItem
|
|
Friend WithEvents SwitchToWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToWeekViewItem
|
|
Friend WithEvents SwitchToFullWeekViewItem1 As DevExpress.XtraScheduler.UI.SwitchToFullWeekViewItem
|
|
Friend WithEvents SwitchToMonthViewItem1 As DevExpress.XtraScheduler.UI.SwitchToMonthViewItem
|
|
Friend WithEvents SwitchToTimelineViewItem1 As DevExpress.XtraScheduler.UI.SwitchToTimelineViewItem
|
|
Friend WithEvents SwitchToGanttViewItem1 As DevExpress.XtraScheduler.UI.SwitchToGanttViewItem
|
|
Friend WithEvents SwitchToAgendaViewItem1 As DevExpress.XtraScheduler.UI.SwitchToAgendaViewItem
|
|
Friend WithEvents SwitchToYearViewItem1 As DevExpress.XtraScheduler.UI.SwitchToYearViewItem
|
|
Friend WithEvents SwitchTimeScalesItem1 As DevExpress.XtraScheduler.UI.SwitchTimeScalesItem
|
|
Friend WithEvents ChangeScaleWidthItem1 As DevExpress.XtraScheduler.UI.ChangeScaleWidthItem
|
|
Friend WithEvents RepositoryItemSpinEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemSpinEdit
|
|
Friend WithEvents SwitchTimeScalesCaptionItem1 As DevExpress.XtraScheduler.UI.SwitchTimeScalesCaptionItem
|
|
Friend WithEvents SwitchCompressWeekendItem1 As DevExpress.XtraScheduler.UI.SwitchCompressWeekendItem
|
|
Friend WithEvents SwitchShowWorkTimeOnlyItem1 As DevExpress.XtraScheduler.UI.SwitchShowWorkTimeOnlyItem
|
|
Friend WithEvents SwitchCellsAutoHeightItem1 As DevExpress.XtraScheduler.UI.SwitchCellsAutoHeightItem
|
|
Friend WithEvents ChangeSnapToCellsUIItem1 As DevExpress.XtraScheduler.UI.ChangeSnapToCellsUIItem
|
|
Friend WithEvents ViewRibbonPage1 As DevExpress.XtraScheduler.UI.ViewRibbonPage
|
|
Friend WithEvents ActiveViewRibbonPageGroup1 As DevExpress.XtraScheduler.UI.ActiveViewRibbonPageGroup
|
|
Friend WithEvents TimeScaleRibbonPageGroup1 As DevExpress.XtraScheduler.UI.TimeScaleRibbonPageGroup
|
|
Friend WithEvents LayoutRibbonPageGroup1 As DevExpress.XtraScheduler.UI.LayoutRibbonPageGroup
|
|
Friend WithEvents SchedulerBarController1 As DevExpress.XtraScheduler.UI.SchedulerBarController
|
|
Friend WithEvents FluentDesignFormContainer1 As DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormContainer
|
|
Friend WithEvents FluentDesignFormControl1 As DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl
|
|
Friend WithEvents ridtpStartEndDate As DevExpress.XtraEditors.Repository.RepositoryItemDateEdit
|
|
End Class
|