Reply To: Timer in pal7

ok loco this is how i do it 🙂

first add this code to form

Sub Delay(ByVal nSeconds As Single)

Dim nStart As Single



nStart = Timer



Do

DoEvents

Loop Until Timer - nStart >= nSeconds

End Sub

This a mch better way to use a time action trust me 🙂

Then put this on the loadform

Timer1.Interval = 10

Timer1.Enabled = False

Then on the timer itself put this code

Dim mywindowclass As Long

Dim wtlsplitterwindow As Long

Dim atld As Long

Dim atlaxwin As Long

Dim x As Long

Dim richedita As Long

On Error Resume Next

mywindowclass = FindWindow("my window class", vbNullString)

wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)

wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)

atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:004d0600", vbNullString)

atlaxwin = FindWindowEx(atld, 0&, "atlaxwin71", vbNullString)

x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)

richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)

richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)

Call SendMessageByString(richedita, WM_SETTEXT, 0&, RichTextBox1)



If richedita = 0 Then



Exit Sub

End If



Do

DoEvents

mywindowclass = FindWindow("my window class", vbNullString)

wtlsplitterwindow = FindWindowEx(mywindowclass, 0&, "wtl_splitterwindow", vbNullString)

wtlsplitterwindow = FindWindowEx(wtlsplitterwindow, 0&, "wtl_splitterwindow", vbNullString)

atld = FindWindowEx(wtlsplitterwindow, 0&, "atl:004d0600", vbNullString)

atlaxwin = FindWindowEx(atld, 0&, "atlaxwin71", vbNullString)

x = FindWindowEx(atlaxwin, 0&, "#32770", vbNullString)

richedita = FindWindowEx(x, 0&, "richedit20a", vbNullString)

richedita = FindWindowEx(x, richedita, "richedit20a", vbNullString)

Call SendMessageLong(richedita, WM_KEYDOWN, 13, 0&)

Loop Until richedita  0

Call Delay(1)

Then to start it on a command button, but u might know this 🙂

Timer1.Enabled = True

To stop it

Timer1.Enabled = False

thas wha i do 🙂