- 日時: 2011/04/05 11:22
- 名前: 花ちゃん
- ***********************************************************************************
* カテゴリー:[周辺機器][ドライブ][] * * キーワード:,CD,開閉,イベント,扉を開く,扉を閉じる * ***********************************************************************************
SysInfo.OCX を使った方法
【VB6.0用の開設当初の掲示板のログより】
--------------------------------------------------------------------------- No.5145 Re: CD-ROMドライブ 投稿者:とろ [2002/06/28(金)13:07分] ---------------------------------------------------------------------------
Private Sub SysInfo1_DeviceArrival(ByVal DeviceType As Long, _ ByVal DeviceID As Long, ByVal DeviceName As String, ByVal DeviceData As Long) Debug.Print "DeviceArrival" End Sub Private Sub SysInfo1_DeviceRemoveComplete(ByVal DeviceType As Long, _ ByVal DeviceID As Long, ByVal DeviceName As String, ByVal DeviceData As Long) Debug.Print "DeviceRemoveComplete" End Sub
|