---

Hallo,

in Autocad VBA ist ja kein Zeitgebersteuerelement enthalten.
Ich habe mal versucht, den Timer von VB 6 einzubinden, einen entsprechenden Verweis gesetzt und nun erscheint der Timer auch im Objektkatalog.
Leider ist er weder unter Werkzeuge, noch unter zusätzliche Steuerelemente zu finden.
Was mache ich falsch ?

Gruß ralf33

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Ralf,

wie Timer einbinden unter Verweise???
IMHO ist der sowieso da;-)

Code:

---

sub asdf()
  dim a#
  a=timer
  msgbox "test"
  msgbox timer - a
end sub

---

oder was meintest Du?
lg Nancy 

[edit]oder meinst Du sleep[/edit]                

[Diese Nachricht wurde von startrek am 12. Okt. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy,

besten Dank für Deine Antwort.
In Visual Basic habe ich doch unter Werkzeuge diese kleine Uhr, also den Zeitgeber. Da kann ich unter Eigenschaften einfach einstellen, das eine Prozedur zB. alle 500 Millisekunden ablaufen soll.
Das vermisse ich bei VBA.
Deshalb habe ich versucht, die Bibliothek von VB6 einzubinden. (hat mit MSCOMM einwandfrei funktioniert)

Gruß ralf33

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

also das TimerControl hab ich auch nicht gefunden. Da ich das auch mal selber gebraucht hatte habs ich per windows API gelöst.

Hier der Auszug aus meinem Projekt (das ganze muss in einem allgemeinen Modul stehen)

Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID _
        As Long) As Long
       
Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay _
        As Long, ByVal uResolution As Long, ByVal lpFunction _
        As Long, ByVal dwUser As Long, ByVal uFlags As Long) _
        As Long

Public Timer

Sub TimerStart()
    Timer = timeSetEvent(100, 0, AddressOf TimerEvent, 0, 1)
End Sub

Sub TimerStopp()
    timeKillEvent Timer
End Sub

Sub TimerEvent(ID As Long, Msg As Long, LngUser As Long, Lng1 As Long, Lng2 As Long)
    Beep
End Sub

Mit der Funktion Timerstart startest du den Timer. In diesem Beispiel mit 100ms . Danach wird automatisch die Prozedur TimerEvent alle 100ms gestartet.

Mit der Funktion Timerstopp ... na eh klar

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ralf,

da war doch so was.

http://ww3.cad.de/foren/ubb/Forum259/HTML/000674.shtml#000008

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP