Assigning the same code to multiple controls
Hi
I have 24 textboxes and 24 sliders on a tabpage that are linked to each other (I.e. change the textbox value and the slider value changes - change the slider value and the textbox value changes). The code for a single pair of controls (kindly suggested by an EE expert) is as follows:
Private mblnChangingValue As Boolean = False
Private Sub Gtrackbar1_ValueChanged(se
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox1.Text = GTrackBar1.Value
mblnChangingValue = False
End Sub
Private Sub TextBox1_TextChanged(sende
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox1.
If intNewValue > GTrackBar1.MinValue AndAlso intNewValue < GTrackBar1.MaxValue Then
mblnChangingValue = True
GTrackBar1.Value = intNewValue
mblnChangingValue = False
End If
End Sub
What I am wondering is, whether there is any way to handle this for all 24 sliders and textboxes, without having to repeat the above code 24 times (times 7 tabpages). For example, is it possible to assigned a variable name to the control in the above code, so that the execution of the code depends on which pair of controls is being adjusted? Each pair has a matching control number (e.g. textbox5 and GTrackBar5, if that helps. Incidentally, the sliders are custom controls, just in case some of the properties are confusing.
If this is possible, I can use the same principle on numerous other functions of the application, hopefully saving a few thousand lines of code and a day cutting, pasting and changing control names.
Any ideas greatly appreciated.
Regards
Terry
I have 24 textboxes and 24 sliders on a tabpage that are linked to each other (I.e. change the textbox value and the slider value changes - change the slider value and the textbox value changes). The code for a single pair of controls (kindly suggested by an EE expert) is as follows:
Private mblnChangingValue As Boolean = False
Private Sub Gtrackbar1_ValueChanged(se
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox1.Text = GTrackBar1.Value
mblnChangingValue = False
End Sub
Private Sub TextBox1_TextChanged(sende
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox1.
If intNewValue > GTrackBar1.MinValue AndAlso intNewValue < GTrackBar1.MaxValue Then
mblnChangingValue = True
GTrackBar1.Value = intNewValue
mblnChangingValue = False
End If
End Sub
What I am wondering is, whether there is any way to handle this for all 24 sliders and textboxes, without having to repeat the above code 24 times (times 7 tabpages). For example, is it possible to assigned a variable name to the control in the above code, so that the execution of the code depends on which pair of controls is being adjusted? Each pair has a matching control number (e.g. textbox5 and GTrackBar5, if that helps. Incidentally, the sliders are custom controls, just in case some of the properties are confusing.
If this is possible, I can use the same principle on numerous other functions of the application, hopefully saving a few thousand lines of code and a day cutting, pasting and changing control names.
Any ideas greatly appreciated.
Regards
Terry
If you have full controls over the name of your controls, you can use code like this (be sure to list all your controls in the Handles clause):
Public Class Form1
Private mblnChangingValue As Boolean = False
Private Sub TextBox_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged, TextBox4.TextChanged, TextBox5.TextChanged
If mblnChangingValue Then Return
Dim objTextBox As TextBox = DirectCast(sender, TextBox)
Dim intIndice as Integer
Integer.TryParse(objTextBox.Name.Trim().ToUpper().Replace("TEXTBOX", ""), intIndice)
Dim objTrackBar As TrackBar = CType(Controls("TrackBar" + intIndice.ToString()), TrackBar)
Dim intNewValue As Integer
Integer.TryParse(objTextBox.Text, intNewValue)
If intNewValue > objTrackBar.Minimum AndAlso intNewValue < objTrackBar.Maximum Then
mblnChangingValue = True
objTrackBar.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TrackBar1_ValueChanged(sender As Object, e As EventArgs) Handles TrackBar1.ValueChanged, TrackBar2.ValueChanged, TrackBar3.ValueChanged, TrackBar4.ValueChanged, TrackBar5.ValueChanged
If mblnChangingValue Then Return
Dim objTrackBar As TrackBar = DirectCast(sender, TrackBar)
Dim intIndice As Integer
Integer.TryParse(objTrackBar.Name.Trim().ToUpper().Replace("TRACKBAR", ""), intIndice)
Dim objTextBox As TextBox = CType(Controls("TextBox" + intIndice.ToString()), TextBox)
mblnChangingValue = True
objTextBox.Text = objTrackBar.Value.ToString()
mblnChangingValue = False
End Sub
End Class
I'd have a customized function that takes in a textbox and slider as inputs where your current logic is implemented. Each control's event of interest (ie. Text_Changed) can be delegated to (or passed to) your custom function:
Something kind of like this (I threw this together quickly but I hope the idea comes through...happy to help you iron it out if needed).
Something kind of like this (I threw this together quickly but I hope the idea comes through...happy to help you iron it out if needed).
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
combineFunctions(Me.TextBox1, Me.Slider1)
End Sub
Private Sub combineFunctions(iTxt as textbox, iSlider as Trackbar)
iTxt.Text = iSlider.Value
mblnChangingValue = False
Dim intNewValue As Integer
Integer.TryParse(iTxt.Text, intNewValue)
If intNewValue > iSlider.MinValue AndAlso intNewValue < iSlider.MaxValue Then
mblnChangingValue = True
iSlider.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Using Eric's solution, you could also early map the instances so that you don't have to always compare by name; e.g. -
Form1.vb -![Capture.PNG]()
-saige-
Form1.vb -
Imports System.Runtime.CompilerServices
Public Class Form1
Private mappings As List(Of Tuple(Of Control, Control))
Private IsChangingValue As Boolean = False
Private Sub OnLoad(sender As Object, e As EventArgs) Handles MyBase.Load
If mappings Is Nothing Then
mappings = (From tb In Me.Controls.GetChildren(GetType(TextBox))
Join trk In Me.Controls.GetChildren(GetType(TrackBar))
On tb.Name.ToUpper().Replace("TEXTBOX", "") Equals trk.Name.ToUpper().Replace("TRACKBAR", "")
Select New Tuple(Of Control, Control)(tb, trk)).ToList()
End If
End Sub
Private Sub OnTextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged, TextBox3.TextChanged, TextBox2.TextChanged, TextBox1.TextChanged
If TypeOf sender Is TextBox And Not IsChangingValue Then
Dim tb = DirectCast(sender, TextBox)
Dim mapping = (From m In mappings Where m.Item1.Equals(tb) Select m).FirstOrDefault()
If mapping IsNot Nothing Then
Dim newValue As Integer
If Integer.TryParse(mapping.Item1.Text, newValue) AndAlso newValue > CType(mapping.Item2, TrackBar).Minimum AndAlso newValue < CType(mapping.Item2, TrackBar).Maximum Then
IsChangingValue = True
CType(mapping.Item2, TrackBar).Value = newValue
IsChangingValue = False
End If
End If
End If
End Sub
Private Sub OnValueChanged(sender As Object, e As EventArgs) Handles TrackBar4.ValueChanged, TrackBar3.ValueChanged, TrackBar2.ValueChanged, TrackBar1.ValueChanged
If TypeOf sender Is TrackBar And Not IsChangingValue Then
Dim trk = DirectCast(sender, TrackBar)
Dim mapping = (From m In mappings Where m.Item2.Equals(trk) Select m).FirstOrDefault()
If mapping IsNot Nothing Then
IsChangingValue = True
mapping.Item1.Text = CType(mapping.Item2, TrackBar).Value
IsChangingValue = False
End If
End If
End Sub
End Class
Module Extensions
<Extension>
Public Function GetChildren(source As Control.ControlCollection, Optional ByVal filter As Type = Nothing) As IEnumerable(Of Control)
Dim children As List(Of Control) = New List(Of Control)
For Each child As Control In source
If child.GetType() Is If(filter IsNot Nothing, filter, GetType(Control)) Then children.Add(child)
If child.HasChildren() Then children.AddRange(child.Controls.GetChildren(filter))
Next
Return children
End Function
End Module
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TrackBar1 = New System.Windows.Forms.TrackBar()
Me.TrackBar2 = New System.Windows.Forms.TrackBar()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TrackBar3 = New System.Windows.Forms.TrackBar()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.TrackBar4 = New System.Windows.Forms.TrackBar()
Me.TextBox4 = New System.Windows.Forms.TextBox()
CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TrackBar3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TrackBar4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(13, 13)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(100, 20)
Me.TextBox1.TabIndex = 0
'
'TrackBar1
'
Me.TrackBar1.Location = New System.Drawing.Point(119, 12)
Me.TrackBar1.Name = "TrackBar1"
Me.TrackBar1.Size = New System.Drawing.Size(104, 45)
Me.TrackBar1.TabIndex = 1
'
'TrackBar2
'
Me.TrackBar2.Location = New System.Drawing.Point(119, 63)
Me.TrackBar2.Name = "TrackBar2"
Me.TrackBar2.Size = New System.Drawing.Size(104, 45)
Me.TrackBar2.TabIndex = 3
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(13, 64)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(100, 20)
Me.TextBox2.TabIndex = 2
'
'TrackBar3
'
Me.TrackBar3.Location = New System.Drawing.Point(119, 114)
Me.TrackBar3.Name = "TrackBar3"
Me.TrackBar3.Size = New System.Drawing.Size(104, 45)
Me.TrackBar3.TabIndex = 5
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(13, 115)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(100, 20)
Me.TextBox3.TabIndex = 4
'
'TrackBar4
'
Me.TrackBar4.Location = New System.Drawing.Point(119, 165)
Me.TrackBar4.Name = "TrackBar4"
Me.TrackBar4.Size = New System.Drawing.Size(104, 45)
Me.TrackBar4.TabIndex = 7
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(13, 166)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(100, 20)
Me.TextBox4.TabIndex = 6
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(284, 261)
Me.Controls.Add(Me.TrackBar4)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TrackBar3)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TrackBar2)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TrackBar1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.TrackBar1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TrackBar2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TrackBar3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TrackBar4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TextBox1 As TextBox
Friend WithEvents TrackBar1 As TrackBar
Friend WithEvents TrackBar2 As TrackBar
Friend WithEvents TextBox2 As TextBox
Friend WithEvents TrackBar3 As TrackBar
Friend WithEvents TextBox3 As TextBox
Friend WithEvents TrackBar4 As TrackBar
Friend WithEvents TextBox4 As TextBox
End Class
-saige-
Hi Eric/Saige
The trackbars I am using are user created custom sliders (they support numerous properties not available on the system trackbar). They have the control name gTrackbar. Unfortunately VB is not recognising "gTrackbar" (as an alternative to "trackbar" in your code) as a valid control.
If it helps, the control name at the top of the properties window is the name of the control followed by gTrackbar.gTrackbar (for example, Gtrackbar1 gTrackbar.gTrackbar).
I am not sufficiently advanced to know why they are not being recognised, or if there is a workaround, so any help would be very welcome.
Regards
Terry
The trackbars I am using are user created custom sliders (they support numerous properties not available on the system trackbar). They have the control name gTrackbar. Unfortunately VB is not recognising "gTrackbar" (as an alternative to "trackbar" in your code) as a valid control.
If it helps, the control name at the top of the properties window is the name of the control followed by gTrackbar.gTrackbar (for example, Gtrackbar1 gTrackbar.gTrackbar).
I am not sufficiently advanced to know why they are not being recognised, or if there is a workaround, so any help would be very welcome.
Regards
Terry
just need to replace trackbar with gtrackbar everywhere as in:
Dim objTrackBar As GTrackBar = CType(Controls("GTrackBar" + intIndice.ToString()), GTrackBar)
Hi Eric
I have tried the code with gGTrackbar, but I get a red underline error where it is referred to as a control. Replacing this with gTrackbar.gTrackbar gets rid of the red underline but when I try to run it I get the following error message:
System.NullReferenceExcept
objTextBox was Nothing.
I will check back tomorrow to see if there is a solution.
Regards
Terry
I have tried the code with gGTrackbar, but I get a red underline error where it is referred to as a control. Replacing this with gTrackbar.gTrackbar gets rid of the red underline but when I try to run it I get the following error message:
System.NullReferenceExcept
objTextBox was Nothing.
I will check back tomorrow to see if there is a solution.
Regards
Terry
Assuming that you are using this control, the the following should work for you:
Form1.vb -
-saige-
Form1.vb -
Imports System.Runtime.CompilerServices
Public Class Form1
Private mappings As List(Of Tuple(Of Control, UserControl))
Private IsChangingValue As Boolean = False
Private Sub OnLoad(sender As Object, e As EventArgs) Handles MyBase.Load
If mappings Is Nothing Then
mappings = (From tb In Me.Controls.GetChildren(GetType(TextBox))
Join trk In Me.Controls.GetChildren(GetType(gTrackBar.gTrackBar))
On tb.Name.ToUpper().Replace("TEXTBOX", "") Equals trk.Name.ToUpper().Replace("TRACKBAR", "")
Select New Tuple(Of Control, UserControl)(tb, trk)).ToList()
End If
End Sub
Private Sub OnTextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged, TextBox3.TextChanged, TextBox2.TextChanged, TextBox1.TextChanged
If TypeOf sender Is TextBox And Not IsChangingValue Then
Dim tb = DirectCast(sender, TextBox)
Dim mapping = (From m In mappings Where m.Item1.Equals(tb) Select m).FirstOrDefault()
If mapping IsNot Nothing Then
Dim newValue As Integer
If Integer.TryParse(mapping.Item1.Text, newValue) AndAlso newValue > CType(mapping.Item2, gTrackBar.gTrackBar).MinValue AndAlso newValue < CType(mapping.Item2, gTrackBar.gTrackBar).MaxValue Then
IsChangingValue = True
CType(mapping.Item2, gTrackBar.gTrackBar).Value = newValue
IsChangingValue = False
End If
End If
End If
End Sub
Private Sub OnValueChanged(sender As Object, e As EventArgs) Handles TrackBar4.ValueChanged, TrackBar3.ValueChanged, TrackBar2.ValueChanged, TrackBar1.ValueChanged
If TypeOf sender Is gTrackBar.gTrackBar And Not IsChangingValue Then
Dim trk = DirectCast(sender, gTrackBar.gTrackBar)
Dim mapping = (From m In mappings Where m.Item2.Equals(trk) Select m).FirstOrDefault()
If mapping IsNot Nothing Then
IsChangingValue = True
mapping.Item1.Text = CType(mapping.Item2, gTrackBar.gTrackBar).Value
IsChangingValue = False
End If
End If
End Sub
End Class
Module Extensions
<Extension>
Public Function GetChildren(source As Control.ControlCollection, Optional ByVal filter As Type = Nothing) As IEnumerable(Of Control)
Dim children As List(Of Control) = New List(Of Control)
For Each child As Control In source
If child.GetType() Is If(filter IsNot Nothing, filter, GetType(Control)) Then children.Add(child)
If child.HasChildren() Then children.AddRange(child.Controls.GetChildren(filter))
Next
Return children
End Function
End Module
<AttributeUsage(AttributeTargets.All, AllowMultiple:=True)>
Class MappingAttribute
Inherits Attribute
Public Property MapTo() As Control
Public Sub New(mapping As Control)
MapTo = mapping
End Sub
End Class
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<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
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TrackBar1 = New gTrackBar.gTrackBar()
Me.TrackBar2 = New gTrackBar.gTrackBar()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TrackBar3 = New gTrackBar.gTrackBar()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.TrackBar4 = New gTrackBar.gTrackBar()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(13, 13)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(100, 20)
Me.TextBox1.TabIndex = 0
'
'TrackBar1
'
Me.TrackBar1.BackColor = System.Drawing.SystemColors.Control
Me.TrackBar1.Label = Nothing
Me.TrackBar1.Location = New System.Drawing.Point(119, 12)
Me.TrackBar1.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.TrackBar1.Name = "TrackBar1"
Me.TrackBar1.Size = New System.Drawing.Size(104, 45)
Me.TrackBar1.SliderWidthHigh = 1.0!
Me.TrackBar1.SliderWidthLow = 1.0!
Me.TrackBar1.TabIndex = 1
Me.TrackBar1.TickThickness = 1.0!
Me.TrackBar1.Value = 0
Me.TrackBar1.ValueAdjusted = 0!
Me.TrackBar1.ValueDivisor = gTrackBar.gTrackBar.eValueDivisor.e1
Me.TrackBar1.ValueStrFormat = Nothing
'
'TrackBar2
'
Me.TrackBar2.BackColor = System.Drawing.SystemColors.Control
Me.TrackBar2.Label = Nothing
Me.TrackBar2.Location = New System.Drawing.Point(119, 63)
Me.TrackBar2.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.TrackBar2.Name = "TrackBar2"
Me.TrackBar2.Size = New System.Drawing.Size(104, 45)
Me.TrackBar2.SliderWidthHigh = 1.0!
Me.TrackBar2.SliderWidthLow = 1.0!
Me.TrackBar2.TabIndex = 3
Me.TrackBar2.TickThickness = 1.0!
Me.TrackBar2.Value = 0
Me.TrackBar2.ValueAdjusted = 0!
Me.TrackBar2.ValueDivisor = gTrackBar.gTrackBar.eValueDivisor.e1
Me.TrackBar2.ValueStrFormat = Nothing
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(13, 64)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(100, 20)
Me.TextBox2.TabIndex = 2
'
'TrackBar3
'
Me.TrackBar3.BackColor = System.Drawing.SystemColors.Control
Me.TrackBar3.Label = Nothing
Me.TrackBar3.Location = New System.Drawing.Point(119, 114)
Me.TrackBar3.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.TrackBar3.Name = "TrackBar3"
Me.TrackBar3.Size = New System.Drawing.Size(104, 45)
Me.TrackBar3.SliderWidthHigh = 1.0!
Me.TrackBar3.SliderWidthLow = 1.0!
Me.TrackBar3.TabIndex = 5
Me.TrackBar3.TickThickness = 1.0!
Me.TrackBar3.Value = 0
Me.TrackBar3.ValueAdjusted = 0!
Me.TrackBar3.ValueDivisor = gTrackBar.gTrackBar.eValueDivisor.e1
Me.TrackBar3.ValueStrFormat = Nothing
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(13, 115)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(100, 20)
Me.TextBox3.TabIndex = 4
'
'TrackBar4
'
Me.TrackBar4.BackColor = System.Drawing.SystemColors.Control
Me.TrackBar4.Label = Nothing
Me.TrackBar4.Location = New System.Drawing.Point(119, 165)
Me.TrackBar4.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.TrackBar4.Name = "TrackBar4"
Me.TrackBar4.Size = New System.Drawing.Size(104, 45)
Me.TrackBar4.SliderWidthHigh = 1.0!
Me.TrackBar4.SliderWidthLow = 1.0!
Me.TrackBar4.TabIndex = 7
Me.TrackBar4.TickThickness = 1.0!
Me.TrackBar4.Value = 0
Me.TrackBar4.ValueAdjusted = 0!
Me.TrackBar4.ValueDivisor = gTrackBar.gTrackBar.eValueDivisor.e1
Me.TrackBar4.ValueStrFormat = Nothing
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(13, 166)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(100, 20)
Me.TextBox4.TabIndex = 6
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(284, 261)
Me.Controls.Add(Me.TrackBar4)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TrackBar3)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TrackBar2)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TrackBar1)
Me.Controls.Add(Me.TextBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TextBox1 As TextBox
Friend WithEvents TrackBar1 As gTrackBar.gTrackBar
Friend WithEvents TrackBar2 As gTrackBar.gTrackBar
Friend WithEvents TextBox2 As TextBox
Friend WithEvents TrackBar3 As gTrackBar.gTrackBar
Friend WithEvents TextBox3 As TextBox
Friend WithEvents TrackBar4 As gTrackBar.gTrackBar
Friend WithEvents TextBox4 As TextBox
End Class
-saige-
Hi Saige
I'm still getting the Nullreference exception. Do I need the form1.designer.vb code? All the texboxes and sliders and their properties are already in place.
Regards
Terry
I'm still getting the Nullreference exception. Do I need the form1.designer.vb code? All the texboxes and sliders and their properties are already in place.
Regards
Terry
Hi David
Your solution seems to work, but using the code as it stands I can only change the value of the textbox by moving the slider. It won't let me change the value in the textbox.
Any suggestions?
Regards
Terry
Your solution seems to work, but using the code as it stands I can only change the value of the textbox by moving the slider. It won't let me change the value in the textbox.
Any suggestions?
Regards
Terry
Since we don't have access to your gtrackbar, and since you have issues trying to convert a string to your control, have you tried David L. Hansen answer? No casting is required
You don't need the designer, it is just in case you wanted to implement my example as a test application. With regards to the the object reference error, are you by chance setting any of the textbox or slider values pre-load?
Where do you get the object reference error using my implementation?
Can you provide your source code?
-saige-
Where do you get the object reference error using my implementation?
Can you provide your source code?
-saige-
I have your solution! Your exception was surely coming from the fact that ValueChanged event of the trackbar was raised while the form was loading (and because the form was still not visible, the TextBox is not available)!
Public Class Form2
Private mblnChangingValue As Boolean = False
Private Sub TextBox_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged, TextBox4.TextChanged, TextBox5.TextChanged
If mblnChangingValue Then Return
Dim objTextBox As TextBox = DirectCast(sender, TextBox)
Dim intIndice as Integer
Integer.TryParse(objTextBox.Name.Trim().ToUpper().Replace("TEXTBOX", ""), intIndice)
Dim objTrackBar As gTrackBar.gTrackBar = CType(Controls("GTrackBar" + intIndice.ToString()), gTrackBar.gTrackBar)
Dim intNewValue As Integer
Integer.TryParse(objTextBox.Text, intNewValue)
If intNewValue > objTrackBar.MinValue AndAlso intNewValue < objTrackBar.MaxValue Then
mblnChangingValue = True
objTrackBar.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TrackBar1_ValueChanged(sender As Object, e As EventArgs) Handles gTrackBar1.ValueChanged, gTrackBar2.ValueChanged, gTrackBar3.ValueChanged, gTrackBar4.ValueChanged, gTrackBar5.ValueChanged
if not Visible then return
If mblnChangingValue Then Return
Dim objTrackBar As GTrackBar.gTrackBar = DirectCast(sender, gTrackBar.gTrackBar)
Dim intIndice As Integer
Integer.TryParse(objTrackBar.Name.Trim().ToUpper().Replace("GTRACKBAR", ""), intIndice)
Dim objTextBox As TextBox = CType(Controls("TextBox" + intIndice.ToString()), TextBox)
mblnChangingValue = True
objTextBox.Text = objTrackBar.Value.ToString()
mblnChangingValue = False
End Sub
End Class
Sorry Eric - still getting the null reference, but this time for the trackbar. The error is as follows:
System.NullReferenceExcept
objTrackBar was Nothing.
This happening at line 18 in your code.
Regards
Terry
System.NullReferenceExcept
objTrackBar was Nothing.
This happening at line 18 in your code.
Regards
Terry
are your trackbar controls really name "GTrackBar1", "GTrackBar2", "GTrackBar3", ... ? And it is case sensitibe.
Hi Eric
I don't think the names are case sensitive, but I tried the code again with the names case matching the control names and got the same error. In my original code, the textboxes and sliders interact perfectly - they update each other.
Regards
Terry
I don't think the names are case sensitive, but I tried the code again with the names case matching the control names and got the same error. In my original code, the textboxes and sliders interact perfectly - they update each other.
Regards
Terry
Hi Eric
I'm just heading off somewhere, so I will respond tomorrow. Below is the code for Form3 with my original method for changing the values. Also, in my code it loads the initial textbox and slider values from a file into a datatable. I assume you don't need this.
Regards
Terry
I'm just heading off somewhere, so I will respond tomorrow. Below is the code for Form3 with my original method for changing the values. Also, in my code it loads the initial textbox and slider values from a file into a datatable. I assume you don't need this.
Regards
Terry
Imports System.Data.OleDb
Public Class Form3
Dim MS(24) As Integer
Dim MaxMS As Integer
Dim MaxFactor As Integer
Dim Maxadd As Integer
Dim Numlen As Integer
Dim Tbindex As Integer
Dim dt As New DataTable
Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TabControl1.Hide()
Panel1.Hide()
Panel2.Hide()
'load data from scenario file into datatable dt
Dim folder = "D:\Users\Terry Gordon\Simco2017\"
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & folder & ";" + "Extended Properties='text;FMT=Delimited(;);HDR=YES'")
Dim da As New OleDbDataAdapter("select * from [Simco Variables with headers.csv]", con)
da.Fill(dt)
'MsgBox(dt.Rows.Item(5).Item(5))
'read tab headings from datatable dt
TabPage1.Text = dt.Columns(1).ColumnName
TabPage2.Text = dt.Columns(2).ColumnName
TabPage3.Text = dt.Columns(3).ColumnName
TabPage4.Text = dt.Columns(4).ColumnName
TabPage5.Text = dt.Columns(5).ColumnName
TabPage6.Text = dt.Columns(6).ColumnName
TabPage7.Text = dt.Columns(7).ColumnName
TextBox1.Text = "40000"
End Sub
Private Sub Gtrackbar1_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar1.ValueChanged
If mblnChangingValue Then Return
'combineFunctions(Me.TextBox1, Me.GTrackBar1)
mblnChangingValue = True
TextBox1.Text = GTrackBar1.Value
mblnChangingValue = False
End Sub
Private Sub Gtrackbar2_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar2.ValueChanged
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox2.Text = GTrackBar2.Value
mblnChangingValue = False
End Sub
Private Sub Gtrackbar3_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar3.ValueChanged
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox3.Text = GTrackBar3.Value
mblnChangingValue = False
End Sub
Private Sub Gtrackbar4_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar4.ValueChanged
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox4.Text = GTrackBar4.Value
mblnChangingValue = False
End Sub
Private Sub Gtrackbar5_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar5.ValueChanged
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox5.Text = GTrackBar5.Value
mblnChangingValue = False
End Sub
Private Sub Gtrackbar6_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar6.ValueChanged
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox6.Text = GTrackBar6.Value
mblnChangingValue = False
End Sub
Private Sub Gtrackbar7_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar7.ValueChanged
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox7.Text = GTrackBar7.Value
mblnChangingValue = False
End Sub
Private Sub Gtrackbar8_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar8.ValueChanged
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox8.Text = GTrackBar8.Value
mblnChangingValue = False
End Sub
Private Sub Gtrackbar9_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar9.ValueChanged
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox9.Text = GTrackBar9.Value
mblnChangingValue = False
End Sub
Private Sub Gtrackbar10_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar10.ValueChanged
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox10.Text = GTrackBar10.Value
mblnChangingValue = False
End Sub
Private Sub Gtrackbar11_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar11.ValueChanged
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox11.Text = GTrackBar11.Value
mblnChangingValue = False
End Sub
Private Sub Gtrackbar12_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar12.ValueChanged
If mblnChangingValue Then Return
mblnChangingValue = True
TextBox12.Text = GTrackBar12.Value
mblnChangingValue = False
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
If mblnChangingValue Then Return
'combineFunctions(Me.TextBox1, Me.GTrackBar1)
Dim intNewValue As Integer
Integer.TryParse(TextBox1.Text, intNewValue)
If intNewValue > GTrackBar1.MinValue AndAlso intNewValue < GTrackBar1.MaxValue Then
mblnChangingValue = True
GTrackBar1.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox2.Text, intNewValue)
If intNewValue > GTrackBar2.MinValue AndAlso intNewValue < GTrackBar2.MaxValue Then
mblnChangingValue = True
GTrackBar2.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox3.Text, intNewValue)
If intNewValue > GTrackBar3.MinValue AndAlso intNewValue < GTrackBar3.MaxValue Then
mblnChangingValue = True
GTrackBar3.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox4.Text, intNewValue)
If intNewValue > GTrackBar4.MinValue AndAlso intNewValue < GTrackBar4.MaxValue Then
mblnChangingValue = True
GTrackBar4.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox5.Text, intNewValue)
If intNewValue > GTrackBar5.MinValue AndAlso intNewValue < GTrackBar5.MaxValue Then
mblnChangingValue = True
GTrackBar5.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox6.Text, intNewValue)
If intNewValue > GTrackBar6.MinValue AndAlso intNewValue < GTrackBar6.MaxValue Then
mblnChangingValue = True
GTrackBar6.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox7.Text, intNewValue)
If intNewValue > GTrackBar7.MinValue AndAlso intNewValue < GTrackBar7.MaxValue Then
mblnChangingValue = True
GTrackBar7.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private mblnChangingValue As Boolean = False
Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles TextBox8.TextChanged
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox8.Text, intNewValue)
If intNewValue > GTrackBar8.MinValue AndAlso intNewValue < GTrackBar8.MaxValue Then
mblnChangingValue = True
GTrackBar8.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox9.Text, intNewValue)
If intNewValue > GTrackBar9.MinValue AndAlso intNewValue < GTrackBar9.MaxValue Then
mblnChangingValue = True
GTrackBar9.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles TextBox10.TextChanged
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox10.Text, intNewValue)
If intNewValue > GTrackBar10.MinValue AndAlso intNewValue < GTrackBar10.MaxValue Then
mblnChangingValue = True
GTrackBar10.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles TextBox11.TextChanged
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox11.Text, intNewValue)
If intNewValue > GTrackBar11.MinValue AndAlso intNewValue < GTrackBar11.MaxValue Then
mblnChangingValue = True
GTrackBar11.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles TextBox12.TextChanged
If mblnChangingValue Then Return
Dim intNewValue As Integer
Integer.TryParse(TextBox12.Text, intNewValue)
If intNewValue > GTrackBar12.MinValue AndAlso intNewValue < GTrackBar12.MaxValue Then
mblnChangingValue = True
GTrackBar12.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub combineFunctions(iTxt As TextBox, iSlider As gTrackBar.gTrackBar)
iTxt.Text = iSlider.Value
mblnChangingValue = False
Dim intNewValue As Integer
Integer.TryParse(iTxt.Text, intNewValue)
If intNewValue > iSlider.MinValue AndAlso intNewValue < iSlider.MaxValue Then
mblnChangingValue = True
iSlider.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TabControl1_Click(sender As Object, e As EventArgs) Handles TabControl1.Click
Tbindex = TabControl1.SelectedIndex
'MsgBox(Tbindex)
filltextboxes()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TabControl1.Show()
TabControl1.SelectedIndex = 0
Tbindex = 0
Panel1.Show()
Panel2.Show()
filltextboxes()
End Sub
Private Sub filltextboxes()
TextBox1.Text = dt.Rows.Item(0).Item(Tbindex + 1)
TextBox2.Text = dt.Rows.Item(1).Item(Tbindex + 1)
TextBox3.Text = dt.Rows.Item(2).Item(Tbindex + 1)
TextBox4.Text = dt.Rows.Item(3).Item(Tbindex + 1)
TextBox5.Text = dt.Rows.Item(4).Item(Tbindex + 1)
TextBox6.Text = dt.Rows.Item(5).Item(Tbindex + 1)
TextBox7.Text = dt.Rows.Item(6).Item(Tbindex + 1)
TextBox8.Text = dt.Rows.Item(7).Item(Tbindex + 1)
TextBox9.Text = dt.Rows.Item(8).Item(Tbindex + 1)
TextBox10.Text = dt.Rows.Item(9).Item(Tbindex + 1)
TextBox11.Text = dt.Rows.Item(10).Item(Tbindex + 1)
TextBox12.Text = dt.Rows.Item(11).Item(Tbindex + 1)
TextBox13.Text = dt.Rows.Item(13).Item(Tbindex + 1)
TextBox14.Text = dt.Rows.Item(14).Item(Tbindex + 1)
TextBox15.Text = dt.Rows.Item(15).Item(Tbindex + 1)
TextBox16.Text = dt.Rows.Item(16).Item(Tbindex + 1)
TextBox17.Text = dt.Rows.Item(17).Item(Tbindex + 1)
TextBox18.Text = dt.Rows.Item(18).Item(Tbindex + 1)
TextBox19.Text = dt.Rows.Item(19).Item(Tbindex + 1)
TextBox20.Text = dt.Rows.Item(20).Item(Tbindex + 1)
TextBox21.Text = dt.Rows.Item(21).Item(Tbindex + 1)
TextBox22.Text = dt.Rows.Item(22).Item(Tbindex + 1)
TextBox23.Text = dt.Rows.Item(23).Item(Tbindex + 1)
TextBox24.Text = dt.Rows.Item(24).Item(Tbindex + 1)
TextBox25.Text = dt.Rows.Item(12).Item(Tbindex + 1)
TextBox26.Text = dt.Rows.Item(25).Item(Tbindex + 1)
End Sub
End Class
the problem is that you have tabpages and the controls collection is not flat. give me a couple of minutes!
something like this to loop recursively through the controls:
Private mblnChangingValue As Boolean = False
Private Sub TextBox_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged, TextBox4.TextChanged, TextBox5.TextChanged, TextBox6.TextChanged, TextBox7.TextChanged, TextBox8.TextChanged, TextBox9.TextChanged
If mblnChangingValue Then Return
Dim objTextBox As TextBox = DirectCast(sender, TextBox)
Dim intIndice As Integer
Integer.TryParse(objTextBox.Name.Trim().ToUpper().Replace("TEXTBOX", ""), intIndice)
Dim objTrackBar As gTrackBar.gTrackBar = FindTrackBar(Controls, "GTrackBar" + intIndice.ToString()) ' CType(Controls("GTrackBar" + intIndice.ToString()), gTrackBar.gTrackBar)
Dim intNewValue As Integer
Integer.TryParse(objTextBox.Text, intNewValue)
If intNewValue > objTrackBar.MinValue AndAlso intNewValue < objTrackBar.MaxValue Then
mblnChangingValue = True
objTrackBar.Value = intNewValue
mblnChangingValue = False
End If
End Sub
Private Sub TrackBar1_ValueChanged(sender As Object, e As EventArgs) Handles GTrackBar1.ValueChanged, GTrackBar2.ValueChanged, GTrackBar3.ValueChanged, GTrackBar4.ValueChanged, GTrackBar5.ValueChanged, GTrackBar6.ValueChanged, GTrackBar7.ValueChanged, GTrackBar8.ValueChanged, GTrackBar9.ValueChanged
If Not Visible Then Return
If mblnChangingValue Then Return
Dim objTrackBar As gTrackBar.gTrackBar = DirectCast(sender, gTrackBar.gTrackBar)
Dim intIndice As Integer
Integer.TryParse(objTrackBar.Name.Trim().ToUpper().Replace("GTRACKBAR", ""), intIndice)
Dim objTextBox As TextBox = FindTextBox(Controls, "TextBox" + intIndice.ToString()) ' CType(Controls("TextBox" + intIndice.ToString()), TextBox)
mblnChangingValue = True
objTextBox.Text = objTrackBar.Value.ToString()
mblnChangingValue = False
End Sub
Private Function FindTextBox(ByVal pControls As Control.ControlCollection, ByVal pName As String) As TextBox
Dim objTextBox As TextBox = CType(pControls(pName), TextBox)
If objTextBox IsNot Nothing Then Return objTextBox
For Each c As Control In pControls
If c.Controls IsNot Nothing Then
objTextBox = FindTextBox(c.Controls, pName)
If objTextBox IsNot Nothing Then Return objTextBox
End If
Next
End Function
Private Function FindTrackBar(ByVal pControls As Control.ControlCollection, ByVal pName As String) As gTrackBar.gTrackBar
Dim objTrackBar As gTrackBar.gTrackBar = CType(pControls(pName), gTrackBar.gTrackBar)
If objTrackBar IsNot Nothing Then Return objTrackBar
For Each c As Control In pControls
If c.Controls IsNot Nothing Then
objTrackBar = FindTrackBar(c.Controls, pName)
If objTrackBar IsNot Nothing Then Return objTrackBar
End If
Next
End Function
End Class
Hi Eric
Your solution works a treat. Thanks to both yourself and Saige for all the work you have put into this.
My problem now is that there are 24 trackbars and 24 textboxes that have to go after the 'handles' statement. I don't suppose there is any way of spreading it across multiple lines? :-)
Have a fantastic Christmas.
Regards
Terry
Your solution works a treat. Thanks to both yourself and Saige for all the work you have put into this.
My problem now is that there are 24 trackbars and 24 textboxes that have to go after the 'handles' statement. I don't suppose there is any way of spreading it across multiple lines? :-)
Have a fantastic Christmas.
Regards
Terry
Instead of using the Handles clause, you could use a AddHandler statement in your form's initializer but you would need 48 rows of them: https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/addhandler-statement
Using the extension method GetChildren, we could do something like this:
Form1.vb -
-saige-
Form1.vb -
Imports System.Runtime.CompilerServices
Public Class Form1
Private mappings As List(Of Tuple(Of Control, UserControl))
Private IsChangingValue As Boolean = False
Private Sub OnLoad(sender As Object, e As EventArgs) Handles MyBase.Load
For Each pair In (From tb In Me.Controls.GetChildren(GetType(TextBox))
Join trk In Me.Controls.GetChildren(GetType(gTrackBar.gTrackBar))
On tb.Name.ToUpper().Replace("TEXTBOX", "") Equals trk.Name.ToUpper().Replace("GTRACKBAR", "")
Select New With {.TextBox = CType(tb, TextBox), .gTrackBar = CType(trk, gTrackBar.gTrackBar)})
AddHandler pair.TextBox.TextChanged, AddressOf OnTextChanged
AddHandler pair.gTrackBar.ValueChanged, AddressOf OnValueChanged
Next
If mappings Is Nothing Then
mappings = (From tb In Me.Controls.GetChildren(GetType(TextBox))
Join trk In Me.Controls.GetChildren(GetType(gTrackBar.gTrackBar))
On tb.Name.ToUpper().Replace("TEXTBOX", "") Equals trk.Name.ToUpper().Replace("GTRACKBAR", "")
Select New Tuple(Of Control, UserControl)(tb, trk)).ToList()
End If
End Sub
Private Sub OnTextChanged(sender As Object, e As EventArgs)
If TypeOf sender Is TextBox And Not IsChangingValue Then
Dim tb = DirectCast(sender, TextBox)
Dim mapping = (From m In mappings Where m.Item1.Equals(tb) Select m).FirstOrDefault()
If mapping IsNot Nothing Then
Dim newValue As Integer
If Integer.TryParse(mapping.Item1.Text, newValue) AndAlso newValue > CType(mapping.Item2, gTrackBar.gTrackBar).MinValue AndAlso newValue < CType(mapping.Item2, gTrackBar.gTrackBar).MaxValue Then
IsChangingValue = True
CType(mapping.Item2, gTrackBar.gTrackBar).Value = newValue
IsChangingValue = False
End If
End If
End If
End Sub
Private Sub OnValueChanged(sender As Object, e As EventArgs)
If TypeOf sender Is gTrackBar.gTrackBar And Not IsChangingValue Then
Dim trk = DirectCast(sender, gTrackBar.gTrackBar)
Dim mapping = (From m In mappings Where m.Item2.Equals(trk) Select m).FirstOrDefault()
If mapping IsNot Nothing Then
IsChangingValue = True
mapping.Item1.Text = CType(mapping.Item2, gTrackBar.gTrackBar).Value
IsChangingValue = False
End If
End If
End Sub
End Class
Module Extensions
<Extension>
Public Function GetChildren(source As Control.ControlCollection, Optional ByVal filter As Type = Nothing) As IEnumerable(Of Control)
Dim children As List(Of Control) = New List(Of Control)
For Each child As Control In source
If child.GetType() Is If(filter IsNot Nothing, filter, GetType(Control)) Then children.Add(child)
If child.HasChildren() Then children.AddRange(child.Controls.GetChildren(filter))
Next
Return children
End Function
End Module
-saige-
Premium Content
You need an Expert Office subscription to comment.Start Free Trial