diff --git a/IniFileControl/IniFileContentView.en.resx b/IniFileControl/IniFileContentView.en.resx deleted file mode 100644 index 51fab4e..0000000 --- a/IniFileControl/IniFileContentView.en.resx +++ /dev/null @@ -1,123 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Inifilecontentview - - \ No newline at end of file diff --git a/IniFileControl/IniFileControl.vbproj b/IniFileControl/IniFileControl.vbproj index 156f631..3953ff7 100644 --- a/IniFileControl/IniFileControl.vbproj +++ b/IniFileControl/IniFileControl.vbproj @@ -143,36 +143,24 @@ IniFileCommentEdit.vb - - IniFileCommentEdit.vb - IniFileCommentEdit.vb IniFileContentView.vb - - IniFileContentView.vb - IniFileContentView.vb IniFileEntryValueEdit.vb - - IniFileEntryValueEdit.vb - IniFileEntryValueEdit.vb IniFileListEdit.vb - - IniFileListEdit.vb - IniFileListEdit.vb diff --git a/IniFileControl/IniFileCommentEdit.en.resx b/SevenSegmentControl/SevSegMultiDigit.resx similarity index 87% rename from IniFileControl/IniFileCommentEdit.en.resx rename to SevenSegmentControl/SevSegMultiDigit.resx index 7ad4783..56dda74 100644 --- a/IniFileControl/IniFileCommentEdit.en.resx +++ b/SevenSegmentControl/SevSegMultiDigit.resx @@ -117,10 +117,19 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Take Over + + en-US + + + True + + + False + + + SevSegMultiDigit - - IniFileCommentEdit + + System.Windows.Forms.Control, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 \ No newline at end of file diff --git a/SevenSegmentControl/SevSegMultiDigit.vb b/SevenSegmentControl/SevSegMultiDigit.vb index 9ea078a..f8d7645 100644 --- a/SevenSegmentControl/SevSegMultiDigit.vb +++ b/SevenSegmentControl/SevSegMultiDigit.vb @@ -468,6 +468,12 @@ Public Class SevSegMultiDigit e.Graphics.Clear(Me._backgroundColor) End Sub + Private Sub InitializeComponent() + Me.SuspendLayout() + Me.ResumeLayout(False) + + End Sub + #End Region diff --git a/IniFileControl/IniFileListEdit.en.resx b/SevenSegmentControl/SevSegSingleDigit.resx similarity index 86% rename from IniFileControl/IniFileListEdit.en.resx rename to SevenSegmentControl/SevSegSingleDigit.resx index 334206f..a870fb7 100644 --- a/IniFileControl/IniFileListEdit.en.resx +++ b/SevenSegmentControl/SevSegSingleDigit.resx @@ -1,4 +1,4 @@ - + " ' 'TextBox2 ' Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TextBox2.Location = New System.Drawing.Point(296, 112) + resources.ApplyResources(Me.TextBox2, "TextBox2") Me.TextBox2.Name = "TextBox2" - Me.TextBox2.ScrollBars = System.Windows.Forms.ScrollBars.Both - Me.TextBox2.Size = New System.Drawing.Size(101, 20) - Me.TextBox2.TabIndex = 8 - Me.TextBox2.WordWrap = False ' 'TextBox1 ' Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.TextBox1.Location = New System.Drawing.Point(174, 112) + resources.ApplyResources(Me.TextBox1, "TextBox1") Me.TextBox1.Name = "TextBox1" - Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Both - Me.TextBox1.Size = New System.Drawing.Size(101, 20) - Me.TextBox1.TabIndex = 7 - Me.TextBox1.WordWrap = False + ' + 'Label2 + ' + resources.ApplyResources(Me.Label2, "Label2") + Me.Label2.Name = "Label2" ' 'SevSegMultiDigit1 ' - Me.SevSegMultiDigit1.DigitCount = 2 + Me.SevSegMultiDigit1.DigitCount = 1 Me.SevSegMultiDigit1.DigitPadding = New System.Windows.Forms.Padding(10, 4, 10, 4) Me.SevSegMultiDigit1.InactiveColor = System.Drawing.Color.DarkGray Me.SevSegMultiDigit1.ItalicFactor = -0.1! - Me.SevSegMultiDigit1.Location = New System.Drawing.Point(296, 12) + resources.ApplyResources(Me.SevSegMultiDigit1, "SevSegMultiDigit1") Me.SevSegMultiDigit1.Name = "SevSegMultiDigit1" Me.SevSegMultiDigit1.SegmentWidth = 10 Me.SevSegMultiDigit1.ShowDecimalPoint = True - Me.SevSegMultiDigit1.Size = New System.Drawing.Size(120, 80) - Me.SevSegMultiDigit1.TabIndex = 6 Me.SevSegMultiDigit1.TabStop = False Me.SevSegMultiDigit1.Value = Nothing ' @@ -78,24 +71,21 @@ Partial Class FormSevenSegmentControl Me.SevSegSingleDigit1.ColonActive = False Me.SevSegSingleDigit1.CustomBitPattern = 0 Me.SevSegSingleDigit1.DecimalPointActive = False - Me.SevSegSingleDigit1.DigitValue = Nothing + Me.SevSegSingleDigit1.DigitValue = "" Me.SevSegSingleDigit1.InactiveColor = System.Drawing.Color.DarkGray Me.SevSegSingleDigit1.ItalicFactor = -0.1! - Me.SevSegSingleDigit1.Location = New System.Drawing.Point(174, 12) + resources.ApplyResources(Me.SevSegSingleDigit1, "SevSegSingleDigit1") Me.SevSegSingleDigit1.Name = "SevSegSingleDigit1" - Me.SevSegSingleDigit1.Padding = New System.Windows.Forms.Padding(10, 4, 10, 4) Me.SevSegSingleDigit1.SegmentWidth = 10 Me.SevSegSingleDigit1.ShowColon = False Me.SevSegSingleDigit1.ShowDecimalPoint = True - Me.SevSegSingleDigit1.Size = New System.Drawing.Size(60, 80) - Me.SevSegSingleDigit1.TabIndex = 5 Me.SevSegSingleDigit1.TabStop = False ' 'FormSevenSegmentControl ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(526, 149) + Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.TextBox1) @@ -105,8 +95,6 @@ Partial Class FormSevenSegmentControl Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "FormSevenSegmentControl" - Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent - Me.Text = "SevenSegment - Control - Test" Me.ResumeLayout(False) Me.PerformLayout() @@ -117,4 +105,5 @@ Partial Class FormSevenSegmentControl Private WithEvents TextBox1 As TextBox Private WithEvents SevSegMultiDigit1 As SchlumpfSoft.Controls.SevenSegmentControl.SevSegMultiDigit Private WithEvents SevSegSingleDigit1 As SchlumpfSoft.Controls.SevenSegmentControl.SevSegSingleDigit + Private WithEvents Label2 As Label End Class diff --git a/IniFileControl/IniFileEntryValueEdit.en.resx b/TestApp/FormSevenSegmentControl.en-US.resx similarity index 95% rename from IniFileControl/IniFileEntryValueEdit.en.resx rename to TestApp/FormSevenSegmentControl.en-US.resx index d9234e9..f7e8231 100644 --- a/IniFileControl/IniFileEntryValueEdit.en.resx +++ b/TestApp/FormSevenSegmentControl.en-US.resx @@ -117,10 +117,13 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Take Over + + Enter characters: - - IniFileEntryValueEdit + + Enter characters: + + + Seevens segment - control - test \ No newline at end of file diff --git a/TestApp/FormSevenSegmentControl.resx b/TestApp/FormSevenSegmentControl.resx index 1af7de1..d6082b9 100644 --- a/TestApp/FormSevenSegmentControl.resx +++ b/TestApp/FormSevenSegmentControl.resx @@ -117,4 +117,199 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + + NoControl + + + + 10, 114 + + + 96, 13 + + + 9 + + + Zeichen eingeben: + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 1 + + + 112, 254 + + + 7 + + + Both + + + 61, 20 + + + 8 + + + False + + + TextBox2 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 2 + + + 113, 112 + + + 1 + + + Both + + + 60, 20 + + + 7 + + + False + + + TextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + + + True + + + NoControl + + + 10, 256 + + + 96, 13 + + + 10 + + + Zeichen eingeben: + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 0 + + + 113, 153 + + + 60, 81 + + + 6 + + + SevSegMultiDigit1 + + + SchlumpfSoft.Controls.SevenSegmentControl.SevSegMultiDigit, SevenSegmentControl, Version=1.2024.22.8, Culture=neutral, PublicKeyToken=null + + + $this + + + 4 + + + 113, 12 + + + 10, 4, 10, 4 + + + 60, 80 + + + 5 + + + SevSegSingleDigit1 + + + SchlumpfSoft.Controls.SevenSegmentControl.SevSegSingleDigit, SevenSegmentControl, Version=1.2024.22.8, Culture=neutral, PublicKeyToken=null + + + $this + + + 5 + + + en-US + + + True + + + 6, 13 + + + 542, 286 + + + NoControl + + + CenterParent + + + SevenSegment - Control - Test + + + FormSevenSegmentControl + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + \ No newline at end of file diff --git a/TestApp/FormSevenSegmentControl.vb b/TestApp/FormSevenSegmentControl.vb index a21c473..f1f339f 100644 --- a/TestApp/FormSevenSegmentControl.vb +++ b/TestApp/FormSevenSegmentControl.vb @@ -5,22 +5,63 @@ ' +Imports System.Globalization +Imports System.Threading + + Public Class FormSevenSegmentControl - Private Sub TextBox_TextChanged( - sender As Object, - e As EventArgs) Handles _ + Public Sub New() + + 'Zuletzt verwendete Sprache einstellen + Thread.CurrentThread.CurrentCulture = New CultureInfo(My.Settings.LangCode) + Thread.CurrentThread.CurrentUICulture = New CultureInfo(My.Settings.LangCode) + + ' Dieser Aufruf ist für den Designer erforderlich. + Me.InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + 'Anzahl der eingebaren Zeichen der textboxen begrenzen + Me.TextBox1.MaxLength = 1 + Me.TextBox2.MaxLength = 7 + + End Sub + + + Private Sub TextBox_TextChanged(sender As Object, e As EventArgs) Handles _ TextBox2.TextChanged, TextBox1.TextChanged + Dim text As String = CType(sender, TextBox).Text + Select Case True Case sender Is Me.TextBox1 - Me.SevSegSingleDigit1.DigitValue = Me.TextBox1.Text + Me.SevSegSingleDigit1.DigitValue = text Case sender Is Me.TextBox2 - Me.SevSegMultiDigit1.Value = Me.TextBox2.Text + + 'Anzeige auf die Anzahl der eingegebenen Zeichen (min = 1, max = 7) anpassen + Select Case text.Length + + Case < 1 + 'kein oder ein zeichen + Me.SevSegMultiDigit1.DigitCount = 1 + Me.SevSegMultiDigit1.Size = New Size With { + .Height = Me.SevSegMultiDigit1.Size.Height, + .Width = 60} + + Case Else + 'zwei oder mehr Zeichen + Me.SevSegMultiDigit1.DigitCount = text.Length + Me.SevSegMultiDigit1.Size = New Size With { + .Height = Me.SevSegMultiDigit1.Size.Height, + .Width = 60 * text.Length} + + End Select + + Me.SevSegMultiDigit1.Value = text End Select diff --git a/TestApp/TestApp.vbproj b/TestApp/TestApp.vbproj index 246393d..ccd2624 100644 --- a/TestApp/TestApp.vbproj +++ b/TestApp/TestApp.vbproj @@ -182,6 +182,9 @@ FormNotifyFormControl.vb + + FormSevenSegmentControl.vb + FormSevenSegmentControl.vb