QB64.org Forum

QB64 Team Software => InForm Discussion => Topic started by: FellippeHeitor on August 31, 2018, 10:27:26 am

Title: @Qwerkey: What about NumericTextBoxes?
Post by: FellippeHeitor on August 31, 2018, 10:27:26 am

Quote from: Qwerkey on August 31, 2018, 10:01:46 am

So, after creating the array of controls (tedious, but now done), the first bit of code transforms as follows:

From:
[code.../]

To:

Code: QB64: [Select]

1.                 IF VAL(Text(HowManyBodiesTB)) >= 2 AND VAL(Text(HowManyBodiesTB)) <= 11 THEN
2.                     Control(BodyDataFR).Disabled = False
3.                     Control(BodyDataFR).Hidden = False
4.                     SetFocus BodyMass1TB
5.                     Index% = VAL(Text(HowManyBodiesTB))
6.                     FOR M% = 3 TO 11
7.                         IF Index% < M% THEN
8.                             FOR K% = 8 * M% - 7 TO 8 * M%
9.                                 Control(TheQwerkey(K%)).Disabled = True
10.                                 Control(TheQwerkey(K%)).Hidden = True
11.                             NEXT K%
12.                         ELSE
13.                             FOR K% = 8 * M% - 7 TO 8 * M%
14.                                 Control(TheQwerkey(K%)).Disabled = False
15.                                 Control(TheQwerkey(K%)).Hidden = False
16.                             NEXT K%
17.                         END IF
18.                     NEXT M%
19.                 ELSE
20.                     AA& = MessageBox("Value From 2 to 11 Required", "", 0)
21.                 END IF

Very streamlined, Richard!

BTW: I see you're validating input between 2 and 11. Have you considered turning this TextBox into a NumericOnlyTextBox? At design time they're two different controls:

...but internally it's just a TextBox with a special property set. Somewhere in __UI_OnLoad add this:

Code: QB64: [Select]

1. Control(HowManyBodiesTB).NumericOnly = __UI_NumericWithBounds
2. Control(HowManyBodiesTB).Min = 2
3. Control(HowManyBodiesTB).Max = 11

Then you can also access its numeric value directly with Control(HowManyBodiesTB).Value.

Title: Re: @Qwerkey: What about NumericTextBoxes?
Post by: Qwerkey on August 31, 2018, 11:06:18 am

Quote from: FellippeHeitor on August 31, 2018, 10:27:26 am

Have you considered turning this TextBox into a NumericOnlyTextBox?

Er, no.  The InForm student was too stupid to know that this can be done.  When you've convinced Terry Ritchie* to create a full on-line Tutorial for InForm, this student will be the class dunce.  In the meantime, I'll look into what you've recommended here, thank you - I have lots of textboxes which have upper & lower limits.  I get more & more amazed with InForm: you seem to have thought of everything.

* He's very good at tutorials, as we know.

Richard

Title: Re: @Qwerkey: What about NumericTextBoxes?
Post by: Qwerkey on August 31, 2018, 11:16:53 am

... Most of my inputs are celestial quantities, requiring exponentiation.  Numeric-only doesn't allow this, unfortunately.  Richard

Text Only | Text with Attachments