Unteschiedliche wirkungen?

Black-Hat · 21. Mai 2010, 15:17

Guten Tag,
wenn ich das erste mal auf einen Button klicke soll etwas passieren das zweite mal soll etwas anderes passieren. Wie mache ich das ich keinen Schimmer.

Danke schon mal

*Topic verschoben*

My-Image-Upload.de · 21. Mai 2010, 15:23

Machs mit ner If Abfrage.

ChaosBernd · 21. Mai 2010, 15:25

Erstell dir eine Boolean Variable
Dann beim Klick änderst du den Status von True auf False. Das dann bei jedem Klick.

VB.NET-Quellcode

Dim JaNein As Boolean = True
Buttton1.Click........
JaNein = Not JaNein
dein Code
End Sub

Somit wird bei jedem Cklick von True auf False gesetzt und natürlich wieder umgekehrt

UFO · 21. Mai 2010, 15:26

Vielleicht so?

VB.NET-Quellcode

Public Class Form1
Dim click As Integer = 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If click = 1 Then
'anweisung 1
click += 1
ElseIf click = 2 Then
'anweisung 2
click = 1
'Wiederbeginn
End If
End Sub
End Class

My-Image-Upload.de · 21. Mai 2010, 15:27

Oder so....
So gehts natürlich einfacher.

Black-Hat · 21. Mai 2010, 15:27

ich bin sowas wie kompletter anfänger. Das mit dem IF Code bräuchte ich ein Beispiel und das mit dem Boolesn verstehe ich nicht also ich denke es funktioniert aber den sinn verstehe ich nicht was ist das?

My-Image-Upload.de · 21. Mai 2010, 15:30

ChaosBernd schrieb:

Visual Basic Quellcode

Dim JaNein As Boolean = True
Buttton1.Click........
JaNein = Not JaNein
dein Code
End Sub

So gehts am einfachsten. Oder halt per If Abfrage wie es UFO schon geposted hatte.

ChaosBernd · 21. Mai 2010, 15:30

MAch mal eine Form1 und einen Button1
dann kopier das hier rein.

VB.NET-Quellcode

Public Class Form1
Dim MeinBoolean As Boolean = True
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MeinBoolean = Not MeinBoolean
If MeinBoolean = True Then
Button1.BackColor = Color.Red
Else
Button1.BackColor = Color.Green
End If
End Sub
End Class

Klick dran rum und dann wirst du verstehen

UFO · 21. Mai 2010, 15:31

Mein Code ist ein If Beispiel.

My-Image-Upload.de · 21. Mai 2010, 15:34

ChaosBernd schrieb:

MAch mal eine Form1 und einen Button1
dann kopier das hier rein.

VB.NET-Quellcode

Public Class Form1

Dim MeinBoolean As Boolean = True

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MeinBoolean = Not MeinBoolean

If MeinBoolean = True Then

Button1.BackColor = Color.Red

Else

Button1.BackColor = Color.Green

End If

End Sub

End Class

Klick dran rum und dann wirst du verstehen

Zu Deutsch:

Wenn du auf den Button klickst, dann wechselt "MeinBoolean" von True auf False und umgekehrt.
Wenn "MeinBoolean" wahr (True) ist, dann ist die Hintergrundfarbe des Buttons rot (Red).
Wenn "MeinBoolean" falsch (False) ist, dann ist die Hintergrundfarbe des Buttons grün (Green).

Black-Hat · 21. Mai 2010, 15:41

Vielen Dank jetzt habe cih es verstanden viiiiiiiiiiiiielen dank

My-Image-Upload.de · 21. Mai 2010, 15:51

Solange du Englisch kannst ist es einfach es zu verstehen.

ChaosBernd · 21. Mai 2010, 16:43

War ein kleiner Denkfehler drin.
Jetzt aber korrekt.

VB.NET-Quellcode

