[Gambas-user] Me.Close not working as expected

[Bruce Steers]

On Thu, 1 Jul 2021 at 17:59, Charlie Ogier <charlie at cogier.com> wrote:

> Hi,
>
> Can you try this code and see if you experience my problem. The program
> should end on clicking the button, but it doesn't close until the end of
> the 'Sub'.
>
> Thanks,
>
> Charlie
>
> ***Code***
> Button1 As Button
>
> Public Sub Form_Open()
>
>    With Me
>      .Height = 400
>      .Width = 500
>      .Padding = 5
>      .Center
>    End With
>
>    With Button1 = New Button(Me) As "Button1"
>      .W = 100
>      .H = 28
>      .X = 10
>      .Y = 10
>      .Text = "&Click me!"
>    End With
>
> End
>
> Public Sub Button1_Click()
>
>    Dim iLoop As Integer
>
>    Me.Close '' Shouldn't the program stop here?
>
>    For iLoop = 0 To 1000
>      Print Str(iLoop) & " Hello"
>    Next
>
> End
>
> ***End code***
>
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
>

Maybe it's because you're inside an event already.
Maybe Button1_Click event has to finish before the form can close.

so does this work as expected..

Me.Close  ' trigger close event
Return  ' exit the current event

BruceS
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20210701/a24fa587/attachment-0001.htm>