Change userform textbox colours dynamically

[sharky12345]

I'm trying to find a way to change the background colour of textboxes on a userform to assist users who have dyslexia.

I thought it might be as simple as setting their preferred colour on installation of the file, then calling that colour each time the form is loaded, but it doesn't work.

This is what I have so far:

Public Yellow As LongPublic Gray As Long
Public White As Long
Sub SetColours()
    If Sheet2.Range("B11").Value = "Yellow" Then
        BColor = &H80FFFF
    End If
    If Sheet2.Range("B11").Value = "White" Then
        BColor = &H80000005
    End If
    'Yellow = &H80FFFF
    'Gray = &H8000000F
    'White = &H80000005
End Sub

I'm then trying to set the colour like this:

Private Sub UserForm_Initialize()
SetColours
TextAgg.BackColor = BColor

Now what should happen, if my theory was correct, is that the textbox should have a yellow background but it doesn't, it's black!

Can anyone help me please?

 

[Fluff]

You haven't declared Bcolor anywhere, and it needs to be a string

 

[sharky12345]

Ahh, yes, all sorted now - cheers Fluff.

 

[Fluff]

You're welcome & thanks for the feedback

 

[dmt32]

Appreciate you may have resolved your issue but you probably can avoid using Public variables & multiple If statements in your code by creating a simple function to return the desired backcolor

try following (standard module or forms code page)

 Function SetColors()   
   Dim m As Variant
    'Yellow = &H80FFFF
    'Gray = &H8000000F
    'White = &H80000005
    m = Application.Match(Sheet2.Range("B11").Value, Array("White", "Yellow", "Gray"), 0)
    If IsError(m) Then m = 1
    SetColors = Choose(m, &H80000005, &H80FFFF, &H8000000F)
End Function

If further choices are needed just add to the array & Choose selection as required


To call

 Private Sub UserForm_Initialize() 
  Me.TextAgg.BackColor = SetColors
End Sub

Dave

 

[sharky12345]

Dave,

Thanks - your suggestion works so much better than mine!