Set Textbox Controls

**Reafidy** · Jan 24th 2007

Hi all,

Is there an easier way of setting the values of textbox controls, the way im using below is very repetitive and has to be run through every time a combobox1 is changed. Im also going to have to add a lot more case scenarios in the short future.

Code

Private Function setform()
    Dim Xeng As Boolean


    For Each ctl In Me.Controls
        If TypeOf ctl Is MSForms.TextBox Then
            ctl.Enabled = True
            ctl.Locked = False
            ctl.Value = ""
        End If
    Next


    Select Case ComboBox1.ListIndex
    Case 0              'BELL206B
        Xeng = False
        TextBox8.Locked = True
        TextBox9.Enabled = False
        TextBox9.Locked = True
        TextBox9.Value = "N/A"
        TextBox17.Enabled = False
        TextBox17.Locked = True
        TextBox17.Value = "N/A"
    Case 1              'HUGHES269C
        Xeng = False
        TextBox8.Enabled = False
        TextBox8.Locked = True
        TextBox8.Value = "N/A"
        TextBox9.Enabled = False
        TextBox9.Locked = True
        TextBox9.Value = "N/A"
        TextBox16.Enabled = False
        TextBox16.Locked = True
        TextBox16.Value = "N/A"
        TextBox17.Enabled = False
        TextBox17.Locked = True
        TextBox17.Value = "N/A"


    Case 2, 3, 4, 5     'AS350B,BA,B2
        Xeng = False
        TextBox8.Locked = True
        TextBox9.Locked = True
    Case 6              'AS350B3
        Xeng = False
    Case 7              'AS355N
        Xeng = True
    End Select


    If Xeng = False Then
    TextBox8.Locked = True
        TextBox9.Locked = True
        TextBox18.Value = "N/A"
        TextBox19.Value = "N/A"
        TextBox20.Value = "N/A"
    End If


    TextBox18.Enabled = Xeng
    TextBox18.Locked = Not Xeng
    TextBox19.Enabled = Xeng
    TextBox19.Locked = Not Xeng
    TextBox20.Enabled = Xeng
    TextBox20.Locked = Not Xeng


End Function

Display More

GeorgS · Jan 24th 2007

Re: Set Textbox Controls

Reafidy,

Put them in Group Boxes?
You could name them in a similar manner to what has been selected from your listbox, and loop through all of the controls looking for that name, then set your properties.
Instead of naming them, you could set the tag property to "Hughes" or "Bell" and then loop through them looking for the tag that corresponds to the selection from the list box.

G.

**Reafidy** · Jan 24th 2007

Re: Set Textbox Controls

Hi G, Thanks for that advise.

What do you mean by group boxes? The text boxes are in frames at the moment but not nessacarily the right "group".

I dont think I can do option 2 or 3 because the boxes are used by more than one aircraft. Ie I couldnt tag or rename because for example textbox 8 is in bell206b and as350B3 but locked in only bell206B.

But I will definately try tho.

Its a nasty situation I think, maybe I have to live with it?

GeorgS · Jan 24th 2007

Re: Set Textbox Controls

Reafidy,

Sorry. Frames = Group Boxes.

The only other thing I can think of is to call a Function.

i.e. instead of

Code

TextBox8.Enabled = False 
        TextBox8.Locked = True 
        TextBox8.Value = "N/A"

Do this:

Code

Call TextBoxEnabler(Me.TextBox8,Xeng)
'and then
Private Function TextBoxEnabler(Byval tbx as TextBox, Byref Xeng as Boolean) as Boolean
        tbx.Enabled = Xeng 
        tbx.Locked = Not Xeng
        tbx.Value = IIf(Xeng, "N/A","")
End Function

G.

**Reafidy** · Jan 24th 2007

Re: Set Textbox Controls

Hi G,

That last peice of code could well be what I'm after. HoweverI cant seem to get it to work I get a "Byref argument type Mismatch".

If I change Xeng to true. I get "Type Mismatch".

Have played around with it quite a bit, any ideas?

Sam

**Andy Pope** · Jan 24th 2007

Re: Set Textbox Controls

Textboxes from msforms,
[vba]
Private Function TextBoxEnabler(ByVal tbx As MSForms.TextBox, ByRef Xeng As Boolean) As Boolean [/vba]

**Reafidy** · Jan 24th 2007

Re: Set Textbox Controls

Hi Guys,

Thanks for your help.

I now have the following code which I feel is a definate improvement on my original lot. It now caters for additional aircraft to be easily loaded in. Unfortunately I had to set the textbox variables for the textbox individualy but I dont think that really matters.

Code

Private Function Setform()
    Dim Xeng As Boolean
    Dim ctl As MSForms.Control


    For Each ctl In Me.Controls
        If TypeOf ctl Is MSForms.TextBox Then
            ctl.Enabled = True
            ctl.Locked = False
            ctl.Value = ""
        End If
    Next


    Select Case ComboBox1.ListIndex
    Case 0              'BELL206B
        Call TxtBxEnblr(Me.TextBox8, True, True, True)
        Call TxtBxEnblr(Me.TextBox9, False, True, False)
        Call TxtBxEnblr(Me.TextBox17, False, True, False)
        Xeng = False
    Case 1              'HUGHES269C
        Call TxtBxEnblr(Me.TextBox8, False, True, False)
        Call TxtBxEnblr(Me.TextBox9, False, True, False)
        Call TxtBxEnblr(Me.TextBox16, False, True, False)
        Call TxtBxEnblr(Me.TextBox17, False, True, False)
    Case 2, 3, 4, 5     'AS350B,BA,B2
        Call TxtBxEnblr(Me.TextBox8, True, True, True)
        Call TxtBxEnblr(Me.TextBox9, True, True, True)
        Xeng = False
    Case 6              'AS350B3
        Call TxtBxEnblr(Me.TextBox8, True, False, True)
        Call TxtBxEnblr(Me.TextBox9, True, False, True)
        Xeng = False
    Case 7              'AS355)
        Xeng = True
    End Select
    If Xeng = False Then
        Call TxtBxEnblr(TextBox18, False, False, False)
        Call TxtBxEnblr(TextBox19, False, False, False)
        Call TxtBxEnblr(TextBox20, False, False, False)
    End If


End Function
Private Function TxtBxEnblr(ByVal tbx As MSForms.TextBox, ByRef E As Boolean, ByRef L As Boolean, ByRef V As Boolean) As Boolean
    tbx.Enabled = E
    tbx.Locked = L
    tbx.Value = IIf(V, "", "N/A")
End Function

Display More

Set Textbox Controls

Participate now!

Share

Users Viewing This Thread