[Gambas-user] How top clearing a readonly textbox

[BB]

Excellent! Thank you. Simple and works no matter what the control is.

cheers

bruce

On 26/11/22 1:59 pm, Jussi Lahtinen wrote:
> Sorry, this is correct:
> bReadOnly = False
> Try bReadOnly = ctl.ReadOnly
>
> If bReadOnly = False Then
> Try ctl.Clear
> Endif
>
>
>
> On Sat, Nov 26, 2022 at 5:27 AM Jussi Lahtinen 
> <jussi.lahtinen at gmail.com <mailto:jussi.lahtinen at gmail.com>> wrote:
>
>     Try bReadOnly = ctl.ReadOnly
>
>     If bReadOnly = False Then
>     Try ctl.Clear
>     Endif
>
>     Jussi
>
>
>     On Sat, Nov 26, 2022 at 5:17 AM BB <adamnt42 at gmail.com
>     <mailto:adamnt42 at gmail.com>> wrote:
>
>         Yeah, I over simplified my problem. I'm trying to clear a form
>         by going through all the controls and trying to "clear" them.
>
>         As in
>
>              For Each ctl as Object in Me.controls   ' (ctl has to be an Object as it could be a control or it could be a container.)
>                  Try ctl.Clear
>              Next
>
>         Since I don't know what the ctl is I cant check if its
>         read-only before trying to clear it. As in I can't do
>
>              If ctl.ReadOnly Then Continue
>
>         and obviously not
>
>              Try If ctl.ReadOnly Then Continue
>
>         I know it could be done with a lot of complex checking for
>         what type of control each one is but I was trying to avoid that.
>
>              Dim thisTextBox as TextBox
>              Dim thisTextArea as TextArea
>              ' etc etc etc etc
>         ...
>              For Each ctl as Object in Me.Controls
>         	If ctl Is TextBox Then
>         		thisTextBox=ctl
>         		if not thisTextBox.ReadOnly then thisTextBox.Clear
>         	Else If ctl Is TextArea
>         		etc
>         	Else If ctl Is MyCustomTextBox
>         		etc
>         	Else If ctl Is etc etc etc etc for up to 3 gazillion control types and custom control types
>         		
>
>         I have attached a "simplified" demo. The actual case is a very
>         complex form with lots of controls including custom controls.
>
>         bruce
>
>         On 26/11/22 12:51 pm, Jussi Lahtinen wrote:
>>         Might be simplest to check the read only status before
>>         calling Clear().
>>         But this surely works:
>>         Dim sText As String = TextBox1.Text
>>         TextBox1.Clear
>>         TextBox1.Text = sText
>>
>>         The method _Change() is called after the change is done to
>>         the .Text thus it is too late to stop.
>>         Not sure if all this is wanted behavior.
>>
>>
>>         Jussi
>>
>>
>>
>>         On Sat, Nov 26, 2022 at 3:50 AM BB <adamnt42 at gmail.com
>>         <mailto:adamnt42 at gmail.com>> wrote:
>>
>>             As the help says, Textbox.Clear() "Clears the text".
>>             However, in the
>>             case where the textbox is ReadOnly then I don't want this
>>             to happen.
>>
>>             I've tried several ways* but can't stop it. Any clues?
>>
>>             b
>>
>>             * overriding Clear, using Stop Event, even saving the
>>             original text and
>>             re-setting it
>>
>
>         ----[ http://gambaswiki.org/wiki/doc/netiquette
>         <http://gambaswiki.org/wiki/doc/netiquette> ]----
>
>
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20221126/6a8dbf96/attachment-0001.htm>