Skrivemaskine-effekt

du kan download en her :

http://www.script.dk/arkiv/download.jsp?type=java_applet&script=datatext&navn=DataText&ret

den tog ikke hele URL\'en men du skal tage alt imellem \" \"

\"http://www.script.dk/arkiv/download.jsp?type=java_applet&script=datatext&navn=DataText&ret\"

der er vist nogen probellmer vi prøver lige igen alt imellem \" \"

\"http://www.script.dk/arkiv/download.jsp?type=java_applet&script=datatext&navn=DataText&ret\"

Det har vist ikke meget med Visual Basic at gøre ???

hmmm det her vil sq ikke som jeg vil

lige efter java_applet er der en ; det egn skal væk i url\'en så burde den hoppe ind på siden og starte med at downloade.

Skriv hvis du har problemmer med downloadingen

det er da en skrive masikne effekt ;)

Her er en meget basic en (lavet på ca. ingen tid).

Form1    (form)
Text1    (text felt)
Text2    (text felt)
Command1 (CommandButton)
Timer1  (timer; interval: 50 (ms); enabled: false)

CUT\'N\'PASTE nedenstående ind i formens kode vindue (det er det eneste der skal stå!)

------------------------------------------------------------
Dim intIteration As Integer

Private Sub Command1_Click()
    Timer1.Enabled = True
    Text1.Enabled = False
    intIteration = 1
End Sub

Private Sub Timer1_Timer()
    If Text1.Text > \"\" Then
        Text2.Text = Left$(Text1.Text, intIteration)
        intIteration = intIteration + 1
       
        If intIteration - 1 = Len(Text1.Text) Then
            Timer1.Enabled = False
            Text1.Enabled = True
        End If
    End If
End Sub
----------------------------------------------------------------

Og vupti, there ya go!