Button klick wird nicht ausgeführt

  • Antworten:15
9
Frank Neumann
  • Forum-Beiträge: 178

26.11.2012, 11:49:22 via Website

HALLO,

Activity Main Code: ruft nach erfolgreichen Verbindung die Seite 01 auf. (Soweit in Ordnung)
1'Activity module
2Sub Process_Globals
3 Dim Socket1 As Socket
4 Dim OutputStream1 As OutputStream
5
6
7End Sub
8
9Sub Globals
10End Sub
11
12Sub Activity_Create(FirstTime As Boolean)
13
14 Activity.LoadLayout("main")
15 Socket1.Initialize("Socket1")
16
17End Sub
18
19Sub Activity_Resume
20
21End Sub
22
23Sub Activity_Pause (UserClosed As Boolean)
24If UserClosed Then
25
26 Socket1.Close
27
28 End If
29End Sub
30
31Sub Socket1_Connected (Successful As Boolean)
32
33If Successful=True Then
34ToastMessageShow("Verbindung besteht",False)
35OutputStream1 = Socket1.OutputStream
36RemoteWrite("BAG")
37Activity.LoadLayout("seite01")
38'Else
39'ToastMessageShow("Verbindungsfehler",False)
40'Socket1.Close
41End If
42
43End Sub
44
45
46Sub Button1_Click
47 Socket1.Connect("192.168.178.178" , 2011, 2000)
48
49End Sub
50
51Sub Button2_Click
52 Socket1.Close
53 ExitApplication
54
55End Sub

Activity Seite01 Code:
1'Activity module
2Sub Process_Globals
3
4End Sub
5
6Sub Globals
7
8End Sub
9
10Sub Activity_Create(FirstTime As Boolean)
11
12End Sub
13
14Sub Activity_Resume
15
16End Sub
17
18Sub Activity_Pause (UserClosed As Boolean)
19
20End Sub
21
22
23Sub Button2_Click
24 Main.Socket1.Close
25 ExitApplication
26End Sub
27
28Sub Button1_Click
29
30Msgbox("Hallo Welt","") <-------------------- Wird nicht angezeigt WARUM???
31
32End Sub

Beim Klick auf das Button1 auf der Seite01, wird die MSGBOX nicht angezeigt.

— geändert am 26.11.2012, 11:50:15

grüße aus Mittelfranken

Antworten
9
Frank Neumann
  • Forum-Beiträge: 178

26.11.2012, 11:54:50 via Website

Jetzt habe ich noch was entdeckt.

Der Button1 auf der Seite01, greift beim klick auf das Sub Button1_Click auf der Main Code Bereich.
wie kann ich das so machen, das jedes Activity sein eigenes Code bereich verwendet.?

grüße aus Mittelfranken

Antworten
Carsten M. 80
Carsten M.
  • Forum-Beiträge: 33.204

26.11.2012, 11:59:55 via Website

Frank Neumann
Jetzt habe ich noch was entdeckt.

Der Button1 auf der Seite01, greift beim klick auf das Sub Button1_Click auf der Main Code Bereich.
wie kann ich das so machen, das jedes Activity sein eigenes Code bereich verwendet.?
Gib den Buttons doch erstmal eindeutige, klare Namen.

Spätestens beim dritten Button, der "Button1" heißt, blickt doch keiner mehr durch...!?

Für die Mitleser: Es geht hier um Basic4Android... nicht wundern!

Herzliche Grüße

Carsten

— geändert am 26.11.2012, 12:12:30

Ich komm' mir langsam vor wie jemand, der ich bin // #cäthe

Antworten
9
Frank Neumann
  • Forum-Beiträge: 178

26.11.2012, 17:32:10 via Website

Hi Carsten,

ich habe auch andere Namen gegeben wie z.B. Button123 Trotzdessen wird der MSGBOX nicht angezeigt.
Und ausserdem dachte ich, jedes layout darf doch sein eigenes Button1 haben oder etwa nicht?

