【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-取得轴功能.frm的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "取得轴功能"
       ClientHeight    =   3195
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form1"
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    Dim objDX As New DirectX7
    Dim objDI As DirectInput
    Dim DIDev As DirectInputDevice
    Dim DIEnumDev As DirectInputEnumDevices
    
    Dim DIDevobj As DirectInputEnumDeviceObjects
    Dim DIDevInst As DirectInputDeviceObjectInstance
    
    Dim i As Integer
    Dim Joy_GUID As String
    Private Sub Form_Load()
      Me.Show
      Set objDI = objDX.DirectInputCreate()
      Set DIEnumDev = objDI.GetDIEnumDevices(DIDEVTYPE_JOYSTICK, DIEDFL_ATTACHEDONLY)
      
        
      If DIEnumDev.GetCount = 0 Then
        MsgBox "侦察不到摇杆"
        End
      End If
      
      Print "装置名称"; DIEnumDev.GetItem(1).GetInstanceName
      
      Joy_GUID = DIEnumDev.GetItem(1).GetGuidInstance
      Set DIDev = objDI.CreateDevice(Joy_GUID)
       
      
      Set DIDevobj = DIDev.GetDeviceObjectsEnum(DIDFT_AXIS)
       
      For i = 1 To DIDevobj.GetCount
        Set DIDevInst = DIDevobj.GetItem(i)
        Select Case DIDevInst.GetOfs
          Case DIJOFS_X
            Print "摇杆具备X轴操作功能"
          Case DIJOFS_Y
            Print "摇杆具备Y轴操作功能"
          Case DIJOFS_Z
            Print "摇杆具备Z轴操作功能"
          Case DIJOFS_RX
            Print "摇杆具备RX轴操作功能"
          Case DIJOFS_RY
            Print "摇杆具备RY轴操作功能"
          Case DIJOFS_RZ
            Print "摇杆具备RZ轴操作功能"
          Case DIJOFS_SLIDER0
            Print "摇杆具备SLIDER 0操作功能"
          Case DIJOFS_SLIDER1
            Print "摇杆具备SLIDER 1操作功能"
        End Select
      Next
      
    End Sub