| | ||
| | |||
| Access Tips | |||
   |
|||
 #294 |
 |
CD-ROMドライブのトレイを開閉する方法 | VBA、API |
WindowsAPIを使ってCD-ROMドライブのトレイを開閉します。 まず、標準モジュールに次のようなAPIの宣言を記述します。 Public Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, _ ByVal uReturnLength As Long, _ ByVal hwndCallback As Long) あとはコーディングは非常に簡単です。開く場合と閉じる場合で、それぞれ次のようなコードを実行します。 '開く
mciSendStringA "Set CDAudio Door Open", 0&, 0, 0 '閉じる mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0 |
|||
|
|
|||
| Copyright © T'sWare All rights reserved |   |