Nooby-Problem mit Timer

SyCE

Hallo ihr,
bin neu in vB und kenn mich mit dem Timer noch nicht so richtig ist.
naja mein Problem is folgendes:
Ich möchte, dass nach einer bestimmten Zeit eine Aktion geschieht
und wieder von Vorne anfägt.
In meinem Fall soll das Tastaturlämpchen blinken.
mein Code sieht bisher so aus:

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

Public Class Form1
    Private Declare Sub keybd_event Lib "user32" ( _
     ByVal bVk As Byte, _
     ByVal bScan As Byte, _
     ByVal dwFlags As Long, _
     ByVal dwExtraInfo As Long)

    Private Const VK_CAPITAL = &H14
    Private Const KEYEVENTF_KEYUP = &H2
    Private Const VK_NUMLOCK = &H90
    Private Const VK_SCROLL = &H91
    ' zunächst die benötigte API-Funktion
    Public Declare Function GetKeyState Lib "user32" ( _
      ByVal nVirtKey As Long) As Integer

    ' Status: CAPS-Lock
    'If GetKeyState(vbKeyCapital) = 1 Then _
    '  MsgBox "CAPS-Lock ist eingeschaltet!"

    ' Status: NUM-Lock
    'If GetKeyState(vbKeyNumlock) = 1 Then _
    ' MsgBox "NUM-Lock ist eingeschaltet!"


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Start()
        

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = 100
        Timer1.Enabled = True
        keybd_event(VK_CAPITAL, 1, 0, 0)
        Timer1.Enabled = False
        keybd_event(VK_CAPITAL, 1, KEYEVENTF_KEYUP, 0)
        Timer1.Enabled = True
    End Sub
End Class

Wenn der Timer gestartet wird passiert nur leider garnichts.
Bitte um Hilfe!

Danke im Vorraus,
SyCE

Xanth

Hallo SyCE,

Ok, das ist nicht das Problem. Also, wieso einfach, wenns auch schwer geht?
Ich habe mir Code von VBAchiv geholt und an meine/deine Aufgabe angepasst:

code:

1:
2:
3:
4:

Public Class Form1
' benötigte API-Deklarationen
Private Declare Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long)
Private Const VK_CAPITAL = &H14 Private Const KEYEVENTF_KEYUP = &H2

Ja, das is dasselbe, außer das bei mir weniger ist.

code:

1:
2:
3:
4:

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
keybd_event(VK_CAPITAL, 1, 0, 0
keybd_event(VK_CAPITAL, 1, KEYEVENTF_KEYUP, 0)
End Sub

Das ist mein Timer. Der Befehl führt dazu, dass die Taste gedrückt wird ( oben ) und wieder losgelassen wird ( unteres ).

Wenn man jetzt noch den Timer startet

code:
1: 2: 3:	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub

Und die Klasse schließt

code:
1:	End Class

Dann ist ALLEs perfekt. Aber ich verstehe nicht, warum du in den Timer die Intervalfunktion einbaust?
Du kannst doch auch im Button einstellen, dass der Timer eine bestimmte Intervalgeschwindigkeit haben soll, oder? Du musst dann im Button nur

code:
1:	Timer1.Interval = 'Dein Interval

Jöran