Per Buttondruck abwechselnd 2 Texte versenden

[Uncle Sam]

Ich habe 2 Textboxen erstellt. In diese soll man jeweils einen beliebigen (kurzen) Text eingeben können. Das funktioniert auch.

Allerdings möchte ich nun, dass sich diese Texte abwechselnd und in einem bestimmten Abstand (für den Abstand habe ich schon einen Timer gemacht) in einem Textfenster "wiedergeben".
Ich weiß nicht, wie ich das umsetzen soll, wäre also sehr, sehr dankbar für jede (hilfreiche) Antwort. =)


Mit freundlichen Grüßen
Uncle Sam

 

[Jacka]

Hi!

Simple gestrickt, aber Hauptsache es funktioniert!

Habe jetzt einfach mit einem Button den Timer aktiviert.
Mit Hilfe eines Zähler´s (WAHR/FALSCH) schalte ich zwischen den Textboxen um.
Man könnte natürlich auch Select Case statt If nehmen.

Option Explicit
Dim zaehler As Boolean

Private Sub Command1_Click()

Timer1.Interval = 10000

Text3.Text = Text1.Text
zaehler = True

End Sub


Private Sub Timer1_Timer()

If zaehler = True Then
    Text3.Text = Text2.Text
    zaehler = False
ElseIf zaehler = False Then
    Text3.Text = Text1.Text
    zaehler = True
End If

End Sub

Hoffe das hilft!

Grüße,
Jacka

 

[Uncle Sam]

Tausendfachen Dank für deine Hilfe! =)

Allerdings bekomme ich 3 Fehler, wenn ich das einbinde

Dim zaehler As Boolean
Private Sub Command1_Click()
und
Private Sub Timer1_Timer()

Die Fehler lauten alle drei: "Der Name ist in einem Namespace ungültig."

Was muss ich tun, um sie beheben?

Hoffe, auch da wirst du, oder jemand anders mir helfen können. =)


Mit freundlichen Grüßen
Uncle Sam

 

[Jacka]

Hi!

Du brauchst auf deinem Formular zwei Textboxen zur Eingabe (Text1 und Text2), einen Button zum Starten (Command1), eine Textbox zur Ausgabe (Text3) und einen Timer (Timer1). Dann sollte es eigentlich funktionieren!

Viele Grüße,
Jacka

 

[Uncle Sam]

Ist echt super nett von dir, dass du mir hilfst. =)

Allerdings passiert nichts, wenn ich auf Start, bzw. auf Command1 drücke... Woran liegt das? Habe ich noch irgendetwas vergessen?

 

[Jacka]

Hi!

Ist echt super nett von dir, dass du mir hilfst. =)

Dafür sind wir ja da! ^^

Vielleicht hast du nicht lange genug gewartet! Der Timer im Code steht auf 10 Sekunden! ;-]
Im Anhang findest du ein Beispiel-Programm dazu. Probier das mal aus!

Viele Grüße,
Jacka