¬ Home » Tipps & Tricks » Tipp 046 Feedback | Druckansicht

Tipp 046: Angeschlossene Eingebegeräte auflisten [DirectX, DirectInput]

Autor: Thomas Geiger VB-Version: Visual Basic 6.0 Download: Beispielprojekt Tipp-046

Beschreibung

Um andere Eingabegeräte als etwa die Standartgeräte wie Maus und Tastatur verwenden zu können, müssen die angeschlossenen Geräte natürlich bekannt sein, sind sie dies nicht, so kann dieses Beispiel Abhilfe schaffen, denn es liefert eine komplette Liste aller angeschlossenen Geräte.

Zusatzinformationen

» Visual Basic World - Tutorial: DirectX - DirectDraw7
» Visual Basic World - Tutorial: DirectX - DirectInput7

Quellcode

Form1

Form                     Form1
Frame                    Frame1
Label                    Label1
Label                    Label2
Label                    Label3
Label                    Label4
Label                    Label5
Label                    Label6
Label                    Label7
Line                     Line1

' VISUAL BASIC WORLD
' ===========================================
' Das große Portal zum Thema Visual Basic.
'
' Wenn Ihnen dieser Source Code gefallen hat,
' dann empfehlen Sie Visual Basic World bitte
' weiter und/oder setzen Sie einen Link auf:
'
' http://www.visualbasicworld.de/
'
' Vernetzen Sie sich mit uns:
'
' http://twitter.com/visualbasicwrld
'
' Autor: Thomas Geiger


Option Explicit
 
Dim DirectX As DirectX7
Dim DInput As DirectInput
Dim DDeviceEnum As DirectInputEnumDevices
Dim DDevice As DirectInputDevice
Dim DDeviceObjects As DirectInputEnumDeviceObjects
 
Dim iCounter As Integer
 

 
 
Private Sub Form_Load()
 
   'Objekte initialisieren
   Set DirectX = New DirectX7
   Set DInput = DirectX.DirectInputCreate()
 
   'Auflistung erstellen
   Set DDeviceEnum = DInput.GetDIEnumDevices(0, DIEDFL_ALLDEVICES)
 
   'Jetzt tragen wir alle Auflistungselemente in die ListBox ein
   For iCounter = 1 To DDeviceEnum.GetCount
      List1.AddItem DDeviceEnum.GetItem(iCounter).GetInstanceName
   Next
 
End Sub
 

 
Private Sub List1_Click()
 
   'Fehlerkontrolle
   If List1.Text = "" Then Exit Sub
 
   'Ein Geräteobjekt mit diesem Objekt erstellen
   Set DDevice = DInput.CreateDevice(DDeviceEnum.GetItem(List1.ListIndex + 1).GetGuidInstance)
      Label7.Caption = DDeviceEnum.GetItem(List1.ListIndex + 1).GetGuidInstance
 
   'Die Anzahl an Tasten abfragen
   Set DDeviceObjects = DDevice.GetDeviceObjectsEnum(DIDFT_BUTTON)
      Label3.Caption = DDeviceObjects.GetCount
 
   'Die Anzahl an Achsen abrufen
   Set DDeviceObjects = DDevice.GetDeviceObjectsEnum(DIDFT_AXIS)
      Label5.Caption = DDeviceObjects.GetCount
 
End Sub