Einzelne Button klicks

Evil

[COLOR="DarkOrange"]Hi ich wolte mal fragen :
wie ich es einstelle das ich mit mehrfachen button klick verschiedene
aktionen auslöse =)
also zum beispiel :[/COLOR]

Code

[COLOR="Lime"][B]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


MsgBox("TEST")


    End Sub[/B][/COLOR]

[COLOR="DarkOrange"]jetzt habe ich ja wenn ich button 1 klicke kommt msgbox
ich will , wenn ich button 1 klicke da mehrer aktion kommen also

1. klick - msgbox("test")
2. klick - form2.show

nur so als beispiel ^^ vllt kann mir a jemand helfen[/COLOR]

Skycro

wenste doppelklick meinst muste des doubleclick event nehmen

sonst könntest z.B.:

Code

Dim a As Integer = 1


If a = 1 then 'wenn a 1 ist  befehl 1


Msg("blub")
a = 2


Else if a = 2 then 'wenn a 2 ist Befehl 2


Form2.show
a =1
End if

Alles anzeigen

is eine Moglichkeit

Evil

Zitat von Skycro;68396
wenste doppelklick meinst muste des doubleclick event nehmen
sonst könntest z.B.:
Code
Dim a As Integer = 1


If a = 1 then 'wenn a 1 ist  befehl 1


Msg("blub")
a = 2


Else if a = 2 then 'wenn a 2 ist Befehl 2


Form2.show
a =1
End if
Alles anzeigen
is eine Moglichkeit

[COLOR="DarkOrange"]danke ersmal^^
ich such kein doppelklick ich will 1 buttn für mehere funktionen nutzen
also nochn beispiel [/COLOR]

Code

[COLOR="Lime"][B]Button1 erste mal klicken = MsgBox("10")
Button1 zweite mal klicken = MsgBox("9")
Button1 dritte mal klicken = MsgBox("8")
Button1 vierte mal klicken = MsgBox("7")
Button1 fünfte mal klicken = MsgBox("6")
Button1 sechste mal klicken = MsgBox("5")
Button1 siebte mal klicken = MsgBox("4")
Button1 achte mal klicken = MsgBox("3")
Button1 neunte mal klicken = MsgBox("2")
Button1 zehnte mal klicken = MsgBox("1")[/B][/COLOR]

[COLOR="#ff8c00"]also das beispiel sollte jetzt 1 countdown mit einem button sein [/COLOR]

Synaptic

Hätte eine Idee:

Du kannst auf deine Form mehrere Buttons übereinander legen ö.ö
Ist etwas umständlich aber was anderes fällt mir momentan nicht ein:

wie gesagt umständlich aber funktioniert ^^
Musst die Buttons ebend exakt übereinander legen

- alle Buttons auser den 1. vorher auf Unsichtbar einstellen
Edit: Hier mal ein beispiel : Download

Hab 7 button übereinander.

MFG

Evil

[COLOR="DarkOrange"]hmm etwas umständlicher als ich
es mir vorgestellt hatte aber sollte
für mich reichen danke =)[/COLOR]

Chef Chelios

Wenne dir platz erspaaren willst
kannste das doch so machen
du machst dirs so jetzt ohne code beschrieben^^
[COLOR="DeepSkyBlue"]<[/COLOR] [COLOR="Green"]Button[/COLOR] [COLOR="DarkOrchid"]>[/COLOR]

[COLOR="Green"]Grün= Der button auf den du klickst[/COLOR]

[COLOR="DarkOrchid"]Vorwärts - also du klicks drauf und der Button z.B. Settings wird jetzt zu Abut[/COLOR]

[COLOR="DeepSkyBlue"]Zurück - Also du drücks drauf und dan wird aus About Settings -Ist 1 Klick mehr als du willst aber ich find das gut so^^[/COLOR]

-So jetzt die frage geht das so?

HEaRiX

Code

Public Class Form1
    Public counter As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        counter = counter + 1


        If counter = 1 Then
            MsgBox("1", MsgBoxStyle.OkOnly)
        End If
        If counter = 2 Then
            MsgBox("2", MsgBoxStyle.OkOnly)
        End If
        If counter = 3 Then
            MsgBox("3", MsgBoxStyle.OkOnly)
        End If
        If counter = 4 Then
            MsgBox("4", MsgBoxStyle.OkOnly)
        End If
        If counter = 5 Then
            MsgBox("5", MsgBoxStyle.OkOnly)
        End If
        If counter = 6 Then
            MsgBox("6", MsgBoxStyle.OkOnly)
        End If
        If counter = 7 Then
            MsgBox("7", MsgBoxStyle.OkOnly)
        End If
    End Sub
End Class

Alles anzeigen

LG

Skycro

des hab ich eig auch gemeint hab mich nur falsch ausgedruckt.

Mein Code war nicht der doppelklick war eig lösung 2 xD

Synaptic

Zitat von HEaRiX;68694

Code

Public Class Form1
    Public counter As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        counter = counter + 1


        If counter = 1 Then
            MsgBox("1", MsgBoxStyle.OkOnly)
        End If
        If counter = 2 Then
            MsgBox("2", MsgBoxStyle.OkOnly)
        End If
        If counter = 3 Then
            MsgBox("3", MsgBoxStyle.OkOnly)
        End If
        If counter = 4 Then
            MsgBox("4", MsgBoxStyle.OkOnly)
        End If
        If counter = 5 Then
            MsgBox("5", MsgBoxStyle.OkOnly)
        End If
        If counter = 6 Then
            MsgBox("6", MsgBoxStyle.OkOnly)
        End If
        If counter = 7 Then
            MsgBox("7", MsgBoxStyle.OkOnly)
        End If
    End Sub
End Class

Alles anzeigen

LG

Ja geht über mehrere wege.
Meiner war jetzt auf die schnelle, doch mein Code ist sogar kürzer, allerdings braucht er bisschem mehr performance (aber was macht so ein Invisible/Visible schon aus :D)

MFG

Einzelne Button klicks

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES