[Gambas-user] Me.Close not working as expected
bagonergi at gmail.com
Fri Jul 2 00:18:45 CEST 2021
to understand what I wanted to suggest, you can try this code.
You need a project with an empty class Class1 and a Form with 2 buttons:
Private $bStop As Boolean
Public Sub Button1_Click()
$bStop = True
Public Sub Form_Open()
Dim hClass As New Class1
If $bStop Then Break
Public Sub Button2_Click()
in console with Button2 I get:
gbx3 : warning: circular references detected:
gbx3: 1 Class1
gbx3: 1 FMain
gbx3 : warning: 4 allocation(s) non freed.
If you write Return instead of Quit, the program continues and does not
-------------- next part --------------
An HTML attachment was scrubbed...
More information about the User