Enabling Buttons Using Variables

Question

0.00/5 (No votes)

See more:

This is the code in question:

VB

Friend Sub cbxSelRun_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxSelRun.SelectedIndexChanged
    Dim tmpBtn As Object = "System.Windows.Forms.Button"
    For i = 1 To 6
        If Dir(a_RunFldr(cbxSelRun.SelectedIndex.ToString + 1) & "\Libraries\" & a_RTLib(i), vbDirectory) <> "" Then
            s_Temp = LSet(a_RTLib(i), 4)
            tmpBtn = "btn" & s_Temp
            tmpBtn.enabled = True
        End If
    Next i
End Sub

It's not working {probably obvious}. What I have are 6 buttons. They start off disabled and should only be enabled if the target Folder is present. I could do this with lengthy code, but I'd prefer to just use the For...Next loop to (1) Check for the folder THEN (2) Enable the appropriate button.

These are the regular variables:

VB

a_RTLib(1) = "Character"
a_RTLib(2) = "Face"
a_RTLib(3) = "Hair"
a_RTLib(4) = "Hand"
a_RTLib(5) = "Pose"
a_RTLib(6) = "Props"

And the button names:

VB

btnChar
btnFace
btnHair
btnHand
btnPose
btnProp

If I need to change the button names to numbers that would be fine, so long as I can get them to enable/disable using variables when I need to.

Any help would be appreciated!

Peace to you and yours,
Matthew "Dra'Gon" Stohler

Posted 11-Jul-11 9:46am

BlueDragonFire

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CPallini · Accepted Answer · 2011-07-11T10:13:00

Solution 1

You may use, for instance a Dictionary: declare
a variable like

VB

Dim dic As New Dictionary(Of String, Button)

then initialize it:

VB

dic.Add("Character", btnChar)
dic.Add("Face", btnFace)
' and so on...

Then you may access each Button using the corrensponding String, for instance

VB

dic("Character").Enabled = True

Posted 11-Jul-11 10:13am

CPallini

Comments

BlueDragonFire 11-Jul-11 16:33pm

You, Sir, are my hero! Works like a charm!!!!

Many, MANY thanks!!!

Peace to you and yours,
Matthew "Dra'Gon" Stohler

CPallini 11-Jul-11 16:43pm

You are welcome :-)