Programm mit interval

Bluesun456

Grünschnabel
also ich bräucht nen code damit das programm alle 5 minuten nach dem ich auf den start button geklick habe die taste f3 betätigt wird. hoffe ihr könnt mir helfen
 
Hallo, versuch´s mal so:
Code:
Private Sub Command1_Click()
  Timer1.Enabled = True
End Sub

Private Sub Form_Load()
  Timer1.Interval = 60000
  Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Static Minuten As Long

Const Anzahl = 5

  Minuten = (Minuten + 1) Mod Anzahl

  If Minuten > 0 Then Exit Sub

  SendKeys "{F3}", True
  
End Sub
 
wenn ich das den code von dir eingebe taucht diese fehler auf (siehe anhang)


Private Sub Form_Load()
Timer1.Interval = 60000 <<<<und diese zeile wird gelb makiert
Timer1.Enabled = False
End Sub
 

Anhänge

  • 26931attachment.jpg
    26931attachment.jpg
    8,5 KB · Aufrufe: 14
Hi.

Du mußt erstmal einen Timer auf deine Form ziehen (ist in der Toolbox drin). Der bekommt dann automatisch den Namen Timer1.

Gruß
 
und wie kann ich das noch machen das man den timer auch noch ablaufen sieht? also sone art countdown der die minuten imma wieder runterzählt
 
Zurück