Visual Basic Forum

ChangeIt · Newbie Anmeldedatum: 04.07.2009 Beiträge: 6

Hallo,

ich habe diesmal ein dummes Problem. Da ich ja ein Noob bin!! Confused

Also ich möchte gern ein Programm erstellen, wenn ich auf Button1 klicke spammt er *Hallo1* dann *Hallo2* dann *Hallo3* und so weiter in einem RichTextBox aber ich möchte ja noch ein label haben, der dann sagt wie oft ich bereits gespammt hab also sobald
*Hallo1* gespammt wurde, soll dann der Label sich auf 1 ändern auch bis unendlich usw..
könnte mir jemand vielleicht einen code für sowas posten oder erklären wie sowas geht?ich glaub dafür muss man so ne If-schleife funktion benutzen oder so
wäre wirklich nett
Ich hab auch gegoogelt aber leider kein Ergebniss ..

danke schon mal im Vorraus

tschüssi

lan12 · Newbie Anmeldedatum: 15.08.2009 Beiträge: 5

Hallo, ein Wort vorweg:
If ist keine Schleife sondern eine Verzweigungsanweisung. Du meinst sicherlich eine For-Schleife oder ? Auch die ist in meinen Augen nicht notwendig. Ich habe es mal mit einem ganz simplen Beispiel probiert:

Public Class Form1
Dim clicks As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RichTextBox1.Text = "Hallo" & clicks
Label1.Text = clicks
clicks = clicks + 1
End Sub

End Class

Gruß,
Lan

Krusty · Newbie Anmeldedatum: 14.08.2009 Beiträge: 6

Naja ich denke er will das, wenn er auf dem Button klickt, er immer weiter mit dem hallo macht und nicht nur ein mal.
Oder verstehe ich dich da falsch??

Auf jeden fall würde ich das dann auch nicht mit einer Schleife machen sondern eher mit einem Timer.

Code:
Public Class Form1
Dim clicks As Int32

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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
RichTextBox1.Text = RichTextBox1.Text & "Hallo" & clicks & vbNewLine
Label1.Text = clicks
clicks = clicks + 1
End Sub
End Class

PS: Ich habe mal noch einen zweiten Button zum beenden eingebaut.