1 |
|
---|
2 | '#require <api_mmsys.sbp>
|
---|
3 |
|
---|
4 | Namespace ActiveBasic
|
---|
5 | Namespace Windows
|
---|
6 | Namespace MM
|
---|
7 |
|
---|
8 | 'ジョイスティックの構成を表す列挙体
|
---|
9 | Enum JoyCapability
|
---|
10 | 'ジョイスティックはZ軸情報を所有
|
---|
11 | HasZ = &H0001
|
---|
12 | 'ジョイスティックはR軸情報を所有
|
---|
13 | HasR = &H0002
|
---|
14 | 'ジョイスティックはU軸情報を所有
|
---|
15 | HasU = &H0004
|
---|
16 | 'ジョイスティックはV軸情報を所有
|
---|
17 | HasV = &H0008
|
---|
18 | 'ジョイスティックはPoint of View情報を所有
|
---|
19 | HasPointOfView = &H0010
|
---|
20 | 'ジョイスティックは4方向Point of Viewサポート
|
---|
21 | PointOfView4Direction = &H0020
|
---|
22 | 'ジョイスティックは連続した角度のPoint of Viewをサポート
|
---|
23 | PointOfViewContinuous = &H0040
|
---|
24 | End Enum
|
---|
25 |
|
---|
26 |
|
---|
27 | 'ジョイスティックの性能を取得するためのJOYCAPS構造体のラップクラス
|
---|
28 | Class JoyCaps
|
---|
29 | caps As JOYCAPS
|
---|
30 |
|
---|
31 | Protected
|
---|
32 | Sub _Initialize ( id As DWord )
|
---|
33 | joyGetDevCaps(id,caps,SizeOf(JOYCAPS))
|
---|
34 | End Sub
|
---|
35 |
|
---|
36 | Public 'Property
|
---|
37 | '製造業者IDの取得
|
---|
38 | Function ManufacturerID () As Word
|
---|
39 | Return This.caps.wMid
|
---|
40 | End Function
|
---|
41 |
|
---|
42 | '製品IDの取得
|
---|
43 | Function ProductID () As Word
|
---|
44 | Return This.caps.wPid
|
---|
45 | End Function
|
---|
46 |
|
---|
47 | '製品名の取得
|
---|
48 | Function ProductName () As String
|
---|
49 | Return New System.String(This.caps.szPname As LPTSTR)
|
---|
50 | End Function
|
---|
51 |
|
---|
52 | 'X軸の最小値の取得
|
---|
53 | Function MinimumX () As DWord
|
---|
54 | Return This.caps.wXmin
|
---|
55 | End Function
|
---|
56 |
|
---|
57 | 'X軸の最大値の取得
|
---|
58 | Function MaximumX () As DWord
|
---|
59 | Return This.caps.wXmax
|
---|
60 | End Function
|
---|
61 |
|
---|
62 | 'Y軸の最小値の取得
|
---|
63 | Function MinimumY () As DWord
|
---|
64 | Return This.caps.wYmin
|
---|
65 | End Function
|
---|
66 |
|
---|
67 | 'Y軸の最大値の取得
|
---|
68 | Function MaximumY () As DWord
|
---|
69 | Return This.caps.wYmax
|
---|
70 | End Function
|
---|
71 |
|
---|
72 | 'Z軸の最小値の取得
|
---|
73 | Function MinimumZ () As DWord
|
---|
74 | Return This.caps.wZmin
|
---|
75 | End Function
|
---|
76 |
|
---|
77 | 'Z軸の最大値の取得
|
---|
78 | Function MaximumZ () As DWord
|
---|
79 | Return This.caps.wZmax
|
---|
80 | End Function
|
---|
81 |
|
---|
82 | '
|
---|
83 | Function NumberOfButtons () As DWord
|
---|
84 | Return This.caps.wNumButtons
|
---|
85 | End Function
|
---|
86 |
|
---|
87 | 'キャプチャ時のメッセージ送信間隔の最小値の取得
|
---|
88 | Function MinimumPeriod () As DWord
|
---|
89 | Return This.caps.wPeriodMin
|
---|
90 | End Function
|
---|
91 |
|
---|
92 | 'キャプチャ時のメッセージ送信間隔の最大値の取得
|
---|
93 | Function MaximumPeriod () As DWord
|
---|
94 | Return This.caps.wPeriodMax
|
---|
95 | End Function
|
---|
96 |
|
---|
97 | '4軸目であるラダー(R軸)の最小値の取得
|
---|
98 | Function MinimumR () As DWord
|
---|
99 | Return This.caps.wRmin
|
---|
100 | End Function
|
---|
101 |
|
---|
102 | '4軸目であるラダー(R軸)の最大値の取得
|
---|
103 | Function MaximumR () As DWord
|
---|
104 | Return This.caps.wRmax
|
---|
105 | End Function
|
---|
106 |
|
---|
107 | '5軸目であるU軸の最小値の取得
|
---|
108 | Function MinimumU () As DWord
|
---|
109 | Return This.caps.wUmin
|
---|
110 | End Function
|
---|
111 |
|
---|
112 | '5軸目であるU軸の最大値の取得
|
---|
113 | Function MaximumU () As DWord
|
---|
114 | Return This.caps.wUmax
|
---|
115 | End Function
|
---|
116 |
|
---|
117 | '6軸目であるV軸の最小値の取得
|
---|
118 | Function MinimumV () As DWord
|
---|
119 | Return This.caps.wVmin
|
---|
120 | End Function
|
---|
121 |
|
---|
122 | '6軸目であるV軸の最大値の取得
|
---|
123 | Function MaximumV () As DWord
|
---|
124 | Return This.caps.wVmax
|
---|
125 | End Function
|
---|
126 |
|
---|
127 | 'ジョイスティックの構成を取得
|
---|
128 | Function Capabilities () As JoyCapability
|
---|
129 | Return This.caps.wCaps As JoyCapability
|
---|
130 | End Function
|
---|
131 |
|
---|
132 | 'サポートしている動きの軸の数を取得
|
---|
133 | Function NumberOfSupportedAxes () As DWord
|
---|
134 | Return This.caps.wMaxAxes
|
---|
135 | End Function
|
---|
136 |
|
---|
137 | '実際に使用している動きの軸の数を取得
|
---|
138 | Function NumberOfUsedAxes () As DWord
|
---|
139 | Return This.caps.wNumAxes
|
---|
140 | End Function
|
---|
141 |
|
---|
142 | 'サポートしているボタン数を取得
|
---|
143 | Function NumberOfSupportedButtons () As DWord
|
---|
144 | Return This.caps.wMaxButtons
|
---|
145 | End Function
|
---|
146 |
|
---|
147 | '登録キーを文字列の取得
|
---|
148 | Function RegistryKey () As String
|
---|
149 | Return New System.String(This.caps.szRegKey As LPTSTR)
|
---|
150 | End Function
|
---|
151 |
|
---|
152 | 'OEMジョイスティックドライバを特定する文字列の取得
|
---|
153 | Function OEM_VxD () As String
|
---|
154 | Return New System.String(This.caps.szOEMVxD As LPTSTR)
|
---|
155 | End Function
|
---|
156 | End Class
|
---|
157 |
|
---|
158 |
|
---|
159 | 'ジョイスティックのボタンの状態を取得するためのクラス
|
---|
160 | Class JoyButtons
|
---|
161 | dwButtons As DWord
|
---|
162 |
|
---|
163 | Protected
|
---|
164 | Sub _Initialize ( dw As DWord )
|
---|
165 | This.dwButtons = dw
|
---|
166 | End Sub
|
---|
167 |
|
---|
168 | Public 'Property
|
---|
169 | '各ボタンの状態を取得する
|
---|
170 | Function Button1 () As Boolean
|
---|
171 | Return This.Button( 1 )
|
---|
172 | End Function
|
---|
173 | Function Button2 () As Boolean
|
---|
174 | Return This.Button( 2 )
|
---|
175 | End Function
|
---|
176 | Function Button3 () As Boolean
|
---|
177 | Return This.Button( 3 )
|
---|
178 | End Function
|
---|
179 | Function Button4 () As Boolean
|
---|
180 | Return This.Button( 4 )
|
---|
181 | End Function
|
---|
182 | Function Button5 () As Boolean
|
---|
183 | Return This.Button( 5 )
|
---|
184 | End Function
|
---|
185 | Function Button6 () As Boolean
|
---|
186 | Return This.Button( 6 )
|
---|
187 | End Function
|
---|
188 | Function Button7 () As Boolean
|
---|
189 | Return This.Button( 7 )
|
---|
190 | End Function
|
---|
191 | Function Button8 () As Boolean
|
---|
192 | Return This.Button( 8 )
|
---|
193 | End Function
|
---|
194 | Function Button9 () As Boolean
|
---|
195 | Return This.Button( 9 )
|
---|
196 | End Function
|
---|
197 | Function Button10 () As Boolean
|
---|
198 | Return This.Button( 10 )
|
---|
199 | End Function
|
---|
200 | Function Button11 () As Boolean
|
---|
201 | Return This.Button( 11 )
|
---|
202 | End Function
|
---|
203 | Function Button12 () As Boolean
|
---|
204 | Return This.Button( 12 )
|
---|
205 | End Function
|
---|
206 | Function Button13 () As Boolean
|
---|
207 | Return This.Button( 13 )
|
---|
208 | End Function
|
---|
209 | Function Button14 () As Boolean
|
---|
210 | Return This.Button( 14 )
|
---|
211 | End Function
|
---|
212 | Function Button15 () As Boolean
|
---|
213 | Return This.Button( 15 )
|
---|
214 | End Function
|
---|
215 | Function Button16 () As Boolean
|
---|
216 | Return This.Button( 16 )
|
---|
217 | End Function
|
---|
218 | Function Button17 () As Boolean
|
---|
219 | Return This.Button( 17 )
|
---|
220 | End Function
|
---|
221 | Function Button18 () As Boolean
|
---|
222 | Return This.Button( 18 )
|
---|
223 | End Function
|
---|
224 | Function Button19 () As Boolean
|
---|
225 | Return This.Button( 19 )
|
---|
226 | End Function
|
---|
227 | Function Button20 () As Boolean
|
---|
228 | Return This.Button( 20 )
|
---|
229 | End Function
|
---|
230 | Function Button21 () As Boolean
|
---|
231 | Return This.Button( 21 )
|
---|
232 | End Function
|
---|
233 | Function Button22 () As Boolean
|
---|
234 | Return This.Button( 22 )
|
---|
235 | End Function
|
---|
236 | Function Button23 () As Boolean
|
---|
237 | Return This.Button( 23 )
|
---|
238 | End Function
|
---|
239 | Function Button24 () As Boolean
|
---|
240 | Return This.Button( 24 )
|
---|
241 | End Function
|
---|
242 | Function Button25 () As Boolean
|
---|
243 | Return This.Button( 25 )
|
---|
244 | End Function
|
---|
245 | Function Button26 () As Boolean
|
---|
246 | Return This.Button( 26 )
|
---|
247 | End Function
|
---|
248 | Function Button27 () As Boolean
|
---|
249 | Return This.Button( 27 )
|
---|
250 | End Function
|
---|
251 | Function Button28 () As Boolean
|
---|
252 | Return This.Button( 28 )
|
---|
253 | End Function
|
---|
254 | Function Button29 () As Boolean
|
---|
255 | Return This.Button( 29 )
|
---|
256 | End Function
|
---|
257 | Function Button30 () As Boolean
|
---|
258 | Return This.Button( 30 )
|
---|
259 | End Function
|
---|
260 | Function Button31 () As Boolean
|
---|
261 | Return This.Button( 31 )
|
---|
262 | End Function
|
---|
263 | Function Button32 () As Boolean
|
---|
264 | Return This.Button( 32 )
|
---|
265 | End Function
|
---|
266 |
|
---|
267 | Public 'Method
|
---|
268 | '指定した番号のボタンの状態を取得
|
---|
269 | Function Button ( n As DWord ) As Boolean
|
---|
270 | Return (1<<(n-1) And This.dwButtons) <> 0
|
---|
271 | End Function
|
---|
272 |
|
---|
273 | Public 'Operator
|
---|
274 | 'DWord値へ変換
|
---|
275 | Function Operator () As DWord
|
---|
276 | Return This.dwButtons
|
---|
277 | End Function
|
---|
278 |
|
---|
279 | 'DWord値と比較
|
---|
280 | Function Operator== (dw As DWord) As Boolean
|
---|
281 | Return This.dwButtons = dw
|
---|
282 | End Function
|
---|
283 | Function Operator<> (dw As DWord) As Boolean
|
---|
284 | Return This.dwButtons <> dw
|
---|
285 | End Function
|
---|
286 |
|
---|
287 | 'DWord値とAnd演算
|
---|
288 | Function Operator And (dw As DWord) As Boolean
|
---|
289 | Return (This.dwButtons And dw) <> 0
|
---|
290 | End Function
|
---|
291 |
|
---|
292 | End Class
|
---|
293 |
|
---|
294 |
|
---|
295 | 'PointOfView値を格納するクラス
|
---|
296 | Class JoyPointOfView
|
---|
297 | pov As DWord
|
---|
298 |
|
---|
299 | Protected
|
---|
300 | Sub _Initialize ( dw As DWord )
|
---|
301 | If LOWORD(dw) = &HFFFF Then dw = (-1) As DWord
|
---|
302 | This.pov = dw
|
---|
303 | End Sub
|
---|
304 |
|
---|
305 | Public 'Static Constant
|
---|
306 | '中心
|
---|
307 | Static Const Centered = (-1) As DWord
|
---|
308 | '前方
|
---|
309 | Static Const Forward = 0 As DWord
|
---|
310 | '右前方
|
---|
311 | Static Const ForwardAndRight = 4500 As DWord
|
---|
312 | '右
|
---|
313 | Static Const Right = 9000 As DWord
|
---|
314 | '右後方
|
---|
315 | Static Const BackwardAndRight = 13500 As DWord
|
---|
316 | '後方
|
---|
317 | Static Const Backward = 18000 As DWord
|
---|
318 | '左後方
|
---|
319 | Static Const BackwardAndLeft = 22500 As DWord
|
---|
320 | '左
|
---|
321 | Static Const Left = 27000 As DWord
|
---|
322 | '左前方
|
---|
323 | Static Const ForwardAndLeft = 31500 As DWord
|
---|
324 |
|
---|
325 | Public 'Proparty
|
---|
326 | Function IsCentered() As Boolean
|
---|
327 | Return This.pov <> Centered
|
---|
328 | End Function
|
---|
329 | Function IsForward() As Boolean
|
---|
330 | Return This.pov <> Forward
|
---|
331 | End Function
|
---|
332 | Function IsRight() As Boolean
|
---|
333 | Return This.pov <> Right
|
---|
334 | End Function
|
---|
335 | Function IsBackward() As Boolean
|
---|
336 | Return This.pov <> Backward
|
---|
337 | End Function
|
---|
338 | Function IsLeft() As Boolean
|
---|
339 | Return This.pov <> Left
|
---|
340 | End Function
|
---|
341 |
|
---|
342 | Public 'Method
|
---|
343 | '角度に変換
|
---|
344 | Function ToDegrees() As Double
|
---|
345 | Return (This.pov / 100)
|
---|
346 | End Function
|
---|
347 |
|
---|
348 |
|
---|
349 | Public 'Operator
|
---|
350 | 'DWord値へ変換
|
---|
351 | Function Operator () As DWord
|
---|
352 | Return This.pov
|
---|
353 | End Function
|
---|
354 |
|
---|
355 | 'DWord値と比較
|
---|
356 | Function Operator== (value As DWord ) As Boolean
|
---|
357 | Return This.pov = value
|
---|
358 | End Function
|
---|
359 | Function Operator<> ( value As DWord ) As Boolean
|
---|
360 | Return This.pov <> value
|
---|
361 | End Function
|
---|
362 | Function Operator<= ( value As DWord ) As Boolean
|
---|
363 | Return This.pov <= value
|
---|
364 | End Function
|
---|
365 | Function Operator>= ( value As DWord ) As Boolean
|
---|
366 | Return This.pov >= value
|
---|
367 | End Function
|
---|
368 | Function Operator< ( value As DWord ) As Boolean
|
---|
369 | Return This.pov < value
|
---|
370 | End Function
|
---|
371 | Function Operator> ( value As DWord ) As Boolean
|
---|
372 | Return This.pov > value
|
---|
373 | End Function
|
---|
374 |
|
---|
375 | 'DWord値と演算
|
---|
376 | Function Operator+ ( value As DWord ) As DWord
|
---|
377 | Return This.pov + value
|
---|
378 | End Function
|
---|
379 | Function Operator- ( value As DWord ) As DWord
|
---|
380 | Return This.pov - value
|
---|
381 | End Function
|
---|
382 | Function Operator* ( value As DWord ) As DWord
|
---|
383 | Return This.pov * value
|
---|
384 | End Function
|
---|
385 | Function Operator Mod ( value As DWord ) As DWord
|
---|
386 | Return This.pov Mod value
|
---|
387 | End Function
|
---|
388 | Function Operator / ( value As DWord ) As Double
|
---|
389 | Return This.pov / value
|
---|
390 | End Function
|
---|
391 | End Class
|
---|
392 |
|
---|
393 |
|
---|
394 | 'ジョイスティックの情報を格納するJOYINFOEX構造体のラップクラス
|
---|
395 | Class JoyInfo
|
---|
396 | info As JOYINFOEX
|
---|
397 |
|
---|
398 | Protected
|
---|
399 | Sub _Initialize ( id As DWord )
|
---|
400 | This.info.dwSize = SizeOf(JOYINFOEX)
|
---|
401 | This.info.dwFlags = JOY_RETURNALL
|
---|
402 | joyGetPosEx(id,info)
|
---|
403 | End Sub
|
---|
404 |
|
---|
405 | Public 'Property
|
---|
406 | 'X軸の値を取得
|
---|
407 | Function X () As DWord
|
---|
408 | Return This.info.dwXpos
|
---|
409 | End Function
|
---|
410 |
|
---|
411 | 'Y軸の値を取得
|
---|
412 | Function Y () As DWord
|
---|
413 | Return This.info.dwYpos
|
---|
414 | End Function
|
---|
415 |
|
---|
416 | 'Z軸の値を取得
|
---|
417 | Function Z () As DWord
|
---|
418 | Return This.info.dwZpos
|
---|
419 | End Function
|
---|
420 |
|
---|
421 | 'ラダー(R軸)の値を取得
|
---|
422 | Function R () As DWord
|
---|
423 | Return This.info.dwRpos
|
---|
424 | End Function
|
---|
425 |
|
---|
426 | 'U軸の値を取得
|
---|
427 | Function U () As DWord
|
---|
428 | Return This.info.dwUpos
|
---|
429 | End Function
|
---|
430 |
|
---|
431 | 'V軸の値を取得
|
---|
432 | Function V () As DWord
|
---|
433 | Return This.info.dwVpos
|
---|
434 | End Function
|
---|
435 |
|
---|
436 | 'ボタンの状態を取得
|
---|
437 | Function Buttons () As JoyButtons
|
---|
438 | Return New Detail._System_JoyButtons(This.info.dwButtons)
|
---|
439 | End Function
|
---|
440 |
|
---|
441 | 'ボタンの状態を取得
|
---|
442 | Function ButtonNumber () As DWord
|
---|
443 | Return This.info.dwButtonNumber
|
---|
444 | End Function
|
---|
445 | Function PointOfView () As JoyPointOfView
|
---|
446 | Return New Detail._System_JoyPointOfView(This.info.dwPOV)
|
---|
447 | End Function
|
---|
448 | End Class
|
---|
449 |
|
---|
450 |
|
---|
451 | 'ジョイスティックを扱うためのクラス
|
---|
452 | Class JoystickDevice
|
---|
453 | id As DWord
|
---|
454 |
|
---|
455 | Protected
|
---|
456 | Sub _Initialize ( id As DWord )
|
---|
457 | This.id = id
|
---|
458 | End Sub
|
---|
459 |
|
---|
460 | Public 'Property
|
---|
461 | 'スティックの動きの閾値を設定
|
---|
462 | Sub Threshold ( value As DWord )
|
---|
463 | joySetThreshold(id,value)
|
---|
464 | End Sub
|
---|
465 |
|
---|
466 | 'スティックの動きの閾値を取得
|
---|
467 | Function Threshold () As DWord
|
---|
468 | joyGetThreshold(id,Threshold)
|
---|
469 | End Function
|
---|
470 |
|
---|
471 | Public 'Method
|
---|
472 | 'ジョイステックの性能を取得
|
---|
473 | Function GetCapabilities () As JoyCaps
|
---|
474 | Return New Detail._System_JoyCaps(This.id)
|
---|
475 | End Function
|
---|
476 |
|
---|
477 | 'ジョイステックの現在の状態を取得
|
---|
478 | Function GetInfo() As JoyInfo
|
---|
479 | Return New Detail._System_JoyInfo(This.id)
|
---|
480 | End Function
|
---|
481 |
|
---|
482 | 'キャプチャを開始
|
---|
483 | Sub SetCupture ( hwnd As HWND, period As DWord, changed As Boolean)
|
---|
484 | joySetCapture(hwnd,id,period,changed)
|
---|
485 | End Sub
|
---|
486 |
|
---|
487 | 'キャプチャを終了
|
---|
488 | Sub ReleaseCapture()
|
---|
489 | joyReleaseCapture(id)
|
---|
490 | End Sub
|
---|
491 | End Class
|
---|
492 |
|
---|
493 |
|
---|
494 | 'ジョイスティックデバイスを取得するためのクラス
|
---|
495 | Class Joystick
|
---|
496 | Public 'Static Constant
|
---|
497 | Static Const Joystick1 = 0
|
---|
498 | Static Const Joystick2 = 1
|
---|
499 |
|
---|
500 | Public 'Static Property
|
---|
501 | 'ドライバによってサポートされるジョイスティック数を取得
|
---|
502 | Static Function NumberOfDevices () As DWord
|
---|
503 | Return joyGetNumDevs()
|
---|
504 | End Function
|
---|
505 |
|
---|
506 | '物理的に接続されたジョイスティック数を取得
|
---|
507 | Static Function NumberOfConnectedDevices () As DWord
|
---|
508 | Dim max = NumberOfDevices()
|
---|
509 | Dim cnt=0 As DWord
|
---|
510 | Dim info As JOYINFO
|
---|
511 | While joyGetPos(cnt,info) = JOYERR_NOERROR
|
---|
512 | cnt++
|
---|
513 | If cnt >= max Then Exit While
|
---|
514 | Wend
|
---|
515 | Return cnt
|
---|
516 | End Function
|
---|
517 |
|
---|
518 | Public 'Static Method
|
---|
519 | '使用可能なジョイスティックIDを列挙したIListを取得
|
---|
520 | Static Function GetValidJoystickIDs() As System.Collections.Generic.IList<DWord>
|
---|
521 | Dim max = NumberOfDevices()
|
---|
522 | GetJoystickIDs = New System.Collections.Generic.List<DWord>
|
---|
523 | Dim cnt As DWord
|
---|
524 | Dim info As JOYINFO
|
---|
525 | For cnt=0 To max-1
|
---|
526 | If joyGetPos(cnt,info) = JOYERR_NOERROR Then
|
---|
527 | GetJoystickIDs.Add(cnt)
|
---|
528 | End If
|
---|
529 | Next
|
---|
530 | End Function
|
---|
531 |
|
---|
532 | '使用可能なジョイスティックデバイスを列挙したIListを取得
|
---|
533 | Static Function GetDevices() As System.Collections.Generic.IList<JoystickDevice>
|
---|
534 | Dim max = NumberOfDevices()
|
---|
535 | GetDevices = New System.Collections.Generic.List<JoystickDevice>
|
---|
536 | Dim cnt As DWord
|
---|
537 | Dim info As JOYINFO
|
---|
538 | For cnt=0 To max-1
|
---|
539 | If joyGetPos(cnt,info) = JOYERR_NOERROR Then
|
---|
540 | GetDevices.Add(GetDeviceFromID(cnt))
|
---|
541 | End If
|
---|
542 | Next
|
---|
543 | End Function
|
---|
544 |
|
---|
545 | 'ジョイスティックデバイスを取得
|
---|
546 | Static Function GetDeviceFromID( id As DWord ) As JoystickDevice
|
---|
547 | Return New Detail._System_JoystickDevice(id)
|
---|
548 | End Function
|
---|
549 |
|
---|
550 | End Class
|
---|
551 |
|
---|
552 | Namespace Detail
|
---|
553 | Class _System_JoyCaps
|
---|
554 | Inherits JoyCaps
|
---|
555 | Public
|
---|
556 | Sub _System_JoyCaps ( id As DWord )
|
---|
557 | This._Initialize(id)
|
---|
558 | End Sub
|
---|
559 |
|
---|
560 | Override Function ToString () As String
|
---|
561 | Return "JoyCaps"
|
---|
562 | End Function
|
---|
563 | End Class
|
---|
564 |
|
---|
565 | Class _System_JoyButtons
|
---|
566 | Inherits JoyButtons
|
---|
567 | Public
|
---|
568 | Sub _System_JoyButtons ( dw As DWord )
|
---|
569 | This._Initialize(dw)
|
---|
570 | End Sub
|
---|
571 |
|
---|
572 | Override Function ToString () As String
|
---|
573 | Return "JoyButtons"
|
---|
574 | End Function
|
---|
575 | End Class
|
---|
576 |
|
---|
577 | Class _System_JoyPointOfView
|
---|
578 | Inherits JoyPointOfView
|
---|
579 | Public
|
---|
580 | Sub _System_JoyPointOfView ( dw As DWord )
|
---|
581 | This._Initialize(dw)
|
---|
582 | End Sub
|
---|
583 |
|
---|
584 | Override Function ToString () As String
|
---|
585 | Return "JoyPointOfView"
|
---|
586 | End Function
|
---|
587 | End Class
|
---|
588 |
|
---|
589 | Class _System_JoyInfo
|
---|
590 | Inherits JoyInfo
|
---|
591 | Public
|
---|
592 | Sub _System_JoyInfo ( id As DWord )
|
---|
593 | This._Initialize(id)
|
---|
594 | End Sub
|
---|
595 |
|
---|
596 | Override Function ToString () As String
|
---|
597 | Return "JoyInfo"
|
---|
598 | End Function
|
---|
599 | End Class
|
---|
600 |
|
---|
601 | Class _System_JoystickDevice
|
---|
602 | Inherits JoystickDevice
|
---|
603 | Public
|
---|
604 | Sub _System_JoystickDevice ( id As DWord )
|
---|
605 | This._Initialize(id)
|
---|
606 | End Sub
|
---|
607 |
|
---|
608 | Override Function ToString () As String
|
---|
609 | Return "Joystick"
|
---|
610 | End Function
|
---|
611 | End Class
|
---|
612 |
|
---|
613 | End Namespace
|
---|
614 |
|
---|
615 | End Namespace
|
---|
616 | End Namespace
|
---|
617 | End Namespace
|
---|