Encountered a confusing error message? Please post here

[agraham]

I haven't tested this in details but if I omit the "Then" keyword for a multiline "Else If" statement I get no error but the code does not execute properly.

[Cableguy]

Yes, I have had this same behavior myself..
Anothor one is, in WinMo 6.6, if for any reason an exception is thrown, and, since I do not have the suplementary messages pack installed, I cannot press any other key, other than close the basic4ppc ide, If I try to re-launch the B4Ppc IDE it does Nothing, No error, No IDE, Nothing happens...

[Cableguy]

Another Error that should NOT be happening...

If a Timer is created programatically, and we try to "clean" the code by setting all the props and linking the event, if the event sub is not codded yet it will error...

Sub Whatever
.......
For a = 1 to 3
x= "Timer" & x
AddTimer(x)
Control(x).Enabled = False
Control(x).Interval = 500
AddEvent(x,Tick,x & "_Tick"
Next
........
End Sub

Sub Timer1_Tick '----> If this sub doesnt exist, an NullRef Exception is thrown
End Sub

Yes I know that eventually the event will be added as we will need it, but sometimes I run my code on a "Step-to-Step" basis, and I may have some of the added events still NOT present...
I think that this should not throw an error, but only some "Event missing" notification, as the error prevents all subsequent code from being processed.

[Cableguy]

And another one...

For y=1 To 7
    For x=0 To 5
        AddImageButton("Form1","IB"&x&y,15+(y*25),70+(x*25),24,24)
        Control("IB"&x&y,ImageButton).Transparent=True
    Next x
Next y

This creates a 7x6 grid of ImageButtons, and throws NO erros on the IDE...
BUT, if I try to compile....Well, see the error message in the picture below.

[Zenerdiode]

Originally Posted by Cableguy

Sub Whatever
.......
For a = 1 to 3
<font color="Red">x= "Timer" & x</font>
AddTimer(x)
Control(x).Enabled = False
Control(x).Interval = 500
AddEvent(x,Tick,x & "_Tick"
Next
........
End Sub

Sub Timer1_Tick '----> If this sub doesnt exist, an NullRef Exception is thrown
End Sub

Surely that should be;
x= "Timer" & a

[Cableguy]

That was just a misstype, as I didn't copy/paste the code...
the code works fine IF the tick sub is present, but I also found out that, standart events for each control do NOT HAVE TO BE ADDED with AddEvent, even if the control itself was added programatically...

[Erel]

You are missing the last parameter in AddImageButton. The Text parameter.

AddImageButton("Form1","IB"&x&y,15+(y*25),70+(x*25),24,24,"")

[epsharp]

Sub Globals
End Sub

Sub App_Start
Form1.Show
frm = "Form1"
Msgbox(Control(frm,Form).Height)
AddPanel(Control(frm,Form),"Panel1",1,1,237,300)
End Sub

The MsgBox returned 268 which is correct.

The AddPanel generated an error "Index Out Of Range"



Regards

Ed Sharp

NB: In the real world, I was trying to add a panel to the main form from a module

[Erel]

AddPanel expects the form name as the first parameter:

AddPanel(frm,"Panel1",1,1,237,300)

[taximania]

My code works in the desktop IDE
It compiles for desktop OK but throws this error every time the sub is called.

Unable to cast object of type
'Dbasic.EnhancedControls.CEnhancedLabel' to type 'Dbasic.IText'.
Continue

Here's Sub killlabel

Sub killlabel(y)
Control("Label" & y).text=""
End Sub

I'm a bit confused.
It worked fine before V6.80