Instantly downloaded and tried out, if my current project runs...
There's a strange Bug which I can repeat to occur but I can not write something to make it occur on purpose.
I have a in the meantime really large project that consists of 10 Units - and even if I'm up to release the sourcecode to all users for their personal use i won't load up my whole project here since it's undone. The Bug is in the following Sub:
Sub GADGET_ClickMessage(ByVal Index As Long)
sDebug = "Click Message " + Str$(Index)
' next line causes Error 18
GAGDET_Collapse(Index)
End Sub
The Sub Gadget_Collapse(Byval Index as Long) exists, Name is written in the same manner - even checked for U+L-Case-
my program crashes now if I click on my (self created) MsgBox and complains the Subs name as an unknown keyword.
But the sub Gadget_Collapse() exists and works perfect when called from other parts of script. I also tried to replace the line with the following
Call GAGDET_Collapse(Index)
' and also
Call_IfExists GAGDET_Collapse(Index)
So it makes me wonder especially for the last Version - it should not throw Error 18 (Unknown Keyword). So the curios is: the calling sub is inside the same Unit-File as the called one.
I could send you my project for study if you wish since I can not continue on this part until I got the problem solved. In the meantime nothing will occur if someone clicks my Msgbox and User has explicitely to use the yes/no/Ok/cancel etc. Buttons or just to click into the screen to close the box now since it can not close itself
Bookmarks