Für die Mitleser: Es geht hier um Basic4Android... nicht wundern! :-) :-) :-)

Gruß
Frank

grüße aus Mittelfranken

Antworten
9
Frank Neumann
  • Forum-Beiträge: 178

26.11.2012, 17:50:21 via Website

So jetzt habe ich mal so gemacht und trotzdem klappt das nicht.
Carsten klappt es bei dir, wenn du mien code bei dir kopierst?

Code Main
1'Activity module
2Sub Process_Globals
3 Dim Socket1 As Socket
4 Dim OutputStream1 As OutputStream
5
6
7End Sub
8
9Sub Globals
10End Sub
11
12Sub Activity_Create(FirstTime As Boolean)
13
14 Activity.LoadLayout("main")
15 Socket1.Initialize("Socket1")
16
17End Sub
18
19Sub Activity_Resume
20
21End Sub
22
23Sub Activity_Pause (UserClosed As Boolean)
24If UserClosed Then
25
26 Socket1.Close
27
28 End If
29End Sub
30
31Sub Socket1_Connected (Successful As Boolean)
32
33If Successful=True Then
34ToastMessageShow("Verbindung steht",False)
35OutputStream1 = Socket1.OutputStream
36codlar.RemoteWrite("BAG")
37Activity.LoadLayout("seite01")
38Else
39ToastMessageShow("Verbindungsfehler",False)
40Socket1.Close
41End If
42
43End Sub
44
45Sub schliessen_Click
46Socket1.Close
47ExitApplication
48End Sub
49
50Sub verbindungherstellen_Click
51Socket1.Connect("192.168.178.178" , 2011, 2000)
52End Sub


Code Seite01
1'Activity module
2Sub Process_Globals
3
4End Sub
5
6Sub Globals
7
8End Sub
9
10Sub Activity_Create(FirstTime As Boolean)
11
12End Sub
13
14Sub Activity_Resume
15
16End Sub
17
18Sub Activity_Pause (UserClosed As Boolean)
19
20End Sub
21
22Sub schliessen_Click
23Main.Socket1.Close
24ExitApplication
25End Sub
26
27Sub weiter_Click
28Msgbox("Hallo Welt","")
29End Sub

Also, der Button zum schliessen funktioniert, ich denke auch nur deshalb, weil auf der Main Seite auch das gleiche Button befindet.
aber der weiter Button reagiert nicht, denn da musste ein MSGBOX mit dem Text Hallo Welt zu sehen sein.

Gruß
Frank

grüße aus Mittelfranken

Antworten
Carsten M. 80
Carsten M.
  • Forum-Beiträge: 33.204

26.11.2012, 18:20:05 via App

Schick mir mal Dein ganzes Projekt (unter File / Export zip oder so ähnlich) an cmapps.hamburg@gmail.com

Dann schau ich mir das mal an...

Herzliche Grüße

Carsten

Ich komm' mir langsam vor wie jemand, der ich bin // #cäthe

Antworten
9
Frank Neumann
  • Forum-Beiträge: 178

26.11.2012, 19:32:23 via Website

you have got mail

grüße aus Mittelfranken

Antworten
Carsten M. 80
Carsten M.
  • Forum-Beiträge: 33.204

26.11.2012, 19:41:11 via App

Frank Neumann
you have got mail
Kam an... Ich melde mich nachher...

Herzliche Grüße

Carsten

Ich komm' mir langsam vor wie jemand, der ich bin // #cäthe

Antworten
Carsten M. 80
Carsten M.
  • Forum-Beiträge: 33.204

26.11.2012, 20:44:10 via Website

Hi,

habe Dir das File überarbeitet zurückgeschickt.

Drei Fehler:

Erstens: in Seite01 hattest Du die Buttons nicht definiert.

Zweitens: in Seite01 hattest Du kein Layout geladen

