Update 6.12.23
This commit is contained in:
@@ -10,7 +10,7 @@ Module Globals
|
||||
Public Productname As String = "Dental Practice Manager"
|
||||
Public Lizenzgeber As String = "Stefan Hutter Unternehmensberatung, 8808 Pfäffikon"
|
||||
Public Version As String = "1.4.0.2215"
|
||||
Public Versionastaum As String = "20.06.2022"
|
||||
Public Versionastaum As String = "15.12.2023"
|
||||
|
||||
Public RGCollection As New Collection
|
||||
Public Spaltendaten As New DataTable
|
||||
|
||||
326
DPM2016/Utils/SplashForm.Designer.vb
generated
326
DPM2016/Utils/SplashForm.Designer.vb
generated
@@ -1,163 +1,163 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class SplashForm
|
||||
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
|
||||
|
||||
'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()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SplashForm))
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.C1PictureBox1 = New C1.Win.C1Input.C1PictureBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.C1PictureBox2 = New C1.Win.C1Input.C1PictureBox()
|
||||
CType(Me.C1PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.C1PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 188)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Label1"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(12, 210)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label2.TabIndex = 1
|
||||
Me.Label2.Text = "Label2"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(78, 210)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label3.TabIndex = 3
|
||||
Me.Label3.Text = "Label3"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(78, 188)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label4.TabIndex = 2
|
||||
Me.Label4.Text = "Label4"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(12, 283)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label5.TabIndex = 5
|
||||
Me.Label5.Text = "Label5"
|
||||
'
|
||||
'C1PictureBox1
|
||||
'
|
||||
Me.C1PictureBox1.Image = CType(resources.GetObject("C1PictureBox1.Image"), System.Drawing.Image)
|
||||
Me.C1PictureBox1.InitialImage = CType(resources.GetObject("C1PictureBox1.InitialImage"), System.Drawing.Image)
|
||||
Me.C1PictureBox1.Location = New System.Drawing.Point(12, 12)
|
||||
Me.C1PictureBox1.Name = "C1PictureBox1"
|
||||
Me.C1PictureBox1.Size = New System.Drawing.Size(343, 158)
|
||||
Me.C1PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.C1PictureBox1.TabIndex = 6
|
||||
Me.C1PictureBox1.TabStop = False
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(12, 296)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label6.TabIndex = 7
|
||||
Me.Label6.Text = "Label6"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(12, 309)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label7.TabIndex = 8
|
||||
Me.Label7.Text = "Label7"
|
||||
'
|
||||
'C1PictureBox2
|
||||
'
|
||||
Me.C1PictureBox2.Image = CType(resources.GetObject("C1PictureBox2.Image"), System.Drawing.Image)
|
||||
Me.C1PictureBox2.InitialImage = CType(resources.GetObject("C1PictureBox2.InitialImage"), System.Drawing.Image)
|
||||
Me.C1PictureBox2.Location = New System.Drawing.Point(12, 12)
|
||||
Me.C1PictureBox2.Name = "C1PictureBox2"
|
||||
Me.C1PictureBox2.Size = New System.Drawing.Size(343, 158)
|
||||
Me.C1PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.C1PictureBox2.TabIndex = 9
|
||||
Me.C1PictureBox2.TabStop = False
|
||||
'
|
||||
'SplashForm
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(368, 339)
|
||||
Me.Controls.Add(Me.C1PictureBox2)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.C1PictureBox1)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "SplashForm"
|
||||
Me.ShowIcon = False
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "SplashForm"
|
||||
CType(Me.C1PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.C1PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents C1PictureBox1 As C1.Win.C1Input.C1PictureBox
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents C1PictureBox2 As C1.Win.C1Input.C1PictureBox
|
||||
End Class
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class SplashForm
|
||||
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
|
||||
|
||||
'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()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(SplashForm))
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.C1PictureBox1 = New C1.Win.C1Input.C1PictureBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.C1PictureBox2 = New C1.Win.C1Input.C1PictureBox()
|
||||
CType(Me.C1PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.C1PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 188)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Label1"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(12, 210)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label2.TabIndex = 1
|
||||
Me.Label2.Text = "Label2"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(78, 210)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label3.TabIndex = 3
|
||||
Me.Label3.Text = "Label3"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(78, 188)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label4.TabIndex = 2
|
||||
Me.Label4.Text = "Label4"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(12, 283)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label5.TabIndex = 5
|
||||
Me.Label5.Text = "Label5"
|
||||
'
|
||||
'C1PictureBox1
|
||||
'
|
||||
Me.C1PictureBox1.Image = CType(resources.GetObject("C1PictureBox1.Image"), System.Drawing.Image)
|
||||
Me.C1PictureBox1.InitialImage = CType(resources.GetObject("C1PictureBox1.InitialImage"), System.Drawing.Image)
|
||||
Me.C1PictureBox1.Location = New System.Drawing.Point(12, 12)
|
||||
Me.C1PictureBox1.Name = "C1PictureBox1"
|
||||
Me.C1PictureBox1.Size = New System.Drawing.Size(343, 158)
|
||||
Me.C1PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.C1PictureBox1.TabIndex = 6
|
||||
Me.C1PictureBox1.TabStop = False
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(12, 296)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label6.TabIndex = 7
|
||||
Me.Label6.Text = "Label6"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(12, 309)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(39, 13)
|
||||
Me.Label7.TabIndex = 8
|
||||
Me.Label7.Text = "Label7"
|
||||
'
|
||||
'C1PictureBox2
|
||||
'
|
||||
Me.C1PictureBox2.Image = CType(resources.GetObject("C1PictureBox2.Image"), System.Drawing.Image)
|
||||
Me.C1PictureBox2.InitialImage = CType(resources.GetObject("C1PictureBox2.InitialImage"), System.Drawing.Image)
|
||||
Me.C1PictureBox2.Location = New System.Drawing.Point(12, 12)
|
||||
Me.C1PictureBox2.Name = "C1PictureBox2"
|
||||
Me.C1PictureBox2.Size = New System.Drawing.Size(274, 158)
|
||||
Me.C1PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.C1PictureBox2.TabIndex = 9
|
||||
Me.C1PictureBox2.TabStop = False
|
||||
'
|
||||
'SplashForm
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(368, 339)
|
||||
Me.Controls.Add(Me.C1PictureBox2)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.C1PictureBox1)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "SplashForm"
|
||||
Me.ShowIcon = False
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "SplashForm"
|
||||
CType(Me.C1PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.C1PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents C1PictureBox1 As C1.Win.C1Input.C1PictureBox
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents C1PictureBox2 As C1.Win.C1Input.C1PictureBox
|
||||
End Class
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -1,18 +1,18 @@
|
||||
Public Class SplashForm
|
||||
Private Sub SplashForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
If My.Settings.SoftwareType = "PADM" Then
|
||||
Me.C1PictureBox1.Visible = False
|
||||
Me.C1PictureBox2.Visible = True
|
||||
Else
|
||||
Me.C1PictureBox1.Visible = True
|
||||
Me.C1PictureBox2.Visible = False
|
||||
End If
|
||||
Me.Label1.Text = "Version: "
|
||||
Label4.Text = Globals.Version
|
||||
Me.Label2.Text = "Datum:"
|
||||
Label3.Text = Globals.Versionastaum
|
||||
Label5.Text = "Stefan Hutter Unternehmensberatung"
|
||||
Label6.Text = "Staldenbachstrasse 13"
|
||||
Label7.Text = "8808 Pfäffikon SZ"
|
||||
End Sub
|
||||
Public Class SplashForm
|
||||
Private Sub SplashForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
If My.Settings.SoftwareType = "PADM" Then
|
||||
Me.C1PictureBox1.Visible = False
|
||||
Me.C1PictureBox2.Visible = True
|
||||
Else
|
||||
Me.C1PictureBox1.Visible = True
|
||||
Me.C1PictureBox2.Visible = False
|
||||
End If
|
||||
Me.Label1.Text = "Version: "
|
||||
Label4.Text = Globals.Version
|
||||
Me.Label2.Text = "Datum:"
|
||||
Label3.Text = Globals.Versionastaum
|
||||
Label5.Text = "Stefan Hutter Unternehmensberatung"
|
||||
Label6.Text = "Staldenbachstrasse 13"
|
||||
Label7.Text = "8808 Pfäffikon SZ"
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user