[Gambas-user] Me.Close not working as expected
bb
adamnt42 at gmail.com
Thu Jul 1 19:04:26 CEST 2021
On Thu, 2021-07-01 at 17:37 +0100, Charlie Ogier 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 ]----
You are just closing the form, not the executing instance of the
project.
If you really want to "kill" the execution, then use Quit.
More information about the User
mailing list