Invalid Gadget Handle

Übersicht BlitzBasic BlitzPlus

Neue Antwort erstellen

 

TheWormKill

Betreff: Invalid Gadget Handle

BeitragMi, Jan 23, 2013 11:25
Antworten mit Zitat
Benutzer-Profile anzeigen
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]

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

BeitragMi, Jan 23, 2013 12:36
Antworten mit Zitat
Benutzer-Profile anzeigen
versuchs mal so... habs nich getestet

Code: [AUSKLAPPEN]
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]
Function add_object(parameter$, Listbox)

Neue Antwort erstellen


Übersicht BlitzBasic BlitzPlus

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group