[Gambas-user] How top clearing a readonly textbox

[Jussi Lahtinen]

It works, but I'm not sure it is a very good way. It might be better to tag
or group the controls you want to clear.
You can, for example, put into .Tag something like "ToBeCleared ToBeRemoved
ToBeWhatever", etc and use it. It has more usage for less code.

Jussi

On Sat, Nov 26, 2022 at 5:34 AM BB <adamnt42 at gmail.com> wrote:

> 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>
> 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> 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> 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/78b1f718/attachment.htm>