Hvordan laver jeg en gamledages skrivemaskine function..

Hmmm... Det ser jo umiddelbart korrekt ud.. Prøv at rette det lidt til

text = info.Tag
loops = Len(text)
debug.print "Text: " & text & vbcrlf & "Loops: " & loops
For t = 1 To loops
debug.print "t: " & t
Me.info.Caption = Left(text, t)
Next t

Det skulle gerne give noget debug info at arbejde med.
Tror dog problemet er, at ovenstående går MEGET hurtigt, så med mindre det er en mega lang tekst vil du overhovdet ikke lægge mærke til at det sker.

Jeg ville bruge en timer og en global variabel for t timerens kode vil så være

if t < len(info.tag) then
  Me.info.Caption = Left(Me.info.Tag, t)
  t = t + 1
else
  timer1.enabled = false
end if

Så kan du justere timeres værdi til du har den ønskede effekt.

Det kan jeg ikke få til at virker, jeg glemte også lige at sige at når den har vist helle kode skal den start om..

håber du forstå..

den vister det også bare ud i en køre. dog med lidt forsingels.

Private Sub Command1_Click()
Dim i As Integer
Dim strTekst As String
Me.Caption = ""
strTekst = "www.eksperten.dk"
  For i = 1 To Len(strTekst)
    Pause 15000
    Me.Caption = Left(strTekst, i)
  Next i
End Sub

Public Sub Pause(tim As Integer)
Dim lCount As Integer
  Do Until lCount > tim
    lCount = lCount + 1
    DoEvents
  Loop
End Sub

Jubii. tak..

selv tak

Der er en lille fejl den stopper med i det heller ca efter fem gange !!!
har du en ide til hvad der er galt ?

VB hader dig? Noget andet af din kode sletter din string?

Den stopper og så går der et par sec og så begynder den igen. og den kode jeg selv lave i sin tid virker den stoppe ikke men jeg kan ikke huske hvad jeg gjore. Øv.

Så hvis der er en der har et bud. vil jeg blive glar. og vi kan nok finde en løsning med point..

Jeg ville som sagt stadig bruge en timer og definere t globalt.

Private Sub Timer1_Timer()

if t < len(info.tag) then
  Me.info.Caption = Left(Me.info.Tag, t)
  t = t + 1
else
  t = 1
end if

end sub

Skulle gøre tricket. Jeg gider ikke lige afprøve det, men prøv det selv.

Hvis det virker så bare glem alt om point...

Den står bare og blinker med texten da jeg har sat Pause 1500 ind du kan få fat på mig på 56665453 (ICQ) da det nok er nemmer.

Der ligger et eksempel på hvordan det kan løses på http://www.mrfunny.yi.org/ekspert/files/ Jeg har ikke haft den til at køre i længere tid, det er jeg ikke tålmodig nok til, men prøv det, og hvis det virker så glæd dig over det ;)

Du er bare kanon. det virker og giver ingen problemmer. fedt......

:)