Steuerung von Fußschalter oder Joystick

Um Ereignisse zu erfassen die von einem Fußschalter oder einem Joystick ausgelöst werden, kann man sich der Methoden von DirectX bedienen. Im vorliegenden Beispiel wird die Version DirectX8 verwendet, d.H. Sie benötigen einen gültigen Verweis auf die „DirectX 8 für Visual Basic Type Library“. Dazu benötigen Sie die registrierte Datei dx8vb.dll auf Ihrem Computer.
Nach dem nun der Verweis gesetzt wurde kann mit der Deklaration der Objekte begonnen werden. Dazu verwende ich die Early-Binding Variante um die DirectX-Konstanten verwenden zu können:
Im Deklarationsteil des Formulars:
Private Const BufferSize As Long = 10 Private DX As DirectX8 Private DI As DirectInput8 Private DIEnum As DirectInputEnumDevices8 Private DIDevice As DirectInputDevice8 Private hEvent As Long Implements DirectXEvent8
Im Load-Ereignis werden die Objekte dann Instanziert:
Set DX = New DirectX8 Set DI = DX.DirectInputCreate Set DIEnum = DI.GetDIDevices(DI8DEVCLASS_GAMECTRL, DIEDFL_ATTACHEDONLY) ' kein Gerät gefunden dann Abbruch If DIEnum.GetCount = 0 Then Exit Sub
Die Verwendeten Konstanten beim Zugriff auf die Geräte können hier nachgelesen werden:
DirectInput8::EnumDevices
Read more »