Invalid Gadget Handle

Übersicht

BlitzBasic

BlitzPlus

	TheWormKill Betreff: Invalid Gadget Handle	Mi, Jan 23, 2013 11:25 Antworten mit Zitat
Hallo, ich hätte zu B+ eine Frage: Wenn ich den Quellcode unen ausführe, dann kriege ich die Fehlermeldung "Invalid gadget Handle" zurückgeliefert, sehe den Grund dafür jedoch nicht. Code: [AUSKLAPPEN] [EINKLAPPEN] win = CreateWindow("Wegeditor", 100, 100, 640, 480, 0, 1+2+8) savebutton = CreateButton("Save", 10, 370, 100, 50, win, 1) rdbutton = CreateButton("Drehung Rechts", 10,10,100,50,win,1) ldbutton = CreateButton("Drehung Links", 10,80,100,50,win,1) vbutton = CreateButton("Bewegung Vorwärts", 10,150,100,50,win,1) listbox = CreateListBox (350, 10, 250, 400, win, 0) Dim liste(50) Function save() pfad$ = RequestDir() ein_string$="xy" CreateDir(pfad+"\"+ein_string) ChangeDir(pfad+"\"+ein_string) output_file = WriteFile(ein_string+".ino") CloseFile(output_file) End Function Function add_object(parameter$) DebugLog listbox AddGadgetItem listbox, parameter End Function Repeat Select WaitEvent() Case $803 End Case $401 h = EventSource() SetStatusText win,"Event: Gadget ("+Str(h)+")" If h=savebutton save() ElseIf h=rdbutton add_object("Drehung Rechts") ElseIf h=ldbutton add_object("Drehung Links") ElseIf h=vbutton add_object("Bewegung Vorwärts") EndIf End Select Forever Hoffe, jemand von euch kann mir helfen. Danke im Voraus ich merke nun, dass ich ein Global vergessen habe (in der Definition der listbox) Sorry!

TheWormKill

Betreff: Invalid Gadget Handle

Mi, Jan 23, 2013 11:25
Antworten mit Zitat

Hallo,
ich hätte zu B+ eine Frage:
Wenn ich den Quellcode unen ausführe, dann kriege ich die Fehlermeldung "Invalid gadget Handle" zurückgeliefert, sehe den Grund dafür jedoch nicht.
Code:

win = CreateWindow("Wegeditor", 100, 100, 640, 480, 0, 1+2+8)
savebutton = CreateButton("Save", 10, 370, 100, 50, win, 1)
rdbutton = CreateButton("Drehung Rechts", 10,10,100,50,win,1)
ldbutton = CreateButton("Drehung Links", 10,80,100,50,win,1)
vbutton = CreateButton("Bewegung Vorwärts", 10,150,100,50,win,1)
listbox = CreateListBox (350, 10, 250, 400, win, 0)
Dim liste(50)

Function save()
pfad$ = RequestDir()
ein_string$="xy"
CreateDir(pfad+"\"+ein_string)
ChangeDir(pfad+"\"+ein_string)
output_file = WriteFile(ein_string+".ino")
CloseFile(output_file)

End Function

Function add_object(parameter$)
DebugLog listbox
AddGadgetItem listbox, parameter

End Function

Repeat
Select WaitEvent()
   Case $803
      End
   Case $401
      h = EventSource()
      SetStatusText win,"Event: Gadget ("+Str(h)+")"
      If h=savebutton
         save()
      ElseIf h=rdbutton
         add_object("Drehung Rechts")
      ElseIf h=ldbutton
         add_object("Drehung Links")
      ElseIf h=vbutton
         add_object("Bewegung Vorwärts")
      EndIf
End Select
Forever

Hoffe, jemand von euch kann mir helfen.
Danke im Voraus
ich merke nun, dass ich ein Global vergessen habe (in der Definition der listbox) Sorry!

	Mathias-Kwiatkowski	Mi, Jan 23, 2013 12:36 Antworten mit Zitat
versuchs mal so... habs nich getestet Code: [AUSKLAPPEN] [EINKLAPPEN] Global win = CreateWindow("Wegeditor", 100, 100, 640, 480, 0, 1+2+8) Global savebutton = CreateButton("Save", 10, 370, 100, 50, win, 1) Global rdbutton = CreateButton("Drehung Rechts", 10,10,100,50,win,1) Global ldbutton = CreateButton("Drehung Links", 10,80,100,50,win,1) Global vbutton = CreateButton("Bewegung Vorwärts", 10,150,100,50,win,1) Global listbox = CreateListBox (350, 10, 250, 400, win, 0) Dim liste(50) Function save() pfad$ = RequestDir() ein_string$="xy" CreateDir(pfad+"\"+ein_string) ChangeDir(pfad+"\"+ein_string) output_file = WriteFile(ein_string+".ino") CloseFile(output_file) End Function Function add_object(parameter$) DebugLog listbox AddGadgetItem listbox, parameter End Function Repeat Select WaitEvent() Case $803 End Case $401 h = EventSource() SetStatusText win,"Event: Gadget ("+Str(h)+")" If h=savebutton save() ElseIf h=rdbutton add_object("Drehung Rechts") ElseIf h=ldbutton add_object("Drehung Links") ElseIf h=vbutton add_object("Bewegung Vorwärts") EndIf End Select Forever er findet das gadget im type nicht weil du es nicht mitgesendet hast. Global bedeutet das er im ganzen "programm" die "listbox" findet man kann es aber auch weiterleiten in einer funktion cs so Code: [AUSKLAPPEN] [EINKLAPPEN] Function add_object(parameter$, Listbox)

Mathias-Kwiatkowski

Mi, Jan 23, 2013 12:36
Antworten mit Zitat

versuchs mal so... habs nich getestet

Code:

Global win = CreateWindow("Wegeditor", 100, 100, 640, 480, 0, 1+2+8)
Global savebutton = CreateButton("Save", 10, 370, 100, 50, win, 1)
Global rdbutton = CreateButton("Drehung Rechts", 10,10,100,50,win,1)
Global ldbutton = CreateButton("Drehung Links", 10,80,100,50,win,1)
Global vbutton = CreateButton("Bewegung Vorwärts", 10,150,100,50,win,1)
Global listbox = CreateListBox (350, 10, 250, 400, win, 0)
Dim liste(50)

Function save()
pfad$ = RequestDir()
ein_string$="xy"
CreateDir(pfad+"\"+ein_string)
ChangeDir(pfad+"\"+ein_string)
output_file = WriteFile(ein_string+".ino")
CloseFile(output_file)

End Function

Function add_object(parameter$)
DebugLog listbox
AddGadgetItem listbox, parameter

End Function

Repeat
Select WaitEvent()
Case $803
End
Case $401
h = EventSource()
SetStatusText win,"Event: Gadget ("+Str(h)+")"
If h=savebutton
save()
ElseIf h=rdbutton
add_object("Drehung Rechts")
ElseIf h=ldbutton
add_object("Drehung Links")
ElseIf h=vbutton
add_object("Bewegung Vorwärts")
EndIf
End Select
Forever

er findet das gadget im type nicht weil du es nicht mitgesendet hast.

Global bedeutet das er im ganzen "programm" die "listbox" findet man kann es aber auch weiterleiten in einer funktion

cs so
Code:

Function add_object(parameter$, Listbox)