edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

TvSettingsNew

Browse Source
This commit is contained in:
m.ilhan
2024-12-09 17:43:40 +01:00
parent 101e7bf1dc
commit 3f74e845bb
11 changed files with 1194 additions and 822 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Aviso/App.config
View File

@@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
@@ -71,6 +71,26 @@
<assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.1.2" newVersion="4.0.1.2" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Numerics.Vectors" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.1.4.0" newVersion="4.1.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.2.0.0" newVersion="4.2.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Spire.Pdf" publicKeyToken="663f351905198cb3" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-10.7.21.0" newVersion="10.7.21.0" />
</dependentAssembly>
</assemblyBinding>
</runtime>
</configuration>

9
Aviso/Aviso.vbproj
View File

@@ -964,6 +964,12 @@
<Compile Include="frmTv.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmTvSettings.Designer.vb">
<DependentUpon>frmTvSettings.vb</DependentUpon>
</Compile>
<Compile Include="frmTvSettings.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWarenbezeichnungBegriffe.Designer.vb">
<DependentUpon>frmWarenbezeichnungBegriffe.vb</DependentUpon>
</Compile>
@@ -1414,6 +1420,9 @@
<EmbeddedResource Include="frmTv.resx">
<DependentUpon>frmTv.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTvSettings.resx">
<DependentUpon>frmTvSettings.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWarenbezeichnungBegriffe.resx">
<DependentUpon>frmWarenbezeichnungBegriffe.vb</DependentUpon>
</EmbeddedResource>

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.0.5.9")>
<Assembly: AssemblyFileVersion("4.0.5.9")>
<Assembly: AssemblyVersion("4.0.7.0")>
<Assembly: AssemblyFileVersion("4.0.7.0")>

BIN
Aviso/bin/Debug/Resources/ambar_boarder.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 23 KiB

495
Aviso/frmEintragTvNew.Designer.vb generated
View File

