## Change Color a Textboxes from the Lower of the Highest [on hold]

I have 2 codes to change the color to Textbox, and unfortunately none of them work. What’s wrong here? Why the code is not good. Every time I try the code, it tells me there are no variables. The first code changes the color to Textbox if there is a value between 1 and 7, and the second changes the value in ascending order from the lowest to the highest and assigns a corresponding color.

Code 1:

``Public Class TextBoxColors     Private ColorTable As Dictionary(Of String, Color) = New Dictionary(Of String, Color)()     Public Sub New()         ColorTable.Add("1", Color.Red)         ColorTable.Add("2", Color.Aqua)         ColorTable.Add("3", Color.Chocolate)         ColorTable.Add("4", Color.BlanchedAlmond)         ColorTable.Add("5", Color.BurlyWood)         ColorTable.Add("6", Color.BlueViolet)         ColorTable.Add("7", Color.DarkBlue)     End Sub     Public Function GetColor(ColorMap As String) As Color         Return If(ColorTable.Keys.Contains(ColorMap), ColorTable(ColorMap), Color.White)     End Function End Class  Private txtColor As TextBoxColors = New TextBoxColors()  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load     For Each txtDraw As TextBox In Me.Controls.OfType(Of TextBox).Where(Function(txt) txt.Name.StartsWith("txtDraw"))         AddHandler txtDraw.TextChanged,             Sub()                 If Not String.IsNullOrEmpty(txtDraw.Text) Then                     txtDraw.BackColor = txtColor.GetColor(txtDraw.Text)                 End If             End Sub     Next End Sub ``

Code 2: This 2nd code must be changed based on my text box, which starts with SumtxtDraw

`` Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load      FillColorList()  End Sub  Private Sub ColorTextBoxes()     FillTextBoxList(16, 23)     Dim SortedList As List(Of TextBox) = SortList()     Dim index As Integer     For Each txt As TextBox In SortedList          txt.BackColor = lstColor(index)          index += 1     Next End Sub  Private Sub FillColorList()     lstColor.Add(Color.Red) 'for lowest number     lstColor.Add(Color.BlanchedAlmond)     lstColor.Add(Color.PaleGreen)     lstColor.Add(Color.Chartreuse)     lstColor.Add(Color.CadetBlue)     lstColor.Add(Color.Orange)     lstColor.Add(Color.DarkMagenta)     lstColor.Add(Color.Violet) 'for highest number End Sub  Private Sub FillTextBoxList(StartNumber As Integer, EndNumber As Integer)     lstTextBox.Clear()     For suffix = StartNumber To EndNumber         lstTextBox.Add(DirectCast(Controls("TextBox" & suffix.ToString), TextBox))     Next End Sub  Private Function SortList() As List(Of TextBox)     Dim orderedList = From txt In lstTextBox Order By CInt(txt.Text) Descending Select txt '\$  "{scorer.Score} - {scorer.Name}"     Dim SortedList As List(Of TextBox) = orderedList.ToList     Return SortedList End Function  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click     ColorTextBoxes() End Sub ``

## Recommend a Best | Highest Affiliate Program that really pay?!!!

Hi. I am looking for the Highest Affiliate Program that really pay?
And that i even got earn by promoting it via my referral.
Anyone can recommend a good one? As i am planning to promote it on my website.
Thanks.

## finite dimensional modules are highest weight modules

Let $$\mathfrak{g}$$ be a basic classical simple Lie super algebra. I want to prove that every finite dimensional module over $$\mathfrak{g}$$ has a highest weight vector.

My feeling is, since $$e_i$$‘s are rising operators it will kill a non-zero vector and this will give us a highest weight vector and may be we need to use Lie’s theorem.

But I am unable to connect these things to get a perfect answer. If some one can tell me clearly what is happening here, that would help me a lot. Thank you.

Hello DP Users,
I'm here to introduce you all to myUpload.cc!
This is a good opportunity for who ever would like to make fast money by accumulating file downloads.

Minimum Payout: \$ 10.00
You can view our rates here