[VB]Überprüfungen ob Button Click

[anonymous-f4h279]

Moin,

kann mir jemand sagen wie der Befehl heißt wie ich überprüfen kann ob ein Button geklickt wurde?

z.B möchte jetzt machen

PHP Code:

If(Button1.Clicked) Then BLABLABLA
Else
BLABLABLA 


Aber das Clicked ist der Falsche Befehl wie geht das?

Gruß
Drew

[shadow52]

Einen direkten "Befehl" zum überprüfen gibt es meines wissens nicht ,du könntest aber z.B ein Label hinzu fügen dieses auf Visible = False stellen und in das Button Click event folgendes schreiben

Label1.Text = "Button gedrückt"
        If Label1.Text = "Button gedrückt" Then
            MsgBox("Button wurde gedrückt !") ' oder dein eigener Befehl !

        End If

Somit würde der Button seinen Text ändern und gleich zeitig eine Message kommen. Dort kannst du ja dann einfach deinen Befehl hin schreiben , anstatt der Message Box.

[Rainvair]

Originally Posted by shadow52

Einen direkten "Befehl" zum überprüfen gibt es meines wissens nicht ,du könntest aber z.B ein Label hinzu fügen dieses auf Visible = False stellen und in das Button Click event folgendes schreiben

Label1.Text = "Button gedrückt"
        If Label1.Text = "Button gedrückt" Then
            MsgBox("Button wurde gedrückt !") ' oder dein eigener Befehl !

        End If

Somit würde der Button seinen Text ändern und gleich zeitig eine Message kommen. Dort kannst du ja dann einfach deinen Befehl hin schreiben , anstatt der Message Box.

Mir wäre es auch neu das man das direkt überprüfen kann. Mein Vorschlag wäre das du, was auch immer du auslösen willst, es direkt über den Button auslöst

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True '' Befehl den du ausführen willst
        Label1.text = "Timer1 ist nun aktiv" ''Ausgabe das Button1 geklickt wurde

[P-a-i-n]

die frage ist ein witz

PHP Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("ich wurde geklickt")
    End Sub 


mal eine andere frage
wieso ein else ?
in der button abfrage könntest du das machen das passiert nur wenn der button geklickt wird aber machst du es woanders in einer anderen prozedur wo du die anfrage machst und diese prozedur wird durch laufen wird immer das else anziehen weil der button ja sicher nicht geklickt wurde

sehe ich als fehlerquelle und total unnötig

das kannste bei labels u.s.w machen das der text sich ändert nach jedem klick einfaches beispiel

PHP Code:

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

        If Label1.Text = "hallo" Then
            Label1.Text = "ciao"
        Else
            Label1.Text = "ciao"
            Label1.Text = "hallo"
        End If
    End Sub 


[Atheuz]

Originally Posted by Rainvair

Mir wäre es auch neu das man das direkt überprüfen kann. Mein Vorschlag wäre das du, was auch immer du auslösen willst, es direkt über den Button auslöst

Natürlich könnte man es, man kann immer neue Events oder in diesem Fall Eigenschaften zuordnen. Oder schlicht mit einer Variablen überprüfen. Ob es Sinn machen würde ist aber fraglich.

[anonymous-f4h279]

Danke euch.

Pain Else = falls.
Also in einer Checkbox kann man das ganz gut zeigen.

PHP Code:

If (CheckBox1.Checked) Then
Timer1.Start()
Else
Timer1.Stop()
End If 


So wenn du nun den Haken setzt, startet sich der Timer.
Wenn du den Haken runter nimmst stopt er sich.

[killeeer111]

hier ein kurzes beispiel, wie er überprüft, wenn der button2 geklickt wird, ob button1 schon geklickt worden ist:

Public Class Form1
dim ueberpruefung as string = "nicht geklickt"
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        ueberpruefung = "geklickt"
    End Sub  
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
if ueberpruefung = "geklickt" then
MsgBox("Du hast vorher button1 geklickt!")
else
MsgBox("Du hast den Button2 vorher gedrückt!")
End Sub
End Class

mfg

[anonymous-f4h279]

Originally Posted by killeeer111

hier ein kurzes beispiel, wie er überprüft, wenn der button2 geklickt wird, ob button1 schon geklickt worden ist:

Public Class Form1
dim ueberpruefung as string = "nicht geklickt"
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        ueberpruefung = "geklickt"
    End Sub  
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
if ueberpruefung = "geklickt" then
MsgBox("Du hast vorher button1 geklickt!")
else
MsgBox("Du hast den Button2 vorher gedrückt!")
End Sub
End Class

mfg

Ne so brauch ich das nicht, hat sich aber schon geklärt.