@@ -15,48 +15,80 @@ Partial Class frmEintragTvNew
Private components As System.ComponentModel.IContainer
' Deklaration der Steuerelemente
Friend WithEvents cbxStandort As ComboBox
Friend WithEvents lblStandort As Label
Friend WithEvents dgvAVISOTV As DataGridView
Friend WithEvents grpEingabe As GroupBox
Friend WithEvents lblNeueTvTextBezeichnung As Label
Friend WithEvents txtNeueTvTextBezeichnung As TextBox
Friend WithEvents chkIsActive As CheckBox
Friend WithEvents chkIsRecurring As CheckBox
Friend WithEvents grpWochentage As GroupBox
Friend WithEvents chkSunday As CheckBox
Friend WithEvents chkSaturday As CheckBox
Friend WithEvents chkFriday As CheckBox
Friend WithEvents chkThursday As CheckBox
Friend WithEvents chkWednesday As CheckBox
Friend WithEvents chkTuesday As CheckBox
Friend WithEvents chkMonday As CheckBox
Friend WithEvents dtpEndTime As DateTimePicker
Friend WithEvents lblEndTime As Label
Friend WithEvents dtpStartTime As DateTimePicker
Friend WithEvents lblStartTime As Label
Friend WithEvents dtpEndDate As DateTimePicker
Friend WithEvents lblEndDate As Label
Friend WithEvents dtpStartDate As DateTimePicker
Friend WithEvents lblStartDate As Label
Friend WithEvents lblZeile1 As Label
Friend WithEvents cmbTvTextBezeichnungAuswahl As ComboBox
Friend WithEvents lblBezeichnung As Label
Friend WithEvents lblPosition As Label
Friend WithEvents cmbPosition As ComboBox
Friend WithEvents btnSpeichern As Button
Friend WithEvents btnLoeschen As Button
Friend WithEvents btnAbbrechen As Button
Friend WithEvents chkShowInactive As CheckBox
' Neue Komponenten für Textformatierung
Private WithEvents btnBold As Button
Private WithEvents btnItalic As Button
Private WithEvents btnUnderline As Button
Private WithEvents btnTextColor As Button
Private WithEvents btnBackColor As Button
Private WithEvents btnAlignLeft As Button
Private WithEvents btnAlignCenter As Button
Private WithEvents btnAlignRight As Button
Private WithEvents cmbFontFamily As ComboBox
Private WithEvents cmbFontSize As ComboBox
Private WithEvents colorDialogText As ColorDialog
Private WithEvents rtbZeile1 As RichTextBox ' Geänderte TextBox zu RichTextBox
Friend WithEvents btnBold As Button
Friend WithEvents btnItalic As Button
Friend WithEvents btnUnderline As Button
Friend WithEvents btnTextColor As Button
Friend WithEvents btnBackColor As Button
Friend WithEvents btnAlignLeft As Button
Friend WithEvents btnAlignCenter As Button
Friend WithEvents btnAlignRight As Button
Friend WithEvents cmbFontFamily As ComboBox
Friend WithEvents cmbFontSize As ComboBox
Friend WithEvents colorDialogText As ColorDialog
' TabControl und RichTextBoxen
Friend WithEvents tabControlZeilen As TabControl
Friend WithEvents tabPageZeile1 As TabPage
Friend WithEvents tabPageZeile2 As TabPage
Friend WithEvents tabPageZeile3 As TabPage
Friend WithEvents rtbZeile1 As RichTextBox
Friend WithEvents rtbZeile2 As RichTextBox
Friend WithEvents rtbZeile3 As RichTextBox
Friend WithEvents btnOpenSettings As Button
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.btnOpenSettings = New System.Windows.Forms.Button()
Me.cbxStandort = New System.Windows.Forms.ComboBox()
Me.lblStandort = New System.Windows.Forms.Label()
Me.dgvAVISOTV = New System.Windows.Forms.DataGridView()
Me.grpEingabe = New System.Windows.Forms.GroupBox()
Me.btnBold3 = New System.Windows.Forms.Button()
Me.btnItalic3 = New System.Windows.Forms.Button()
Me.btnUnderline3 = New System.Windows.Forms.Button()
Me.btnTextColor3 = New System.Windows.Forms.Button()
Me.btnBackColor3 = New System.Windows.Forms.Button()
Me.btnAlignLeft3 = New System.Windows.Forms.Button()
Me.btnAlignCenter3 = New System.Windows.Forms.Button()
Me.btnAlignRight3 = New System.Windows.Forms.Button()
Me.cmbFontFamily3 = New System.Windows.Forms.ComboBox()
Me.cmbFontSize3 = New System.Windows.Forms.ComboBox()
Me.btnBold2 = New System.Windows.Forms.Button()
Me.btnItalic2 = New System.Windows.Forms.Button()
Me.btnUnderline2 = New System.Windows.Forms.Button()
Me.btnTextColor2 = New System.Windows.Forms.Button()
Me.btnBackColor2 = New System.Windows.Forms.Button()
Me.btnAlignLeft2 = New System.Windows.Forms.Button()
Me.btnAlignCenter2 = New System.Windows.Forms.Button()
Me.btnAlignRight2 = New System.Windows.Forms.Button()
Me.cmbFontFamily2 = New System.Windows.Forms.ComboBox()
Me.cmbFontSize2 = New System.Windows.Forms.ComboBox()
Me.rtbZeile3 = New System.Windows.Forms.RichTextBox()
Me.tabControlZeilen = New System.Windows.Forms.TabControl()
Me.tabPageZeile1 = New System.Windows.Forms.TabPage()
Me.rtbZeile1 = New System.Windows.Forms.RichTextBox()
Me.tabPageZeile2 = New System.Windows.Forms.TabPage()
Me.rtbZeile2 = New System.Windows.Forms.RichTextBox()
Me.tabPageZeile3 = New System.Windows.Forms.TabPage()
Me.rtbZeile3 = New System.Windows.Forms.RichTextBox()
Me.lblNeueTvTextBezeichnung = New System.Windows.Forms.Label()
Me.txtNeueTvTextBezeichnung = New System.Windows.Forms.TextBox()
Me.chkIsActive = New System.Windows.Forms.CheckBox()
@@ -77,9 +109,6 @@ Partial Class frmEintragTvNew
Me.lblEndDate = New System.Windows.Forms.Label()
Me.dtpStartDate = New System.Windows.Forms.DateTimePicker()
Me.lblStartDate = New System.Windows.Forms.Label()
Me.lblZeile3 = New System.Windows.Forms.Label()
Me.lblZeile2 = New System.Windows.Forms.Label()
Me.rtbZeile1 = New System.Windows.Forms.RichTextBox()
Me.lblZeile1 = New System.Windows.Forms.Label()
Me.cmbTvTextBezeichnungAuswahl = New System.Windows.Forms.ComboBox()
Me.lblBezeichnung = New System.Windows.Forms.Label()
@@ -102,8 +131,21 @@ Partial Class frmEintragTvNew
Me.colorDialogText = New System.Windows.Forms.ColorDialog()
CType(Me.dgvAVISOTV, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpEingabe.SuspendLayout()
Me.tabControlZeilen.SuspendLayout()
Me.tabPageZeile1.SuspendLayout()
Me.tabPageZeile2.SuspendLayout()
Me.tabPageZeile3.SuspendLayout()
Me.grpWochentage.SuspendLayout()
Me.SuspendLayout()
Me.btnOpenSettings.Location = New System.Drawing.Point(15, 1010)
Me.btnOpenSettings.Name = "btnOpenSettings"
Me.btnOpenSettings.Size = New System.Drawing.Size(150, 30)
Me.btnOpenSettings.TabIndex = 8
Me.btnOpenSettings.Text = "TV Einstellungen"
Me.btnOpenSettings.UseVisualStyleBackColor = True
'
'cbxStandort
'
@@ -138,28 +180,7 @@ Partial Class frmEintragTvNew
'
'grpEingabe
'
Me.grpEingabe.Controls.Add(Me.btnBold3)
Me.grpEingabe.Controls.Add(Me.btnItalic3)
Me.grpEingabe.Controls.Add(Me.btnUnderline3)
Me.grpEingabe.Controls.Add(Me.btnTextColor3)
Me.grpEingabe.Controls.Add(Me.btnBackColor3)
Me.grpEingabe.Controls.Add(Me.btnAlignLeft3)
Me.grpEingabe.Controls.Add(Me.btnAlignCenter3)
Me.grpEingabe.Controls.Add(Me.btnAlignRight3)
Me.grpEingabe.Controls.Add(Me.cmbFontFamily3)
Me.grpEingabe.Controls.Add(Me.cmbFontSize3)
Me.grpEingabe.Controls.Add(Me.btnBold2)
Me.grpEingabe.Controls.Add(Me.btnItalic2)
Me.grpEingabe.Controls.Add(Me.btnUnderline2)
Me.grpEingabe.Controls.Add(Me.btnTextColor2)
Me.grpEingabe.Controls.Add(Me.btnBackColor2)
Me.grpEingabe.Controls.Add(Me.btnAlignLeft2)
Me.grpEingabe.Controls.Add(Me.btnAlignCenter2)
Me.grpEingabe.Controls.Add(Me.btnAlignRight2)
Me.grpEingabe.Controls.Add(Me.cmbFontFamily2)
Me.grpEingabe.Controls.Add(Me.cmbFontSize2)
Me.grpEingabe.Controls.Add(Me.rtbZeile3)
Me.grpEingabe.Controls.Add(Me.rtbZeile2)
Me.grpEingabe.Controls.Add(Me.tabControlZeilen)
Me.grpEingabe.Controls.Add(Me.lblNeueTvTextBezeichnung)
Me.grpEingabe.Controls.Add(Me.txtNeueTvTextBezeichnung)
Me.grpEingabe.Controls.Add(Me.chkIsActive)
@@ -173,9 +194,6 @@ Partial Class frmEintragTvNew
Me.grpEingabe.Controls.Add(Me.lblEndDate)
Me.grpEingabe.Controls.Add(Me.dtpStartDate)
Me.grpEingabe.Controls.Add(Me.lblStartDate)
Me.grpEingabe.Controls.Add(Me.lblZeile3)
Me.grpEingabe.Controls.Add(Me.lblZeile2)
Me.grpEingabe.Controls.Add(Me.rtbZeile1)
Me.grpEingabe.Controls.Add(Me.lblZeile1)
Me.grpEingabe.Controls.Add(Me.cmbTvTextBezeichnungAuswahl)
Me.grpEingabe.Controls.Add(Me.lblBezeichnung)
@@ -198,202 +216,77 @@ Partial Class frmEintragTvNew
Me.grpEingabe.TabStop = False
Me.grpEingabe.Text = "Informationen eingeben"
'
'btnBold3
'tabControlZeilen
'
Me.btnBold3.Location = New System.Drawing.Point(100, 449)
Me.btnBold3.Name = "btnBold3"
Me.btnBold3.Size = New System.Drawing.Size(30, 30)
Me.btnBold3.TabIndex = 45
Me.btnBold3.Text = "B"
Me.btnBold3.UseVisualStyleBackColor = True
Me.tabControlZeilen.Controls.Add(Me.tabPageZeile1)
Me.tabControlZeilen.Controls.Add(Me.tabPageZeile2)
Me.tabControlZeilen.Controls.Add(Me.tabPageZeile3)
Me.tabControlZeilen.Location = New System.Drawing.Point(40, 100)
Me.tabControlZeilen.Name = "tabControlZeilen"
Me.tabControlZeilen.SelectedIndex = 0
Me.tabControlZeilen.Size = New System.Drawing.Size(1235, 332)
Me.tabControlZeilen.TabIndex = 35
'
'btnItalic3
'tabPageZeile1
'
Me.btnItalic3.Location = New System.Drawing.Point(140, 449)
Me.btnItalic3.Name = "btnItalic3"
Me.btnItalic3.Size = New System.Drawing.Size(30, 30)
Me.btnItalic3.TabIndex = 46
Me.btnItalic3.Text = "I"
Me.btnItalic3.UseVisualStyleBackColor = True
Me.tabPageZeile1.Controls.Add(Me.rtbZeile1)
Me.tabPageZeile1.Location = New System.Drawing.Point(4, 22)
Me.tabPageZeile1.Name = "tabPageZeile1"
Me.tabPageZeile1.Padding = New System.Windows.Forms.Padding(3)
Me.tabPageZeile1.Size = New System.Drawing.Size(1227, 306)
Me.tabPageZeile1.TabIndex = 0
Me.tabPageZeile1.Text = "Deutsch"
Me.tabPageZeile1.UseVisualStyleBackColor = True
'
'btnUnderline3
'rtbZeile1
'
Me.btnUnderline3.Location = New System.Drawing.Point(180, 449)
Me.btnUnderline3.Name = "btnUnderline3"
Me.btnUnderline3.Size = New System.Drawing.Size(30, 30)
Me.btnUnderline3.TabIndex = 47
Me.btnUnderline3.Text = "U"
Me.btnUnderline3.UseVisualStyleBackColor = True
Me.rtbZeile1.Dock = System.Windows.Forms.DockStyle.Fill
Me.rtbZeile1.Location = New System.Drawing.Point(3, 3)
Me.rtbZeile1.Name = "rtbZeile1"
Me.rtbZeile1.Size = New System.Drawing.Size(1221, 300)
Me.rtbZeile1.TabIndex = 0
Me.rtbZeile1.Text = ""
'
'btnTextColor3
'tabPageZeile2
'
Me.btnTextColor3.Location = New System.Drawing.Point(302, 449)
Me.btnTextColor3.Name = "btnTextColor3"
Me.btnTextColor3.Size = New System.Drawing.Size(30, 30)
Me.btnTextColor3.TabIndex = 48
Me.btnTextColor3.Text = "A"
Me.btnTextColor3.UseVisualStyleBackColor = True
'
'btnBackColor3
'
Me.btnBackColor3.Location = New System.Drawing.Point(342, 449)
Me.btnBackColor3.Name = "btnBackColor3"
Me.btnBackColor3.Size = New System.Drawing.Size(30, 30)
Me.btnBackColor3.TabIndex = 49
Me.btnBackColor3.Text = "BG"
Me.btnBackColor3.UseVisualStyleBackColor = True
'
'btnAlignLeft3
'
Me.btnAlignLeft3.Location = New System.Drawing.Point(471, 449)
Me.btnAlignLeft3.Name = "btnAlignLeft3"
Me.btnAlignLeft3.Size = New System.Drawing.Size(30, 30)
Me.btnAlignLeft3.TabIndex = 50
Me.btnAlignLeft3.Text = "L"
Me.btnAlignLeft3.UseVisualStyleBackColor = True
'
'btnAlignCenter3
'
Me.btnAlignCenter3.Location = New System.Drawing.Point(511, 449)
Me.btnAlignCenter3.Name = "btnAlignCenter3"
Me.btnAlignCenter3.Size = New System.Drawing.Size(30, 30)
Me.btnAlignCenter3.TabIndex = 51
Me.btnAlignCenter3.Text = "C"
Me.btnAlignCenter3.UseVisualStyleBackColor = True
'
'btnAlignRight3
'
Me.btnAlignRight3.Location = New System.Drawing.Point(551, 449)
Me.btnAlignRight3.Name = "btnAlignRight3"
Me.btnAlignRight3.Size = New System.Drawing.Size(30, 30)
Me.btnAlignRight3.TabIndex = 52
Me.btnAlignRight3.Text = "R"
Me.btnAlignRight3.UseVisualStyleBackColor = True
'
'cmbFontFamily3
'
Me.cmbFontFamily3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbFontFamily3.FormattingEnabled = True
Me.cmbFontFamily3.Location = New System.Drawing.Point(734, 449)
Me.cmbFontFamily3.Name = "cmbFontFamily3"
Me.cmbFontFamily3.Size = New System.Drawing.Size(150, 21)
Me.cmbFontFamily3.TabIndex = 53
'
'cmbFontSize3
'
Me.cmbFontSize3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbFontSize3.FormattingEnabled = True
Me.cmbFontSize3.Location = New System.Drawing.Point(911, 449)
Me.cmbFontSize3.Name = "cmbFontSize3"
Me.cmbFontSize3.Size = New System.Drawing.Size(60, 21)
Me.cmbFontSize3.TabIndex = 54
'
'btnBold2
'
Me.btnBold2.Location = New System.Drawing.Point(101, 307)
Me.btnBold2.Name = "btnBold2"
Me.btnBold2.Size = New System.Drawing.Size(30, 30)
Me.btnBold2.TabIndex = 35
Me.btnBold2.Text = "B"
Me.btnBold2.UseVisualStyleBackColor = True
'
'btnItalic2
'
Me.btnItalic2.Location = New System.Drawing.Point(141, 307)
Me.btnItalic2.Name = "btnItalic2"
Me.btnItalic2.Size = New System.Drawing.Size(30, 30)
Me.btnItalic2.TabIndex = 36
Me.btnItalic2.Text = "I"
Me.btnItalic2.UseVisualStyleBackColor = True
'
'btnUnderline2
'
Me.btnUnderline2.Location = New System.Drawing.Point(181, 307)
Me.btnUnderline2.Name = "btnUnderline2"
Me.btnUnderline2.Size = New System.Drawing.Size(30, 30)
Me.btnUnderline2.TabIndex = 37
Me.btnUnderline2.Text = "U"
Me.btnUnderline2.UseVisualStyleBackColor = True
'
'btnTextColor2
'
Me.btnTextColor2.Location = New System.Drawing.Point(303, 307)
Me.btnTextColor2.Name = "btnTextColor2"
Me.btnTextColor2.Size = New System.Drawing.Size(30, 30)
Me.btnTextColor2.TabIndex = 38
Me.btnTextColor2.Text = "A"
Me.btnTextColor2.UseVisualStyleBackColor = True
'
'btnBackColor2
'
Me.btnBackColor2.Location = New System.Drawing.Point(343, 307)
Me.btnBackColor2.Name = "btnBackColor2"
Me.btnBackColor2.Size = New System.Drawing.Size(30, 30)
Me.btnBackColor2.TabIndex = 39
Me.btnBackColor2.Text = "BG"
Me.btnBackColor2.UseVisualStyleBackColor = True
'
'btnAlignLeft2
'
Me.btnAlignLeft2.Location = New System.Drawing.Point(472, 307)
Me.btnAlignLeft2.Name = "btnAlignLeft2"
Me.btnAlignLeft2.Size = New System.Drawing.Size(30, 30)
Me.btnAlignLeft2.TabIndex = 40
Me.btnAlignLeft2.Text = "L"
Me.btnAlignLeft2.UseVisualStyleBackColor = True
'
'btnAlignCenter2
'
Me.btnAlignCenter2.Location = New System.Drawing.Point(512, 307)
Me.btnAlignCenter2.Name = "btnAlignCenter2"
Me.btnAlignCenter2.Size = New System.Drawing.Size(30, 30)
Me.btnAlignCenter2.TabIndex = 41
Me.btnAlignCenter2.Text = "C"
Me.btnAlignCenter2.UseVisualStyleBackColor = True
'
'btnAlignRight2
'
Me.btnAlignRight2.Location = New System.Drawing.Point(552, 307)
Me.btnAlignRight2.Name = "btnAlignRight2"
Me.btnAlignRight2.Size = New System.Drawing.Size(30, 30)
Me.btnAlignRight2.TabIndex = 42
Me.btnAlignRight2.Text = "R"
Me.btnAlignRight2.UseVisualStyleBackColor = True
'
'cmbFontFamily2
'
Me.cmbFontFamily2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbFontFamily2.FormattingEnabled = True
Me.cmbFontFamily2.Location = New System.Drawing.Point(735, 307)
Me.cmbFontFamily2.Name = "cmbFontFamily2"
Me.cmbFontFamily2.Size = New System.Drawing.Size(150, 21)
Me.cmbFontFamily2.TabIndex = 43
'
'cmbFontSize2
'
Me.cmbFontSize2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbFontSize2.FormattingEnabled = True
Me.cmbFontSize2.Location = New System.Drawing.Point(912, 307)
Me.cmbFontSize2.Name = "cmbFontSize2"
Me.cmbFontSize2.Size = New System.Drawing.Size(60, 21)
Me.cmbFontSize2.TabIndex = 44
'
'rtbZeile3
'
Me.rtbZeile3.Location = New System.Drawing.Point(100, 363)
Me.rtbZeile3.Name = "rtbZeile3"
Me.rtbZeile3.Size = New System.Drawing.Size(1180, 80)
Me.rtbZeile3.TabIndex = 34
Me.rtbZeile3.Text = ""
Me.tabPageZeile2.Controls.Add(Me.rtbZeile2)
Me.tabPageZeile2.Location = New System.Drawing.Point(4, 22)
Me.tabPageZeile2.Name = "tabPageZeile2"
Me.tabPageZeile2.Padding = New System.Windows.Forms.Padding(3)
Me.tabPageZeile2.Size = New System.Drawing.Size(1227, 306)
Me.tabPageZeile2.TabIndex = 1
Me.tabPageZeile2.Text = "Englisch"
Me.tabPageZeile2.UseVisualStyleBackColor = True
'
'rtbZeile2
'
Me.rtbZeile2.Location = New System.Drawing.Point(101, 221)
Me.rtbZeile2.Dock = System.Windows.Forms.DockStyle.Fill
Me.rtbZeile2.Location = New System.Drawing.Point(3, 3)
Me.rtbZeile2.Name = "rtbZeile2"
Me.rtbZeile2.Size = New System.Drawing.Size(1180, 80)
Me.rtbZeile2.TabIndex = 33
Me.rtbZeile2.Size = New System.Drawing.Size(1221, 300)
Me.rtbZeile2.TabIndex = 0
Me.rtbZeile2.Text = ""
'
'tabPageZeile3
'
Me.tabPageZeile3.Controls.Add(Me.rtbZeile3)
Me.tabPageZeile3.Location = New System.Drawing.Point(4, 22)
Me.tabPageZeile3.Name = "tabPageZeile3"
Me.tabPageZeile3.Padding = New System.Windows.Forms.Padding(3)
Me.tabPageZeile3.Size = New System.Drawing.Size(1227, 306)
Me.tabPageZeile3.TabIndex = 2
Me.tabPageZeile3.Text = "Türkisch"
Me.tabPageZeile3.UseVisualStyleBackColor = True
'
'rtbZeile3
'
Me.rtbZeile3.Dock = System.Windows.Forms.DockStyle.Fill
Me.rtbZeile3.Location = New System.Drawing.Point(3, 3)
Me.rtbZeile3.Name = "rtbZeile3"
Me.rtbZeile3.Size = New System.Drawing.Size(1221, 300)
Me.rtbZeile3.TabIndex = 0
Me.rtbZeile3.Text = ""
'
'lblNeueTvTextBezeichnung
'
Me.lblNeueTvTextBezeichnung.AutoSize = True
@@ -590,32 +483,6 @@ Partial Class frmEintragTvNew
Me.lblStartDate.TabIndex = 8
Me.lblStartDate.Text = "Startdatum: "
'
'lblZeile3
'
Me.lblZeile3.AutoSize = True
Me.lblZeile3.Location = New System.Drawing.Point(42, 388)
Me.lblZeile3.Name = "lblZeile3"
Me.lblZeile3.Size = New System.Drawing.Size(42, 13)
Me.lblZeile3.TabIndex = 6
Me.lblZeile3.Text = "Zeile 3:"
'
'lblZeile2
'
Me.lblZeile2.AutoSize = True
Me.lblZeile2.Location = New System.Drawing.Point(43, 255)
Me.lblZeile2.Name = "lblZeile2"
Me.lblZeile2.Size = New System.Drawing.Size(42, 13)
Me.lblZeile2.TabIndex = 4
Me.lblZeile2.Text = "Zeile 2:"
'
'rtbZeile1
'
Me.rtbZeile1.Location = New System.Drawing.Point(100, 79)
Me.rtbZeile1.Name = "rtbZeile1"
Me.rtbZeile1.Size = New System.Drawing.Size(1180, 80)
Me.rtbZeile1.TabIndex = 3
Me.rtbZeile1.Text = ""
'
'lblZeile1
'
Me.lblZeile1.AutoSize = True
@@ -664,7 +531,7 @@ Partial Class frmEintragTvNew
'
'btnBold
'
Me.btnBold.Location = New System.Drawing.Point(100, 165)
Me.btnBold.Location = New System.Drawing.Point(40, 438)
Me.btnBold.Name = "btnBold"
Me.btnBold.Size = New System.Drawing.Size(30, 30)
Me.btnBold.TabIndex = 23
@@ -673,7 +540,7 @@ Partial Class frmEintragTvNew
'
'btnItalic
'
Me.btnItalic.Location = New System.Drawing.Point(140, 165)
Me.btnItalic.Location = New System.Drawing.Point(80, 438)
Me.btnItalic.Name = "btnItalic"
Me.btnItalic.Size = New System.Drawing.Size(30, 30)
Me.btnItalic.TabIndex = 24
@@ -682,7 +549,7 @@ Partial Class frmEintragTvNew
'
'btnUnderline
'
Me.btnUnderline.Location = New System.Drawing.Point(180, 165)
Me.btnUnderline.Location = New System.Drawing.Point(120, 438)
Me.btnUnderline.Name = "btnUnderline"
Me.btnUnderline.Size = New System.Drawing.Size(30, 30)
Me.btnUnderline.TabIndex = 25
@@ -691,7 +558,7 @@ Partial Class frmEintragTvNew
'
'btnTextColor
'
Me.btnTextColor.Location = New System.Drawing.Point(302, 165)
Me.btnTextColor.Location = New System.Drawing.Point(200, 438)
Me.btnTextColor.Name = "btnTextColor"
Me.btnTextColor.Size = New System.Drawing.Size(30, 30)
Me.btnTextColor.TabIndex = 26
@@ -700,16 +567,16 @@ Partial Class frmEintragTvNew
'
'btnBackColor
'
Me.btnBackColor.Location = New System.Drawing.Point(342, 165)
Me.btnBackColor.Location = New System.Drawing.Point(240, 438)
Me.btnBackColor.Name = "btnBackColor"
Me.btnBackColor.Size = New System.Drawing.Size(30, 30)
Me.btnBackColor.Size = New System.Drawing.Size(50, 30)
Me.btnBackColor.TabIndex = 27
Me.btnBackColor.Text = "BG"
Me.btnBackColor.UseVisualStyleBackColor = True
'
'btnAlignLeft
'
Me.btnAlignLeft.Location = New System.Drawing.Point(471, 165)
Me.btnAlignLeft.Location = New System.Drawing.Point(310, 438)
Me.btnAlignLeft.Name = "btnAlignLeft"
Me.btnAlignLeft.Size = New System.Drawing.Size(30, 30)
Me.btnAlignLeft.TabIndex = 28
@@ -718,7 +585,7 @@ Partial Class frmEintragTvNew
'
'btnAlignCenter
'
Me.btnAlignCenter.Location = New System.Drawing.Point(511, 165)
Me.btnAlignCenter.Location = New System.Drawing.Point(350, 438)
Me.btnAlignCenter.Name = "btnAlignCenter"
Me.btnAlignCenter.Size = New System.Drawing.Size(30, 30)
Me.btnAlignCenter.TabIndex = 29
@@ -727,7 +594,7 @@ Partial Class frmEintragTvNew
'
'btnAlignRight
'
Me.btnAlignRight.Location = New System.Drawing.Point(551, 165)
Me.btnAlignRight.Location = New System.Drawing.Point(390, 438)
Me.btnAlignRight.Name = "btnAlignRight"
Me.btnAlignRight.Size = New System.Drawing.Size(30, 30)
Me.btnAlignRight.TabIndex = 30
@@ -738,7 +605,7 @@ Partial Class frmEintragTvNew
'
Me.cmbFontFamily.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbFontFamily.FormattingEnabled = True
Me.cmbFontFamily.Location = New System.Drawing.Point(734, 165)
Me.cmbFontFamily.Location = New System.Drawing.Point(495, 438)
Me.cmbFontFamily.Name = "cmbFontFamily"
Me.cmbFontFamily.Size = New System.Drawing.Size(150, 21)
Me.cmbFontFamily.TabIndex = 31
@@ -747,7 +614,7 @@ Partial Class frmEintragTvNew
'
Me.cmbFontSize.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbFontSize.FormattingEnabled = True
Me.cmbFontSize.Location = New System.Drawing.Point(911, 165)
Me.cmbFontSize.Location = New System.Drawing.Point(670, 438)
Me.cmbFontSize.Name = "cmbFontSize"
Me.cmbFontSize.Size = New System.Drawing.Size(60, 21)
Me.cmbFontSize.TabIndex = 32
@@ -782,7 +649,7 @@ Partial Class frmEintragTvNew
'chkShowInactive
'
Me.chkShowInactive.AutoSize = True
Me.chkShowInactive.Location = New System.Drawing.Point(230, 27)
Me.chkShowInactive.Location = New System.Drawing.Point(1205, 29)
Me.chkShowInactive.Name = "chkShowInactive"
Me.chkShowInactive.Size = New System.Drawing.Size(110, 17)
Me.chkShowInactive.TabIndex = 1
@@ -800,6 +667,7 @@ Partial Class frmEintragTvNew
Me.Controls.Add(Me.dgvAVISOTV)
Me.Controls.Add(Me.lblStandort)
Me.Controls.Add(Me.cbxStandort)
Me.Controls.Add(Me.btnOpenSettings)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.Name = "frmEintragTvNew"
@@ -808,69 +676,14 @@ Partial Class frmEintragTvNew
CType(Me.dgvAVISOTV, System.ComponentModel.ISupportInitialize).EndInit()
Me.grpEingabe.ResumeLayout(False)
Me.grpEingabe.PerformLayout()
Me.tabControlZeilen.ResumeLayout(False)
Me.tabPageZeile1.ResumeLayout(False)
Me.tabPageZeile2.ResumeLayout(False)
Me.tabPageZeile3.ResumeLayout(False)
Me.grpWochentage.ResumeLayout(False)
Me.grpWochentage.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents cbxStandort As ComboBox
Friend WithEvents lblStandort As Label
Friend WithEvents dgvAVISOTV As DataGridView
Friend WithEvents grpEingabe As GroupBox
Friend WithEvents lblNeueTvTextBezeichnung As Label
Friend WithEvents txtNeueTvTextBezeichnung As TextBox
Friend WithEvents chkIsActive As CheckBox
Friend WithEvents chkIsRecurring As CheckBox
Friend WithEvents grpWochentage As GroupBox
Friend WithEvents chkSunday As CheckBox
Friend WithEvents chkSaturday As CheckBox
Friend WithEvents chkFriday As CheckBox
Friend WithEvents chkThursday As CheckBox
Friend WithEvents chkWednesday As CheckBox
Friend WithEvents chkTuesday As CheckBox
Friend WithEvents chkMonday As CheckBox
Friend WithEvents dtpEndTime As DateTimePicker
Friend WithEvents lblEndTime As Label
Friend WithEvents dtpStartTime As DateTimePicker
Friend WithEvents lblStartTime As Label
Friend WithEvents dtpEndDate As DateTimePicker
Friend WithEvents lblEndDate As Label
Friend WithEvents dtpStartDate As DateTimePicker
Friend WithEvents lblStartDate As Label
Friend WithEvents lblZeile3 As Label
Friend WithEvents lblZeile2 As Label
Friend WithEvents lblZeile1 As Label
Friend WithEvents cmbTvTextBezeichnungAuswahl As ComboBox
Friend WithEvents lblBezeichnung As Label
Friend WithEvents lblPosition As Label
Friend WithEvents cmbPosition As ComboBox
Friend WithEvents btnSpeichern As Button
Friend WithEvents btnLoeschen As Button
Friend WithEvents btnAbbrechen As Button
Friend WithEvents chkShowInactive As CheckBox
Private WithEvents rtbZeile3 As RichTextBox
Private WithEvents rtbZeile2 As RichTextBox
Private WithEvents btnBold3 As Button
Private WithEvents btnItalic3 As Button
Private WithEvents btnUnderline3 As Button
Private WithEvents btnTextColor3 As Button
Private WithEvents btnBackColor3 As Button
Private WithEvents btnAlignLeft3 As Button
Private WithEvents btnAlignCenter3 As Button
Private WithEvents btnAlignRight3 As Button
Private WithEvents cmbFontFamily3 As ComboBox
Private WithEvents cmbFontSize3 As ComboBox
Private WithEvents btnBold2 As Button
Private WithEvents btnItalic2 As Button
Private WithEvents btnUnderline2 As Button
Private WithEvents btnTextColor2 As Button
Private WithEvents btnBackColor2 As Button
Private WithEvents btnAlignLeft2 As Button
Private WithEvents btnAlignCenter2 As Button
Private WithEvents btnAlignRight2 As Button
Private WithEvents cmbFontFamily2 As ComboBox
Private WithEvents cmbFontSize2 As ComboBox
End Class

3
Aviso/frmEintragTvNew.resx
View File

@@ -117,4 +117,7 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="colorDialogText.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

840
Aviso/frmEintragTvNew.vb
View File

File diff suppressed because it is too large Load Diff

286
Aviso/frmTvSettings.Designer.vb generated Normal file
View File

@@ -0,0 +1,286 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmTvSettings
Inherits System.Windows.Forms.Form
'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
'Die folgenden Steuerelemente werden benötigt.
Private WithEvents lblTileWidth As Label
Private WithEvents lblTileHeight As Label
Private WithEvents lblFontSizeLkwNummer As Label
Private WithEvents lblFontSizeDateTime As Label
Private WithEvents lblSeitenwechsel As Label
Private WithEvents lblTextBalkenHeight As Label ' Neues Label
Private WithEvents lblLogoSelection As Label ' Neues Label für Logo-Auswahl
Private WithEvents numTileWidth As NumericUpDown
Private WithEvents numTileHeight As NumericUpDown
Private WithEvents numFontSizeLkwNummer As NumericUpDown
Private WithEvents numFontSizeDateTime As NumericUpDown
Private WithEvents numSeitenwechsel As NumericUpDown
Private WithEvents numTextBalkenHeight As NumericUpDown ' Neues NumericUpDown
Private WithEvents cmbLogoSelection As ComboBox ' Neue ComboBox für Logo-Auswahl
Private WithEvents btnSave As Button
'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.lblTileWidth = New System.Windows.Forms.Label()
Me.lblTileHeight = New System.Windows.Forms.Label()
Me.lblFontSizeLkwNummer = New System.Windows.Forms.Label()
Me.lblFontSizeDateTime = New System.Windows.Forms.Label()
Me.lblSeitenwechsel = New System.Windows.Forms.Label()
Me.lblTextBalkenHeight = New System.Windows.Forms.Label()
Me.lblLogoSelection = New System.Windows.Forms.Label()
Me.numTileWidth = New System.Windows.Forms.NumericUpDown()
Me.numTileHeight = New System.Windows.Forms.NumericUpDown()
Me.numFontSizeLkwNummer = New System.Windows.Forms.NumericUpDown()
Me.numFontSizeDateTime = New System.Windows.Forms.NumericUpDown()
Me.numSeitenwechsel = New System.Windows.Forms.NumericUpDown()
Me.numTextBalkenHeight = New System.Windows.Forms.NumericUpDown()
Me.cmbLogoSelection = New System.Windows.Forms.ComboBox()
Me.btnSave = New System.Windows.Forms.Button()
Me.numKachelRowGapInPercent = New System.Windows.Forms.NumericUpDown()
Me.Label1 = New System.Windows.Forms.Label()
CType(Me.numTileWidth, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numTileHeight, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numFontSizeLkwNummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numFontSizeDateTime, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numSeitenwechsel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numTextBalkenHeight, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.numKachelRowGapInPercent, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lblTileWidth
'
Me.lblTileWidth.AutoSize = True
Me.lblTileWidth.Location = New System.Drawing.Point(22, 66)
Me.lblTileWidth.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblTileWidth.Name = "lblTileWidth"
Me.lblTileWidth.Size = New System.Drawing.Size(87, 13)
Me.lblTileWidth.TabIndex = 0
Me.lblTileWidth.Text = "Kachel Breite (%)"
'
'lblTileHeight
'
Me.lblTileHeight.AutoSize = True
Me.lblTileHeight.Location = New System.Drawing.Point(21, 27)
Me.lblTileHeight.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblTileHeight.Name = "lblTileHeight"
Me.lblTileHeight.Size = New System.Drawing.Size(86, 13)
Me.lblTileHeight.TabIndex = 1
Me.lblTileHeight.Text = "Kachel Höhe (%)"
'
'lblFontSizeLkwNummer
'
Me.lblFontSizeLkwNummer.AutoSize = True
Me.lblFontSizeLkwNummer.Location = New System.Drawing.Point(21, 151)
Me.lblFontSizeLkwNummer.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblFontSizeLkwNummer.Name = "lblFontSizeLkwNummer"
Me.lblFontSizeLkwNummer.Size = New System.Drawing.Size(133, 13)
Me.lblFontSizeLkwNummer.TabIndex = 2
Me.lblFontSizeLkwNummer.Text = "Schriftgröße LKW Nummer"
'
'lblFontSizeDateTime
'
Me.lblFontSizeDateTime.AutoSize = True
Me.lblFontSizeDateTime.Location = New System.Drawing.Point(21, 191)
Me.lblFontSizeDateTime.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblFontSizeDateTime.Name = "lblFontSizeDateTime"
Me.lblFontSizeDateTime.Size = New System.Drawing.Size(121, 13)
Me.lblFontSizeDateTime.TabIndex = 3
Me.lblFontSizeDateTime.Text = "Schriftgröße Datum/Zeit"
'
'lblSeitenwechsel
'
Me.lblSeitenwechsel.AutoSize = True
Me.lblSeitenwechsel.Location = New System.Drawing.Point(21, 232)
Me.lblSeitenwechsel.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblSeitenwechsel.Name = "lblSeitenwechsel"
Me.lblSeitenwechsel.Size = New System.Drawing.Size(134, 13)
Me.lblSeitenwechsel.TabIndex = 4
Me.lblSeitenwechsel.Text = "Seitenwechsel (Sekunden)"
'
'lblTextBalkenHeight
'
Me.lblTextBalkenHeight.AutoSize = True
Me.lblTextBalkenHeight.Location = New System.Drawing.Point(21, 273)
Me.lblTextBalkenHeight.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblTextBalkenHeight.Name = "lblTextBalkenHeight"
Me.lblTextBalkenHeight.Size = New System.Drawing.Size(110, 13)
Me.lblTextBalkenHeight.TabIndex = 5
Me.lblTextBalkenHeight.Text = "Text Balken Höhe (%)"
'
'lblLogoSelection
'
Me.lblLogoSelection.AutoSize = True
Me.lblLogoSelection.Location = New System.Drawing.Point(21, 313)
Me.lblLogoSelection.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblLogoSelection.Name = "lblLogoSelection"
Me.lblLogoSelection.Size = New System.Drawing.Size(85, 13)
Me.lblLogoSelection.TabIndex = 13
Me.lblLogoSelection.Text = "Logo auswählen"
'
'numTileWidth
'
Me.numTileWidth.DecimalPlaces = 2
Me.numTileWidth.Location = New System.Drawing.Point(165, 66)
Me.numTileWidth.Margin = New System.Windows.Forms.Padding(2)
Me.numTileWidth.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numTileWidth.Name = "numTileWidth"
Me.numTileWidth.Size = New System.Drawing.Size(90, 20)
Me.numTileWidth.TabIndex = 6
Me.numTileWidth.Value = New Decimal(New Integer() {30, 0, 0, 0})
'
'numTileHeight
'
Me.numTileHeight.DecimalPlaces = 2
Me.numTileHeight.Location = New System.Drawing.Point(164, 25)
Me.numTileHeight.Margin = New System.Windows.Forms.Padding(2)
Me.numTileHeight.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numTileHeight.Name = "numTileHeight"
Me.numTileHeight.Size = New System.Drawing.Size(90, 20)
Me.numTileHeight.TabIndex = 7
Me.numTileHeight.Value = New Decimal(New Integer() {30, 0, 0, 0})
'
'numFontSizeLkwNummer
'
Me.numFontSizeLkwNummer.DecimalPlaces = 2
Me.numFontSizeLkwNummer.Location = New System.Drawing.Point(164, 149)
Me.numFontSizeLkwNummer.Margin = New System.Windows.Forms.Padding(2)
Me.numFontSizeLkwNummer.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numFontSizeLkwNummer.Name = "numFontSizeLkwNummer"
Me.numFontSizeLkwNummer.Size = New System.Drawing.Size(90, 20)
Me.numFontSizeLkwNummer.TabIndex = 8
Me.numFontSizeLkwNummer.Value = New Decimal(New Integer() {12, 0, 0, 0})
'
'numFontSizeDateTime
'
Me.numFontSizeDateTime.DecimalPlaces = 2
Me.numFontSizeDateTime.Location = New System.Drawing.Point(164, 190)
Me.numFontSizeDateTime.Margin = New System.Windows.Forms.Padding(2)
Me.numFontSizeDateTime.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numFontSizeDateTime.Name = "numFontSizeDateTime"
Me.numFontSizeDateTime.Size = New System.Drawing.Size(90, 20)
Me.numFontSizeDateTime.TabIndex = 9
Me.numFontSizeDateTime.Value = New Decimal(New Integer() {12, 0, 0, 0})
'
'numSeitenwechsel
'
Me.numSeitenwechsel.Location = New System.Drawing.Point(164, 230)
Me.numSeitenwechsel.Margin = New System.Windows.Forms.Padding(2)
Me.numSeitenwechsel.Maximum = New Decimal(New Integer() {3600, 0, 0, 0})
Me.numSeitenwechsel.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numSeitenwechsel.Name = "numSeitenwechsel"
Me.numSeitenwechsel.Size = New System.Drawing.Size(90, 20)
Me.numSeitenwechsel.TabIndex = 10
Me.numSeitenwechsel.Value = New Decimal(New Integer() {30, 0, 0, 0})
'
'numTextBalkenHeight
'
Me.numTextBalkenHeight.DecimalPlaces = 2
Me.numTextBalkenHeight.Location = New System.Drawing.Point(164, 271)
Me.numTextBalkenHeight.Margin = New System.Windows.Forms.Padding(2)
Me.numTextBalkenHeight.Name = "numTextBalkenHeight"
Me.numTextBalkenHeight.Size = New System.Drawing.Size(90, 20)
Me.numTextBalkenHeight.TabIndex = 11
Me.numTextBalkenHeight.Value = New Decimal(New Integer() {30, 0, 0, 0})
'
'cmbLogoSelection
'
Me.cmbLogoSelection.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbLogoSelection.FormattingEnabled = True
Me.cmbLogoSelection.Location = New System.Drawing.Point(164, 311)
Me.cmbLogoSelection.Margin = New System.Windows.Forms.Padding(2)
Me.cmbLogoSelection.Name = "cmbLogoSelection"
Me.cmbLogoSelection.Size = New System.Drawing.Size(91, 21)
Me.cmbLogoSelection.TabIndex = 14
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(164, 346)
Me.btnSave.Margin = New System.Windows.Forms.Padding(2)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(90, 24)
Me.btnSave.TabIndex = 15
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'numKachelRowGapInPercent
'
Me.numKachelRowGapInPercent.DecimalPlaces = 2
Me.numKachelRowGapInPercent.Location = New System.Drawing.Point(164, 106)
Me.numKachelRowGapInPercent.Margin = New System.Windows.Forms.Padding(2)
Me.numKachelRowGapInPercent.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.numKachelRowGapInPercent.Name = "numKachelRowGapInPercent"
Me.numKachelRowGapInPercent.Size = New System.Drawing.Size(90, 20)
Me.numKachelRowGapInPercent.TabIndex = 17
Me.numKachelRowGapInPercent.Value = New Decimal(New Integer() {12, 0, 0, 0})
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(21, 108)
Me.Label1.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(123, 13)
Me.Label1.TabIndex = 16
Me.Label1.Text = "Abstand Kachel Text (%)"
'
'frmTvSettings
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(306, 409)
Me.Controls.Add(Me.numKachelRowGapInPercent)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.cmbLogoSelection)
Me.Controls.Add(Me.numTextBalkenHeight)
Me.Controls.Add(Me.numSeitenwechsel)
Me.Controls.Add(Me.numFontSizeDateTime)
Me.Controls.Add(Me.numFontSizeLkwNummer)
Me.Controls.Add(Me.numTileHeight)
Me.Controls.Add(Me.numTileWidth)
Me.Controls.Add(Me.lblLogoSelection)
Me.Controls.Add(Me.lblTextBalkenHeight)
Me.Controls.Add(Me.lblSeitenwechsel)
Me.Controls.Add(Me.lblFontSizeDateTime)
Me.Controls.Add(Me.lblFontSizeLkwNummer)
Me.Controls.Add(Me.lblTileHeight)
Me.Controls.Add(Me.lblTileWidth)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Margin = New System.Windows.Forms.Padding(2)
Me.MaximizeBox = False
Me.Name = "frmTvSettings"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "TV Einstellungen"
CType(Me.numTileWidth, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numTileHeight, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numFontSizeLkwNummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numFontSizeDateTime, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numSeitenwechsel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numTextBalkenHeight, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.numKachelRowGapInPercent, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Private WithEvents numKachelRowGapInPercent As NumericUpDown
Private WithEvents Label1 As Label
End Class

120
Aviso/frmTvSettings.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

139
Aviso/frmTvSettings.vb Normal file
View File

@@ -0,0 +1,139 @@
Imports System.Data.SqlClient
Imports AVISO.frmEintragTvNew
Imports VERAG_PROG_ALLGEMEIN
Partial Class frmTvSettings
Inherits System.Windows.Forms.Form
Private standortID As Integer
Private AvisoTvNewDAL As New cAvisoTvNewDAL()
Private list As New List(Of cAvisoTvNew)()
Public Sub New(standortID As Integer)
InitializeComponent()
Me.standortID = standortID
End Sub
' Ereignis-Handler für das Laden des Formulars
Private Sub frmTvSettings_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
' Einstellungen aus der Datenbank laden
Dim settingsList As List(Of cTvSettings) = AvisoTvNewDAL.GetTvSettingsByStandort(standortID)
' ComboBox initialisieren
InitializeComboBox()
If settingsList IsNot Nothing AndAlso settingsList.Count > 0 Then
Dim settings As cTvSettings = settingsList(0)
numTileWidth.Value = If(settings.KachelWidthInPercent >= numTileWidth.Minimum AndAlso settings.KachelWidthInPercent <= numTileWidth.Maximum, CDec(settings.KachelWidthInPercent), 30)
numTileHeight.Value = If(settings.KachelHeightInPercent >= numTileHeight.Minimum AndAlso settings.KachelHeightInPercent <= numTileHeight.Maximum, CDec(settings.KachelHeightInPercent), 30)
numFontSizeLkwNummer.Value = If(settings.KachelFontSizeLkwNummer >= numFontSizeLkwNummer.Minimum AndAlso settings.KachelFontSizeLkwNummer <= numFontSizeLkwNummer.Maximum, CDec(settings.KachelFontSizeLkwNummer), 12)
numFontSizeDateTime.Value = If(settings.KachelFontSizeDateTime >= numFontSizeDateTime.Minimum AndAlso settings.KachelFontSizeDateTime <= numFontSizeDateTime.Maximum, CDec(settings.KachelFontSizeDateTime), 12)
numSeitenwechsel.Value = If(settings.SeitenwechselInSek >= numSeitenwechsel.Minimum AndAlso settings.SeitenwechselInSek <= numSeitenwechsel.Maximum, CDec(settings.SeitenwechselInSek), 30)
numTextBalkenHeight.Value = If(settings.TextBalkenHeightInPercent >= numTextBalkenHeight.Minimum AndAlso settings.TextBalkenHeightInPercent <= numTextBalkenHeight.Maximum, CDec(settings.TextBalkenHeightInPercent), 30)
numKachelRowGapInPercent.Value = If(settings.KachelRowGapInPercent >= numKachelRowGapInPercent.Minimum AndAlso settings.KachelRowGapInPercent <= numKachelRowGapInPercent.Maximum, CDec(settings.KachelRowGapInPercent), 15)
' Logo-Auswahl setzen
cmbLogoSelection.SelectedValue = settings.SelectedLogoValue
' Überprüfen, ob die Auswahl erfolgreich war
If cmbLogoSelection.SelectedValue Is Nothing Then
' Wenn nicht, setze auf den ersten Eintrag
cmbLogoSelection.SelectedIndex = 0
End If
Else
' Standardwerte verwenden, falls keine Einstellungen vorhanden sind
SetDefaultValues()
End If
Catch ex As Exception
MessageBox.Show("Fehler beim Laden der Einstellungen: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
SetDefaultValues()
End Try
End Sub
' Klasse für ComboBox-Elemente
Public Class ComboBoxItem
Public Property Display As String
Public Property Value As String
Public Sub New(display As String, value As String)
Me.Display = display
Me.Value = value
End Sub
Public Overrides Function ToString() As String
Return Display
End Function
End Class
' Methode zur Initialisierung der ComboBox
Private Sub InitializeComboBox()
' Legen Sie die DisplayMember und ValueMember fest
cmbLogoSelection.DisplayMember = "Display"
cmbLogoSelection.ValueMember = "Value"
' Erstellen Sie eine Liste von ComboBoxItem-Objekten
Dim logoItems As New List(Of ComboBoxItem) From {
New ComboBoxItem("VERAG AG", "verag.png"),
New ComboBoxItem("ATILLA", "atilla.png"),
New ComboBoxItem("ATILLA TÜRKIYE", "atilla_turkiye.jpg"),
New ComboBoxItem("FRONTOFFICE_SUBEN", "frontoffice_suben.jpg"),
New ComboBoxItem("IMEX", "imex.png"),
New ComboBoxItem("UNISPED", "unisped.jpg")
}
' Binden Sie die Liste als DataSource
cmbLogoSelection.DataSource = logoItems
' Optional: Setzen Sie die Standardauswahl
If logoItems.Count > 0 Then
cmbLogoSelection.SelectedIndex = 0
End If
End Sub
' Methode zum Setzen der Standardwerte
Private Sub SetDefaultValues()
numTileWidth.Value = 30
numTileHeight.Value = 30
numFontSizeLkwNummer.Value = 12
numFontSizeDateTime.Value = 12
numSeitenwechsel.Value = 30
numTextBalkenHeight.Value = 30
numKachelRowGapInPercent.Value = 15
' Sicherstellen, dass die ComboBox initialisiert ist
If cmbLogoSelection.Items.Count > 0 Then
cmbLogoSelection.SelectedIndex = 0
End If
End Sub
' Ereignis-Handler für den Speichern-Button
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Try
' Holen Sie sich das ausgewählte ComboBoxItem
Dim selectedItem As ComboBoxItem = CType(cmbLogoSelection.SelectedItem, ComboBoxItem)
Dim selectedValue As String = If(selectedItem IsNot Nothing, selectedItem.Value, String.Empty)
Dim settings As New cTvSettings() With {
.StandortID = standortID,
.KachelWidthInPercent = CDbl(numTileWidth.Value),
.KachelHeightInPercent = CDbl(numTileHeight.Value),
.KachelFontSizeLkwNummer = CDbl(numFontSizeLkwNummer.Value),
.KachelFontSizeDateTime = CDbl(numFontSizeDateTime.Value),
.SeitenwechselInSek = CDbl(numSeitenwechsel.Value),
.TextBalkenHeightInPercent = CDbl(numTextBalkenHeight.Value),
.KachelRowGapInPercent = CDbl(numKachelRowGapInPercent.Value),
.SelectedLogoValue = selectedValue ' Stellen Sie sicher, dass diese Eigenschaft in cTvSettings existiert
}
' Einstellungen in der Datenbank speichern
AvisoTvNewDAL.SaveTvSettings(settings)
MessageBox.Show("Einstellungen wurden erfolgreich gespeichert!", "Erfolg", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.Close()
Catch ex As Exception
MessageBox.Show("Fehler beim Speichern der Einstellungen: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class

2
AvisoTV/frmAnzeige.vb
View File

@@ -394,7 +394,7 @@ Public Class frmAnzeige
r.Cells(0).Style.Font = Font1_MESS
Dim doimage As Image = Nothing
Select Case r.Cells(0).Value.ToString
Case "PASSPORT" : doimage = My.Resources.passport : r.Cells(0).Value = "PASSPORT" ' r.Cells(0).Value = "PASS"
Case ",pn" : doimage = My.Resources.passport : r.Cells(0).Value = "PASSPORT" ' r.Cells(0).Value = "PASS"
Case "DOKUMENT" : doimage = My.Resources.passport : r.Cells(0).Value = "PROBLEM" ' r.Cells(0).Value = "PASS"
Case "URGENT" : doimage = My.Resources.urgent_qu : r.Cells(0).Value = "PROBLEM"
End Select