MessageBox.Show("Unable to create a joystick device. Public Function InitDirectInput() As Booleanįor Each instance In Manager.GetDevices(DeviceClass.GameControl, EnumDevicesFlags.AttachedOnly)ĪpplicationDevice = New Device(instance.InstanceGuid) This next code is in the namsepace but not in the mainclass sub Private SliderCount As Integer = -1 ' Number of returned slider controls Private applicationDevice As Device = Nothing Public Shared state As New JoystickState() This code has been customized for the use of a microsoft xbox wireless controller(Hence the compensation for the dead zone) I use Microsoft Direct X, Looking at the code now i realize you probably can't use this in vb6, If i get time tonight, i'll try to port it Here's the code I use in vb.net 2008 Express Edition(I think you have vb 6 but I don't have that one on this computer)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |