Button verlinkung?

[conman]

Hallo,

ich bin absolut neu bei B4A und muss sagen es gefällt mir sehr!

Nun such ich aber schon seit uungefähr 5 Stunden nach einer möglichkeit einen Button den ich angelegt habe so zu verlinken das wenn ich drauf drück sich ein neues layer öffnet das ich gemacht habe.
Ich habe nichts gefunden im Netz dazuLiegt vllt. an der Uhrzeit?!

Also Beispiel:

auf dem main liegen 2 Buttons "about" und "produkts"
beides Buttons die eben Bilder sind.
Nun soll wenn ich auf About drücke sich das neue Layer namens "about" öffnen und wiedergeben was ich dafür vorgesehen habe.

wie muss ich hierfür den Code einsetzen?

Tut mir echt leid für die wahrscheinlich sehr doofe Frage

[rbsoft]

Was meinst Du mit Layer - ein Panel oder eine Activity (Form)?

Rolf

[klaus]

Schau dir mal im Beginner's Guide, die Kapitel 12.1 und 12.2 an, da sind Beispiele mit verschiedenen Userinterfaces drin.

Beste Grüsse.

[conman]

Also auf Anhieb würde ich sagen eine neue activity will ich damit ansteuern.

@ Klaus - da habe ich geschaut aber irgendwie nicht das richtige gefunden. Ich hab es mir mal ausgedruckt :-p

[rbsoft]

Dann schau Dir doch mal diesen Thread an:

http://www.basic4ppc.com/forum/basic...html#post38609

Code-Beispiel ist dabei.

Rolf

[klaus]

Du kannst auch hier Different examples with two layouts rein schauen.

Beste Grüsse.

[rbsoft]

Yep, der Link ist noch ausführlicher!

Rolf

[conman]

So ich hab jetzt viel probiert und hab es echt hinbekommen. Dazu muss ich echt sagen das die Hilfe hier in diesem Forum echt aussergewöhnlich gut ist!

Ich trau mich fast garnicht zu fragen, aber ich hab rumgesucht um einen Codeschnippel zu finden das ich die "Back-Taste" bedienen kann, damit das App nicht komplett ausgeht, sondern nur eins zurück.

Sub Activity_KeyPress (KeyCode As Int) As Boolean
If Keycode = KeyCodes.KEYCODE_BACK Then
Return True
Else
Return False
End If
End Sub

Ich hab dies hier versucht, aber leider ohne den Erfolg den wollte, das App geht immernoch komplett close.

Also wenn ich ganz lieb frag hilft mir jemand?

[rbsoft]

Dein Code ist eigentlich korrekt und funktioniert so auch bei mir. Schau mal, ob Du ihn auch in der richtigen Activity hast (wenn Du mit mehr als einer arbeitest).

Rolf

[conman]

Nun, ich habe es jetzt an sogut wie jeder Stelle probiert. Das Programm geht mittlerweile auch nicht mehr aus, erster Erfolg. Nur bin ich eben ratlos wo genau ich schlussendlich diesen Code einfügen sollte.

Sub Process_Globals


End Sub

Sub Globals
Dim btnabout, btnprodukte, btnangebote, btngutscheine, btnback As Button
End Sub


Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
End Sub


Sub Activity_Resume
End Sub


Sub Activity_Pause (UserClosed As Boolean)
End Sub


Sub btnabout_Click
RemoveViews
Activity.LoadLayout("about")
End Sub

Sub btnprodukte_Click
RemoveViews
Activity.LoadLayout("produkte")
End Sub

Sub RemoveViews
Dim i As Int

For i=Activity.NumberOfViews-1 To 0 Step -1
Activity.RemoveViewAt(i)
Next
End Sub

Vereinfacht der Quellcode