form1.frm

怎样对游戏手柄编程的例子

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   5940
   ClientLeft      =   1890
   ClientTop       =   1500
   ClientWidth     =   6690
   ForeColor       =   &H00000000&
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   5940
   ScaleWidth      =   6690
   ShowInTaskbar   =   0   'False
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer2 
      Interval        =   1
      Left            =   630
      Top             =   1125
   End
   Begin VB.CommandButton cmd1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   5085
      TabIndex        =   2
      Top             =   3780
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      Enabled         =   0   'False
      Height          =   375
      Left            =   1050
      TabIndex        =   1
      Top             =   300
      Width           =   1035
   End
   Begin VB.TextBox Text1 
      Enabled         =   0   'False
      Height          =   375
      Left            =   60
      TabIndex        =   0
      Top             =   300
      Width           =   1005
   End
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   225
      Top             =   1125
   End
   Begin VB.Label Label4 
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   1230
      TabIndex        =   6
      Top             =   795
      Width           =   450
   End
   Begin VB.Label Label3 
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Joystick Button:"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   60
      TabIndex        =   5
      Top             =   795
      Width           =   1200
   End
   Begin VB.Label Label2 
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "Y Coord:"
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   1155
      TabIndex        =   4
      Top             =   30
      Width           =   645
   End
   Begin VB.Label Label1 
      BackColor       =   &H00000000&
      BackStyle       =   0  'Transparent
      Caption         =   "X Coord:"
      ForeColor       =   &H0000FF00&
      Height          =   270
      Left            =   135
      TabIndex        =   3
      Top             =   15
      Width           =   690
   End
   Begin VB.Line Line2 
      BorderColor     =   &H0000FF00&
      X1              =   -50
      X2              =   12015
      Y1              =   4020
      Y2              =   4020
   End
   Begin VB.Line Line1 
      BorderColor     =   &H0000FF00&
      X1              =   5700
      X2              =   5700
      Y1              =   -225
      Y2              =   8775
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'怎样对游戏手柄编程呢？本例会给你答案


Dim myJoy As JOYINFOEX

Private Sub cmd1_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyEscape Then
    
    ' Show the mouse cursor.
     ShowCursor (True)
  
  End
  
End If

End Sub

Private Sub Form_GotFocus()

' Set focus to the command button so the user can exit by pressing
' the Escape key.  (the End statement is in cmd1_KeyPress() )
cmd1.SetFocus

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

' If user pressed Escape, end the program.
If KeyAscii = vbKeyEscape Then
  End
End If

End Sub

Private Sub Form_Load()
Dim r&
Dim hWnd&
Static TheX As Long
Static TheY As Long

' Hide the mouse cursor.
ShowCursor (False)

' Tell form to receive joystick functions.
r& = joySetCapture(hWnd, JOYSTICKID1, 1, 0)
r& = joyReleaseCapture(JOYSTICKID1)

' Get joystick position coordinates and fill in the TheX and TheY
' variables.
r& = joyGetPosEx(JOYSTICKID1, myJoy)
TheX = myJoy.dwXpos
TheY = myJoy.dwYpos

End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

' Show the mouse cursor.
ShowCursor (True)

End Sub

Private Sub Form_Resize()

' Disable the timer.
If Form1.WindowState = 0 Then Timer1.Enabled = False

End Sub

Private Sub Form_Terminate()

' Show the mouse cursor.
ShowCursor (True)

End Sub

Private Sub Form_Unload(Cancel As Integer)

' Show the mouse cursor.
ShowCursor (True)

End Sub


Private Sub Timer1_Timer()

myJoy.dwSize = 64
myJoy.dwFlags = JOY_RETURNALL

' Get the joystick coordinates.
r& = joyGetPosEx(JOYSTICKID1, myJoy)

' If a joystick's button is pressed, put the number of the button in
' label4.
If myJoy.dwButtons > 0 Then
  Label4.Caption = myJoy.dwButtons
Else
  Label4.Caption = ""
End If

' Check joystick coordinates.  If they are greater or less than the
' center coordinates, move the lines and command button in the
' appropriate direction and speed.
If myJoy.dwXpos > 25450 And cmd1.Left < 10800 Then
TheFirst = myJoy.dwXpos - 25450
   Line1.X1 = Line1.X1 + (TheFirst / 10)
   Line1.X2 = Line1.X2 + (TheFirst / 10)
 cmd1.Left = cmd1.Left + (TheFirst / 10)
End If
If myJoy.dwYpos > 36000 And cmd1.Top < 7816 Then
TheSecond = myJoy.dwYpos - 36000
   Line2.Y1 = Line2.Y1 + (TheSecond / 10)
   Line2.Y2 = Line2.Y2 + (TheSecond / 10)
cmd1.Top = cmd1.Top + (TheSecond / 10)
End If
If myJoy.dwXpos < 25450 And cmd1.Left > 0 Then
TheFirst = 25450 - myJoy.dwXpos
   Line1.X1 = Line1.X1 - (TheFirst / 10)
   Line1.X2 = Line1.X2 - (TheFirst / 10)
cmd1.Left = cmd1.Left - (TheFirst / 10)
End If
If myJoy.dwYpos < 36000 And cmd1.Top > 0 Then
TheSecond = 36000 - myJoy.dwYpos
   Line2.Y1 = Line2.Y1 - (TheSecond / 10)
   Line2.Y2 = Line2.Y2 - (TheSecond / 10)
cmd1.Top = cmd1.Top - (TheSecond / 10)
End If

' Fill the textboxes with the joystick coordinates.
Text1.Text = myJoy.dwXpos
Text2.Text = myJoy.dwYpos

End Sub


Private Sub Timer2_Timer()

' If the button is past the left border, the button is set ON the border.
If cmd1.Left < 0 Then
  cmd1.Left = 0
End If

' If the button is past the top border, the button is set ON the border.
If cmd1.Top < 0 Then
  cmd1.Top = 0
End If

' If the button is past the right border, the button is set ON the border.
If cmd1.Left > 10800 Then
  cmd1.Left = 10800
End If

' If the button is past the bottom border, the button is set ON the border.
If cmd1.Top > 8312 Then
  cmd1.Top = 8312
End If

' Set crosshair back under the command button.
Line1.X1 = cmd1.Left + 600
Line1.X2 = cmd1.Left + 600
Line2.Y1 = cmd1.Top + 233
Line2.Y2 = cmd1.Top + 233

End Sub