accessing buttons in vb 6.0 thru loop

[noshaba mariam]

Is there any way to access all of buttons one by one thru loop but the buttons are not in a control array. I have almost 40 buttons on a form and i need to make some of them enable and some of them disable at runtime by checking there names. I dont want to write the long code but the buttons are not in a control array...Is there any way out of this situation. Thanx in advance Noshaba

[Steve Pullan]

I'd possibly re-build part of the form so that the buttons are in a control array. Much easier and the resultant code will be cleaner too. ...Steve 1. quod erat demonstrandum 2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once :-)

[noshaba mariam]

I have got the solution of the problem....here is that for u also Don't redesign the form rather use the following code: Function fResetEntries(frm As Form) Dim objObject As Object Dim i As Long For i = 0 To frm.Count - 1 Set objObject = frm.Controls(i) If objObject.NAME = "cmd1" then objObject.enabled = false End If Next i End Function :) isn't more easier and cleaner Noshaba

[Dave Kreskowiak]

noshaba mariam wrote:

isn't more easier and cleaner

No, it's not. If you just looped through 40 buttons to find one, I can save you the trouble and get it down to just one line of code:

Button1.Enabled = False

You'd be much better off sticking the related buttons into a control array. Then you wouldn't have to waste all that time checking for a name. You could just do something like:

For i = 0 to 12
SomeButtons(i).Enabled = False
Next

Dave Kreskowiak Microsoft MVP - Visual Basic

[Steve Pullan]

OK - if you want - but it sometimes comes to the point where you need to refactor the code to make it more efficient, more readable and maintainable. It takes a little time to do properly but isn't that the whole point? See Dave's answer to see how compact and easy the code becomes. ...Steve 1. quod erat demonstrandum 2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once :-)