Drittens: Dafür hast Du das Layout von Seite01 in der Activity "Main" geladen anstatt - wie ich mehrfach schrieb - StartActivity("Seite01") zu benutzen.

Herzliche Grüße

Carsten

Ich komm' mir langsam vor wie jemand, der ich bin // #cäthe

Antworten
9
Frank Neumann
  • Forum-Beiträge: 178

26.11.2012, 22:44:14 via Website

Hi Carsten,

du hast hier geschrieben, das ich das defineren muss
1Sub Globals
2
3 Dim schliessen As Button 'Button definieren! (über Tools/Generate Members im Designer)
4 Dim weiter As Button 'Button definieren! (über Tools/Generate Members im Designer)
5End Sub
muss ich das per Hand in die Globals rein schreiben oder wird es autom. rein geschrieben, wenn ich das über Tools/Generate Members im Designer anlege?

Also, wenn es autom. geschrieben wird, ist es nicht bei mir der Fall.

2.
Warum muss ich die Buttons auf der Main Seite nicht deklarieren aber auf der andren Seite?

Gruß und danke für alles

Frank

grüße aus Mittelfranken

Antworten
Carsten M. 80
Carsten M.
  • Forum-Beiträge: 33.204

27.11.2012, 06:11:55 via App

Du musst Buttons eigentlich überall deklarieren. Es mag sein, dass manches auch ohne geht, aber darauf würde ich mich lieber nicht verlassen.

Über Generate Members geht das automatisch, doch. Du kannst dort Objekte und ihre Events gleich im Designer definieren und die DIMs sowie die Event Subs werden dann automatisch erstellt.

Herzliche Grüße

Carsten

Ich komm' mir langsam vor wie jemand, der ich bin // #cäthe

Antworten
9
Frank Neumann
  • Forum-Beiträge: 178

27.11.2012, 07:58:13 via Website

Guten Morgen Carsten,

also, bei mir werden nur die Event Subs autom. angelegt aber die DIMs werden nicht angelegt. hmmmmm (grübel grübel)
merkwürdig ne?

gruß
Frank

grüße aus Mittelfranken

Antworten
Carsten M. 80
Carsten M.
  • Forum-Beiträge: 33.204

27.11.2012, 07:59:40 via App

Frank Neumann
Guten Morgen Carsten,

also, bei mir werden nur die Event Subs autom. angelegt aber die DIMs werden nicht angelegt. hmmmmm (grübel grübel)
merkwürdig ne?

gruß
Frank
Dann hast Du den Button selbst nicht angehakt in Generate Members...

Herzliche Grüße

Carsten

— geändert am 27.11.2012, 08:00:31

Ich komm' mir langsam vor wie jemand, der ich bin // #cäthe

Antworten
9
Frank Neumann
  • Forum-Beiträge: 178

27.11.2012, 08:02:14 via Website

doch habe ich, sonst würde doch die Event Subs nicht angelegt.

grüße aus Mittelfranken

Antworten
Carsten M. 80
Carsten M.
  • Forum-Beiträge: 33.204

27.11.2012, 08:08:25 via App

Frank Neumann
doch habe ich, sonst würde doch die Event Subs nicht angelegt.
Hast Du zwei Haken gesetzt?
Beim Button und beim Clickevent?

Herzliche Grüße

Carsten

Ich komm' mir langsam vor wie jemand, der ich bin // #cäthe

Antworten
9
Frank Neumann
  • Forum-Beiträge: 178

27.11.2012, 08:21:06 via Website

achsooooooooo OK :-)
jetzt habe ich ... ich wusste gar nicht, das ich auch ein Hacken bei der Button setzen muss :-)
dachte wenn ich dort neHacken setze, wird die Gesamte Hirarchie ausgewählt...

naja, wie auch immer, hauptsache problem gelöst... :-)

gruß
und danke dir vielmals

frank

grüße aus Mittelfranken

Antworten