Public Class Form1
' Form Load
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
My.Settings.Reload()
SetButton()
End Sub
' Button 1 Klick
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Settings.MeinBoolean = Not My.Settings.MeinBoolean
SetButton()
End Sub
' Sub Set Button
Private Sub SetButton()
If My.Settings.MeinBoolean = True Then
Button1.BackColor = Color.Red
Else
Button1.BackColor = Color.Green
End If
End Sub
' Application Beenden
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Application.Exit() ' Ohne den hier wird die My.Settings nicht gespeichert
End Sub
End Class

Black-Hat · 24. Mai 2010, 11:20

Guten Tag,
ich bins nochmal

Also mein Code sieht jetzt so aus :

VB.NET-Quellcode

Private Sub HideAnweisungToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HideAnweisungToolStripMenuItem.Click
My.Settings.Reload()
MeinBoolean = Not MeinBoolean
If MeinBoolean = True Then
Label1.Hide()
HideAnweisungToolStripMenuItem.Text = "Show Anweisung!"
Else
Label1.Show()
HideAnweisungToolStripMenuItem.Text = "Hide Anweisung!"
End If
End Sub

Aber ich muss das erste mal einen Doppelklick auf das ToolStrip Item machen. Damit was passiert und ich habe auch schon einen verbesserten Code bekommen. Aber der hat so nicht funktioniert mit einem "Button". Kann mir jmd helfen?

Danke schon mal

*edith: sry dachte ich soll neuen thread aufmachen das es übersichtlicher wird*

ChaosBernd · 24. Mai 2010, 11:40

Du must bei FormLoad auch erst den Status wieder abfragen und an deine Variable weitergeben.
Erst dann funktioniert das mit einemal Klick.

Dazu hatte ich dir
Post Nr. 13

nochmals Korregiert.

Black-Hat · 24. Mai 2010, 20:16

Ja, aber ich will ja alles nur mit einem Button machen das Aplication.exit ist klar

ChaosBernd · 24. Mai 2010, 20:36

Das ist doch nur ein Button.
Deshalb habe ich das doch in eine Sub ausgelagert.
Nun musst du nur bestimmen wann du die Sub brauchst.

VB.NET-Quellcode

My.Settings.MeinBoolean = Not My.Settings.MeinBoolean
SetButton()

Bei Form Load wird nur die Variable aus den Settings gelesen und an die Varaible weitergegeben.
Bei Button 1 Klick wir der Status geändert und dann über SetButton() die Farbe verändert.

ansonsten erklär nochmal für dummis.

danke dir
bernd

Black-Hat · 24. Mai 2010, 20:48

Durch irgendeinen Zufall klappt jetzt alles! Ich hab stat My.Settings.MeinBoolean ... Nur Mein Boolean geschrieben mit dem Set Button und jetzt geht's. Eine Erklärung hätte ich schon ncoh gerne da ich das nicht richtig verstanden habe.

Danke an alle beteiligten

ChaosBernd · 24. Mai 2010, 21:45

Zeig mal deine änderung. am besten den kompletten ausschnitt.

danke

Black-Hat · 25. Mai 2010, 10:05

Hier ist er :

VB.NET-Quellcode

Public Class Form1
Dim MeinBoolean As Boolean = True
Private Sub HideAnweisungToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HideAnweisungToolStripMenuItem.Click
MeinBoolean = Not MeinBoolean
SetButton()
End Sub
Private Sub SetButton()
If MeinBoolean = True Then
Label1.Visible = True
HideAnweisungToolStripMenuItem.Text = "Hide Anweisung!"
Else
Label1.Visible = False
HideAnweisungToolStripMenuItem.Text = "Show Anweisung!"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
My.Settings.Reload()
SetButton()
End Sub
End Class

So und das geht. Warum?? Was passiert da?

Danke

Unteschiedliche wirkungen?

Unteschiedliche wirkungen?

VB.NET-Quellcode

VB.NET-Quellcode

ChaosBernd schrieb:

VB.NET-Quellcode

ChaosBernd schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Button 2 verschiedene wirkungen?

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben