登录
首页 » DVD » 期权explicitprivate宣布cddoor库函数

期权explicitprivate宣布cddoor库函数

于 2022-02-13 发布 文件大小:5.70 kB
0 215
下载积分: 2 下载次数: 1

代码说明:

Option Explicit Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Dim state1 As Boolean Private Sub Command1_Click() 打开光驱 state1 = True Call CDdoor("set CDAudio door open", 0, 0, 0) End Sub Private Sub Command2_Click() 关闭光驱 state1 = False Call CDdoor("set CDAudio door closed", 0, 0, 0) End Sub Private Sub Command3_Click() End End Sub-Option ExplicitPrivate Declare Function CDdoor Lib

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • DVD红外遥控器接收程序
    DVD红外遥控器接收程序-DVD infrared remote control receiver procedures
    2023-08-09 18:05:04下载
    积分:1
  • bdg
    bdg
    2023-07-19 04:40:03下载
    积分:1
  • DVD解码播放芯片mt1379部分示例源码
    DVD解码播放芯片mt1379部分示例源码-DVD decoder chip to play some mt1379 sample source
    2022-06-01 22:11:28下载
    积分:1
  • cd_dvd_burn
    CD基本刻录功能,支持DVD刻录,参考并汇总了网络搜索到的一些基本代码(The basic CD burning capabilities, support for DVD burning)
    2014-01-19 18:47:59下载
    积分:1
  • DG-K301SM
    Service Manual DVD PLAYER MODEL DG-K301
    2011-04-06 22:07:16下载
    积分:1
  • 额外的decodevob MPEG
    DecodeVOB extras MPEG-2 video streams (M2V) and Dolby Digital audio streams (AC3) from DVD multiplexed streams (VOB).-DecodeVOB extras MPEG-2 video streams (M2 V) and Dolby Digital audio streams (AC3) from DV D multiplexed streams (DVD).
    2022-02-02 01:25:21下载
    积分:1
  • 全功能DVDB播放器,最大化支持弹出式菜单,并拥有漂亮的软件界面,整个看上去十分的专业....
    全功能DVDB播放器,最大化支持弹出式菜单,并拥有漂亮的软件界面,整个看上去十分的专业.-DVDB full-featured player, to maximize support for pop-up menu, and have beautiful software interface, the whole looks very professional.
    2023-05-02 16:30:03下载
    积分:1
  • MT1389LPRADIO_code
    MT1389L DVD 方案中的带RADIO(MT1389L DVD program with RADIO)
    2014-02-17 13:33:38下载
    积分:1
  • 期权explicitprivate宣布cddoor库函数
    Option Explicit Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Dim state1 As Boolean Private Sub Command1_Click() 打开光驱 state1 = True Call CDdoor("set CDAudio door open", 0, 0, 0) End Sub Private Sub Command2_Click() 关闭光驱 state1 = False Call CDdoor("set CDAudio door closed", 0, 0, 0) End Sub Private Sub Command3_Click() End End Sub-Option ExplicitPrivate Declare Function CDdoor Lib
    2022-02-13 01:18:34下载
    积分:1
  • dvd_rental_systems
    DVD Rental System Application
    2013-06-11 19:51:19下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载