Frage zu Visual Basic

[Mister-X]

Servus,

da ich an ner Handyalarmierung Bastel habe ich mich kurzerhand entschlossen das ganze einfach mit Visual Basic statt wie viele andere mit Batches zu Realisieren. Tzjoa da ich hier auch keine Ahnung habe ist es klar das man hin und wieder auf Probleme stößt. Soweit so gut nur dadurch lernt man... aber ich habe nu eins das ich ned verstehe bzw. ned weiß was ich genau im Code eingeben muss... vielleicht kann mir ja einer von euch weiterhelfen.

Private Sub LoginStatus_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginStatus.Enter
If Hauptschirm.Visible Then
LoginStatus.BackColor = Color.Green
Else
LoginStatus.BackColor = Color.Red
End If
End Sub

Das ist der auszug aus dem Code...

in Form1 ist nen Feld (LoginStatus) das sobald form2 (Hauptschirm) vorhanden ist halt grün werden soll, und wenn nicht halt Rot sein soll...

Wenn ich das nun so ausführe Funktioniert das auch wunderbar... aber ich muss dazu in Form 1 immer auf das Feld klicken das sich die Farbe also der anzeigende status ändert.
Was muss ich eingeben damit das ganze Automatisch von statten geht?!?

für Interessierte leute... es geht um die Geschichte mit dem "MyPhoneExplorer" allerdings mit Anrufen statt SMS... so denn...

Danke schonmal (wenn denn jemand helfen kann oder wird)

[coastboy]

wenn du form2 öffnest, dann
würde ich die Farbe des Feldes ändern.

wenn du form2 wieder schließt, dann würde ich die Farbe zurück ändern.

MfG

[Mister-X]

was soll mir das nu sagen?

ich will ja wissen was an dem code ned stimmt... weil genau das macht die farbe nunmal nicht... erst wenn ich dann das feld anklicke.... das soll es aber Ohne anklicken machen....

[maddin11477]

Ich glaube so wie du das zur Zeit hast geht es nur wenn du in das Feld klickst, weil dein Code erst ausgeführt wird, wenn du das Feld anklickst:
"Private Sub LoginStatus_Enter"
Ist aber auch nur so ne Vermutung, hab schon lange nichts mehr mit Visual Basic gemacht.

Ist deine Form2 offen bevor die Form1 geöffnet wird?
Wenn ja musst du dein Code beim Laden der Form ausführen, wenn nicht musst du beim öffnen der Form2 die Farbe ändern.

Ich weiss nichts obs verständlich war ;) aber vielleicht hilfts ja

Gruß Maddin

[coastboy]

naja,
der Code an sich ist richtig.
Er sagt: nur wenn LoginStatus_Enter ausgeführt wird, wird der code ausgeführt.
Wann wird LoginStatus_Enter ausgeführt?
Wenn du drauf klickst.

Das ist das Problem.

Du mußt es so machen, das es nicht beim klick ausgeführt sondern wenn du
form2 anzeigst / ausblendest oder irgendeine andere Bedingung.

ups, da war einer schneller beim Schreiben

MfG

[Mister-X]

Hy,

Das es so nicht geht hab ich selber auch schon gemerkt *fg*... ich will ja nur wissen was ich machen muss damit es halt von alleine geht.

Form1 ist natürlich vor form 2 geöffnet.
vorm 1 öffnet via Button form 2.
ist diese geöffnet soll sich ein feld in vorm 1 grün färben, ist se geschlossen soll es rot sein.

funktioniert im prinziep ja auch... nur das ich es halt anklicken muss, was den sinn allerdings komplett verfehlt.

PS: und bevor wer auf die idee kommt... nein ich kann die farbänderung nicht über den click auf den Button schreiben. es muss über die Form2.visible laufen (oder halt vergleichbar).

Ich vermute mal das ich im Code einfach nur das "enter" gegen iwas anderes tauschen müsste.... aber ich find halt nichts was mich weiter bringt... hänge halt nun an dem Punkt und komme mit dem Programmieren ned weiter... da ich noch etliche andere statusanzeigen habe die mit dem gleichen Prinziep arbeiten.

also weiß wer was ich ändern muss!?!? Wäre echt wichtig....

[coastboy]

Man könnte es über einen Timer realisieren, aber ob das so dolle ist...

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Form2.Visible Then
Label1.BackColor = Color.Green
Else
Label1.BackColor = Color.Red
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
End Class

Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
End Sub
End Class

MfG