[VB]Überprüfungen ob Button Click

06/19/2010 01:41 anonymous-f4h279#1
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
06/19/2010 02:42 shadow52#2
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
Code:
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.
06/19/2010 02:50 Rainvair#3
Quote:
Originally Posted by shadow52 View Post
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
Code:
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

Code:
    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
06/19/2010 02:52 P-a-i-n#4
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 
06/19/2010 04:31 Atheuz#5
Quote:
Originally Posted by Rainvair View Post
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.
06/19/2010 10:19 anonymous-f4h279#6
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.
06/19/2010 12:39 killeeer111#7
hier ein kurzes beispiel, wie er überprüft, wenn der button2 geklickt wird, ob button1 schon geklickt worden ist:
Code:
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
06/19/2010 13:02 anonymous-f4h279#8
Quote:
Originally Posted by killeeer111 View Post
hier ein kurzes beispiel, wie er überprüft, wenn der button2 geklickt wird, ob button1 schon geklickt worden ist:
Code:
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.