Button (CheckBox/RadioButton) geht nicht in Tabber (Karte)

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

Ruediger

Betreff: Button (CheckBox/RadioButton) geht nicht in Tabber (Karte)

BeitragMi, Jul 13, 2005 17:10
Antworten mit Zitat
Benutzer-Profile anzeigen
Wird die CheckBox angeklickt in Karte 1, rührt sich nix!
Bei Karte 2 und 3 ebenfalls.
Warum? Wo ist der Wurm?

Die RadioButton A bis C werden nichrt ausgewertet und
trotzdem kann sieht man eine Reaktion.
Die Checkbox links ober funzt ja auch!?



CODE:

;Fenster erstellen
Window3 = CreateWindow("Fenster3",50,40,400,200,Window1,1+2+8+16+32)

Global w = ClientWidth(Window3)
Global h = ClientHeight(Window3)

Global Butt = 1
Global Check = 2
Global Radio = 3


checkBox = CreateButton("Checkbox",8,8,100,30,window3, Check+65536)

; Radiobutton müssen in die Gruppe
gruppe = CreatePanel(4,30,180,100,window3,0)
radio1 = CreateButton("Radiobutton A",4,8,120,12,gruppe, Radio +65536)
radio2 = CreateButton("Radiobutton B",4,24,120,12,gruppe, Radio +65536)
radio3 = CreateButton("Radiobutton C",4,40,120,12,gruppe, Radio +65536)

; Tabber müssen in die Gruppe
tabellenGruppe = CreatePanel(120,10,w-40,h-40,window3,0+65536)
KarteiKarten = CreateTabber(10,4,200,100, tabellenGruppe)
AddGadgetItem KarteiKarten, "Karte 1"
AddGadgetItem KarteiKarten, "Karte 2"
AddGadgetItem KarteiKarten, "Karte 3"
AddGadgetItem KarteiKarten, "Karte 4"


; CheckBoxen funktionieren nicht in Tabber !!!
taste1 = CreateButton("1", 16,28,40,20,tabellenGruppe, Check)
taste2 = CreateButton("2", 16,48,40,20,tabellenGruppe, Check)
taste3 = CreateButton("3", 16,68,40,20,tabellenGruppe, Check)

;erst mal verstecken
HideGadget taste2
HideGadget taste3
ShowGadget taste1

cancel = CreateButton("Ende",8,160,100,30,window3,1+65536)


Repeat

While Not KeyHit(1)
ereignis = WaitEvent()

If ereignis =$401 Then
quelle = EventSource()
Select quelle
Case cancel
End

Case checkBox
If ButtonState(checkBox)=0 Then SetGadgetText checkBox,"aus"
If ButtonState(checkBox)=1 Then SetGadgetText checkBox,"ein"

Case KarteiKarten

Select SelectedGadgetItem (KarteiKarten)
; Karteikarten werden von 0 an gezählt !!!
Case 0
HideGadget taste2
HideGadget taste3
ShowGadget taste1

Case 1
HideGadget taste1
HideGadget taste3
ShowGadget taste2

Case 2
HideGadget taste1
HideGadget taste2
ShowGadget taste3

Case 3
HideGadget taste1
HideGadget taste2
HideGadget taste3

End Select

Case taste1
If ButtonState(taste1)=0 Then SetGadgetText taste1,"aus"
If ButtonState(taste1)=1 Then SetGadgetText taste1,"ein"

Case taste2
If ButtonState(taste1)=0 Then SetGadgetText taste2,"aus"
If ButtonState(taste1)=1 Then SetGadgetText taste2,"ein"

Case taste3
If ButtonState(taste1)=0 Then SetGadgetText taste3,"aus"
If ButtonState(taste1)=1 Then SetGadgetText taste3,"ein"

Default ;
End Select
EndIf
If ereignis = $803 End
Wend
Forever

Rob_

BeitragMi, Jul 13, 2005 17:43
Antworten mit Zitat
Benutzer-Profile anzeigen
1. ich hab keine ahung von BlitzPlus aber
2. so wie du da den anfang gemacht hast, glaubt man das man es ausprobiern kann und sich freuen kann. somit zur
3. wenn du eine frage hast, stell sie, genauer!
 

Ruediger

BeitragDo, Jul 14, 2005 6:52
Antworten mit Zitat
Benutzer-Profile anzeigen
Einfach starten und auf KARTE 1 bis Karte 3 und dann auf
die Checkbox klicken, in der Karte.
Tut nix, kein Haken drin.

Hip Teen

BeitragDo, Jul 14, 2005 14:18
Antworten mit Zitat
Benutzer-Profile anzeigen
OK, also, ich habs zum laufen gekriegt, frag mich aber nicht nach dem wieso und warum, ich weiß es selber nicht so genau.

Also, du musst einmal das Panel tabellenGruppe vor dem anderen Panel (dem Panel "gruppe") erstellen, das liegt daran, dass TabellenGruppe von Gruppe überdeckt wird. Alternativ machste das Panel gruppe nur so groß, wie du es brauchst Wink
Und dann musst du noch die Checkboxen nicht in die Gruppe tabellenGruppe stecken, sondern in die Gruppe "KarteiKarten". Dann funktioniert alles so, wie es soll Very Happy
Spruch der Woche: "Ahh, ein neues Gesicht?!" - "Nein, das hab ich schon länger"
 

Ruediger

BeitragFr, Jul 15, 2005 9:04
Antworten mit Zitat
Benutzer-Profile anzeigen
Danke, dassss war's ! Smile

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group