[vb.net]sich selbst schreibender text[scr]

[inmate]

Habe da mal was gemacht.
Danke an das tut von trust , der die funktionsweise perfekt erklärt hat :)

Download:
http://www.file-upload.net/download-1686755/Sich-Selbst-blablabla.rar.html

Also es ist ein text der sich selbst schreibt, man nennt es auch ghostwriter.
Es ist bei vielen RATs bei about so , das der text sich selbst schreibt.
Sieht einfach besser aus.

HF

mfG

[Bullterrier]

Cool endlich ma wieder was in VB.net wenn auch jetzt nicht wirklich spektakulär aber immer hin.

[INfERn0 StyLe]

Schöner Effekt erinnert einen irgentwie an so alte Horror Filme :D

Mfg

[till7]

Danke dir, sowas suchte ich gerade^^

[inmate]

:) dann habe ichs ja zu der richtigen zeit gepostet ;)

[VooDoo666]

Sehr schön:)

Ziemlich einfach und ziemlich nützlich!

[DK007]

Jo thx dafür werd ich auch mal testen.

[matze093]

Mir ist aufgefallen, dass der cursor immer am anfang des textes stehen bleibt. Damit er sich mit dem Text mitbewegt einfach

RichTextBox1.Text += textarray(count)durch

RichTextBox1.AppendText(textarray(count))ersetzen.

[DK007]

danke für den tip matze werd ich mal verbessern.

[inmate]

Stimmt das habe ich vergessen :rolleyes:
Der Text wird dann aber Fehlerhaft :)
Danke :)

[matze093]

Wieso fehlerhaft? Bei mir steht alles richtig da "Hallo ich bin ein Geist!"

[inmate]

Oh sry lag nicht an dir , war ein Fehler in meinem Code :)

mfG

[magerquark]

Hab sowas ähnliches auch schon mal Anfang Februar dieses Jahres veröffentlicht.
Meiner meinung nach etwas schöner gelöst da das Ganze ohne Timer arbeitet.
Der Source bezieht sich auf das direkte Schreiben mit DrawString, drunter auch noch ein Beispiel mit ner Richtextbox.
http://forum.vb-paradise.de/allgemeines/sourcecode-austausch/p78714-getippter-text/?highlight=getippter+Text#post78714

[Fixi]

inmate oder jemand anderes könntet ihr die source nochmal uppen? wäre nett

[br00_pwn]

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Start()
Timer1.Interval = 100

End Sub
Dim count As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Text As String = "Der Text, der geschrieben werden soll!"
Dim Buchstabe() As Char = Text.ToCharArray
If count = Len(Text) Then
Timer1.Stop()
Else
Label1.Text += Buchstabe(count)
count += 1
End If

End Sub
End ClassLeider ist der Link down, hier ein Beispiel...
Eigentlich relativ einfach und selbsterklärend :)
LG br00_pwn