Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
24.11.2004, 16:11 Uhr
FlAsH
keine Ahnung

Hallo wiedereinmal
ich habe versucht ein Programm zu machen das mir ein Text schreibt:

Visual Basic:

SendKeys Text1.Text

Doch nun will ich das es jede halbe sekunde einen Buchstaben von Text1.text schreibt, wie geht das?
(Soll am anfang mit schreiben anfangen nicht am Schluss)

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
24.11.2004, 16:35 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Braucht einen timer (tmrSec) und das textfeld "txtText"

Visual Basic:

Private Sub tmrSec_Timer()
For i = 1 to Len(txtText)
SendKeys Left(txtText, i)
Next
End Sub

Private Sub Form_Load()
tmrSec.Interval = 500
End Sub

also er soll erst die buchstaben von links nr 1 machen, dann den buchstaben nummer 2 nach dem timer intervall
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Dieser Post wurde am 24.11.2004 um 16:40 Uhr von Audron-AT-www editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

002
24.11.2004, 16:46 Uhr
FlAsH
keine Ahnung

wenn z.B der text ist:
Hallo
dann sendet es zuerst H u. Dann Ha u. dann Hal u. dann Hall
aber ich will das es zuerst H u. dann a u. dann l usw... sendet

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

003
25.11.2004, 20:00 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

Visual Basic:

Private Sub tmrSec_Timer()
Dim i As Integer
If Me.Caption < Len("Hallo") then HalloSchreiben Else Me.Caption = i - i+i
End Sub

Private Sub Form_Load()
tmrSec.Interval = 500
End Sub

Public Sub HalloSchreiben
Dim i As Integer
For i = 1 to Len("Hallo")
SendKeys Left("Hallo", i)
Next
End Sub

--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

004
26.11.2004, 15:47 Uhr
FlAsH
keine Ahnung

Also
Text wäre "Bis Bald"
dann sendet es "B"
Danach "Bi"
danach "Bis"
...
aber ich will das "B"
dann "i"
...
Hmm das ist da nicht der fall oder?

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: