#Button_5 spinnt rum und löscht den string
Verfasst: 17.11.2006 21:55
Hi, ich kann das nicht so gut beschreiben aber ich versuchs. 
Mein problem ist folgendes.
Wen ich z.b. Button_1 bis Button_4 anklicke, dan werden die zahlen 1 bis 4 zu einem String hinzugefügt. Aber wen ich anschliesend Button_5
anklicke dan wird der gesamte string gelöscht und nur die 5 hinzugefügt.
hier ist mein code
obwohl es der gleiche code ist wie bei den andern #Buttons wird der String nur bei dem #Button_5 "gelöscht" 
hoffe da kann mir wer weiterhelfen
Mein problem ist folgendes.
Wen ich z.b. Button_1 bis Button_4 anklicke, dan werden die zahlen 1 bis 4 zu einem String hinzugefügt. Aber wen ich anschliesend Button_5
anklicke dan wird der gesamte string gelöscht und nur die 5 hinzugefügt.
hier ist mein code
Code: Alles auswählen
Enumeration
#Window_0
EndEnumeration
;- Gadget Constanten
;
Enumeration
#Frame3D_0
#Button_0
#Button_1
#Button_2
#Button_3
#Button_4
#Button_5
#Button_6
#Button_7
#Button_8
#Button_9
#Button_10
#String_0
#Listview_0
#Hyperlink_0
EndEnumeration
If OpenWindow(#Window_0, 216, 0, 502, 502, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Gadgets Test")
If CreateGadgetList(WindowID())
Frame3DGadget(#Frame3D_0, 10, 10, 480, 480, "Gadget Tests")
ButtonGadget(#Button_0, 350, 150, 40, 40, "0")
ButtonGadget(#Button_1, 350, 110, 40, 40, "1")
ButtonGadget(#Button_2, 390, 110, 40, 40, "2")
ButtonGadget(#Button_3, 430, 110, 40, 40, "3")
ButtonGadget(#Button_4, 350, 70, 40, 40, "4")
ButtonGadget(#Button_5, 390, 70, 40, 40, "5")
ButtonGadget(#Button_6, 430, 70, 40, 40, "6")
ButtonGadget(#Button_7, 350, 30, 40, 40, "7")
ButtonGadget(#Button_8, 390, 30, 40, 40, "8")
ButtonGadget(#Button_9, 430, 30, 40, 40, "9")
ButtonGadget(#Button_10, 390, 150, 80, 40, "Enter")
StringGadget(#String_0, 230, 190, 100, 20, "")
ListViewGadget(#Listview_0, 230, 40, 100, 140)
EndIf
Repeat
EventID=WaitWindowEvent()
If EventID=#PB_Event_CloseWindow
Quit=1
EndIf
If EventID=#PB_Event_Gadget
If EventGadgetID()=#Button_0
Zahl$=Str(0)
ZahlString$+Str(0)
AddGadgetItem(#Listview_0,-1,Zahl$)
EndIf
If EventGadgetID()=#Button_1
Zahl$=Str(1)
ZahlString$+Str(1)
AddGadgetItem(#Listview_0,-1,Zahl$)
EndIf
If EventGadgetID()=#Button_2
Zahl$=Str(2)
ZahlString$+Str(2)
AddGadgetItem(#Listview_0,-1,Zahl$)
EndIf
If EventGadgetID()=#Button_3
Zahl$=Str(3)
ZahlString$+Str(3)
AddGadgetItem(#Listview_0,-1,Zahl$)
EndIf
If EventGadgetID()=#Button_4
Zahl$=Str(4)
ZahlString$+Str(4)
AddGadgetItem(#Listview_0,-1,Zahl$)
EndIf
If EventGadgetID()=#Button_5
Zahl$=Str(5)
ZahlString$=Str(5)
AddGadgetItem(#Listview_0,-1,Zahl$)
Debug ZahlString$
EndIf
If EventGadgetID()=#Button_6
Zahl$=Str(6)
ZahlString$+Str(6)
AddGadgetItem(#Listview_0,-1,Zahl$)
EndIf
If EventGadgetID()=#Button_7
Zahl$=Str(7)
ZahlString$+Str(7)
AddGadgetItem(#Listview_0,-1,Zahl$)
EndIf
If EventGadgetID()=#Button_8
Zahl$=Str(8)
ZahlString$+Str(8)
AddGadgetItem(#Listview_0,-1,Zahl$)
EndIf
If EventGadgetID()=#Button_9
Zahl$=Str(9)
ZahlString$+Str(9)
AddGadgetItem(#Listview_0,-1,Zahl$)
EndIf
If EventGadgetID()=#Button_10
MessageRequester("Info",ZahlString$,0)
If Len(ZahlString$)=8
Leeren$=Space(1)
ZahlString$=Leeren$
EndIf
EndIf
;...
EndIf
Until Quit=1
EndIf
End
hoffe da kann mir wer weiterhelfen
