VB tekst automatisch veranderen

[FilipKetelslegers]

Beste,

Ik heb een probleempje met Visual Basic ik wil een tekst automatisch na 10 seconden laten veranderen
zoals een soort lichtkrant.

Je hebt op een FORM 3 textboxen staan maar wilt op een andere FORM deze tekst laten zien in een label!
als je op het FORM bent waar de label staat moet het zo gaan

label.text = textbox1.text
NA 10 SECONDEN
label.text = textbox2.text
NA 10 SECONDEN
label.text = textbox3.text
NA 10 SECONDEN
label.text = textbox1.text
NA 10 SECONDEN
...

en zo maar een hele tijd door!

Zou dit mogelijk zijn?

Alvast bedankt!

 

[JoZ1]

@tobiastheebe: Dan heb je wel een Wscript-object nodig...

Hiervoor kun je ook een Timer gebruiken waarbij de interval op 10000ms staat.

 

[FilipKetelslegers]

Hoe is dit mogelijk met een Timer?

Alvast bedankt

 

[tobiastheebe]

@Joz1, mijn manier was inderdaad niet de beste, maar voor WScript.Sleep hoef je toch geen object aan te maken (tenminste niet in Visual Basic Script)?

@FilipKetelslegers, in de Timer-component (met een interval van 10.000 ms) gebruik je voor elke tick de volgende code:

If Label.Text = Textbox1.Text Then
  Label.Text = Textbox2.Text
ElseIf Label.Text = Textbox2.Text Then
  LabelText = Textbox3.Text
ElseIf Label.Text = Textbox3.Text Then
  LabelText = Textbox1.Text
Else
End If

 

[JoZ1]

Visual Basic Script is iets anders dan Visual Basic (.NET)

 

[FilipKetelslegers]

Dat van die timer met

If Label.Text = Textbox1.Text Then
  Label.Text = Textbox2.Text
ElseIf Label.Text = Textbox2.Text Then
  LabelText = Textbox3.Text
ElseIf Label.Text = Textbox3.Text Then
  LabelText = Textbox1.Text
Else
End If

dit werkt maar dit blijft niet doorgaan
kan er een manier zijn van wel?

alvast bedankt!

 

[JoZ1]

Je moet er dan ook wel een eventhandler aan hangen:

[CPP] Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
.......
End Sub[/CPP]

 

[FilipKetelslegers]

Het werkt nog altijd niet ik heb dit staan:

   Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick, Timer2.Tick
        If lblNIEUWS.Text = frmNIEUWS.txtNIEUWS1.Text Then
            lblNIEUWS.Text = frmNIEUWS.txtNIEUWS2.Text
        ElseIf lblNIEUWS.Text = frmNIEUWS.txtNIEUWS2.Text Then
            lblNIEUWS.Text = frmNIEUWS.txtNIEUWS3.Text
        ElseIf lblNIEUWS.Text = frmNIEUWS.txtNIEUWS3.Text Then
            lblNIEUWS.Text = frmNIEUWS.txtNIEUWS1.Text
        Else
        End If
    End Sub

de label heb ik als naam gegeven lblNIEUWS

en de 3 textboxen op een andere form heten txtNIEUWS1, txtNIEUWS2 en txtNIEUWS3

maar dit gaat maar enkele keren, hoe komt dit?

Alvast bedankt voor jullie hulp

 

[JoZ1]

Waarom heb je er twee timers aan gekoppeld?

 

[FilipKetelslegers]

oei dat had ik niet gezien
maar nu ik deze heb weggedaan gaat het maar 1 keer

Wat kan ik hier aan doen?

een loop misschien?

Alvast bedankt

 

[JoZ1]

Ik snap niet precies wat je fout kan doen.

1. Je hebt een Timer-Control in de designer aangemaakt;
2. Je hebt onderstaande code toegevoegd.

?

Je kunt d.m.v. een breakpoint controleren wat er precies fout gaat.

 

[FilipKetelslegers]

hoe werkt een breakpoint?

nooit gebruikt

bedankt

 

[JoZ1]

Zelf zoeken mag ook...
http://www.homeandlearn.co.uk/net/nets5p6.html

 

[FilipKetelslegers]

ja ik weet het sorry maar heb hier al een week naar gezocht en dit was mijn laatste optie.

maar toch zeer fel bedankt

 

[JoZ1]

Ik had het over die breakpoints

Heb je al gevonden waar 't aan ligt?

 

[FilipKetelslegers]

Het werkt bedankt

Het probleem was dat ik het programma opstart dat de tekst eerst moest geladen worden in de textvlakken.
want die liet constant niets zien dat komt omdat niets in de textvlakken stond

zeer fel bedankt voor julie snelle hulp !!

MVG

Filip

 

[JoZ1]

Heel goed