Ron_1st escribió:
> On Thursday 28 May 2009, Jorge Carrión wrote:
>> ¿Perhaps trying sonething like this?
>>
>> PUBLIC SUB btnQuick_Click() 'toggle button
>>
>> DIM hCtl AS Control
>>
>> IF btnQuick.Value = TRUE THEN
>> FOR EACH hCtl IN FMain.Controls
>> TRY hCtl.Enabled = (hCtl.Tag <> "exclude")
>> NEXT
>>
>> it Is not very elegant but it works, I guess.
>> Regards
>> Jorge
>>
>
>
> I'n happy it works now at Jesus Guardon's box.
>
> The TRY is also a nice way. You can try it to get more
> speed in the loop and it gives a more nice text layout.
>
> Against that way is you forget why you use the trick
> and now it is good help to know a method to prevent
> the error.
> Any way if you start using the TRY method add a remark
> why it is used.
>
>
>
> Best regards,
>
> Ron_1st
>
I agree with Ron_1st. I don't like to use TRY if there's not a good
reason to. Anyway, Jorge's code looks pretty and short. Here is another
approach without 'TRY':
FOR EACH hCtl IN FMain.Controls
IF hCtl IS TextBox OR hCtl IS ComboBox THEN 'etc
IF hCtl.Tag = "exclude" THEN
IF btnQuick.Value = TRUE THEN
hCtl.Enabled = FALSE
ELSE
hCtl.Enabled = TRUE
ENDIF
ENDIF
ENDIF
NEXT
But it could be slower because it checks button state in each loop.
Regards
Jesus
------------------------------------------------------------------------------
Register Now for Creativity and Technology (CaT), June 3rd, NYC. CaT
is a gathering of tech-side developers & brand creativity professionals. Meet
the minds behind Google Creative Lab, Visual Complexity, Processing, &
iPhoneDevCamp as they present alongside digital heavyweights like Barbarian
Group, R/GA, & Big Spaceship. http://p.sf.net/sfu/creativitycat-com
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
