说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

控制光驱门的开关 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
控制光驱门的开关 -VB资料
利用MCI的方法可以方便的实现光驱门的开关。
请看下例:
>>步骤1----建立新工程,在窗体上放置一个CommandButton按钮.设置其Caption = "打开"
>>步骤2----编写如下代码:

Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
Static bOpen As Boolean
Dim strStr As String

If Not bOpen Then
Screen.MousePointer = vbHourglass
strStr = "set CDAudio door open"
Command1.Caption = "关闭"
Else
Screen.MousePointer = vbHourglass
strStr = "set CDAudio door closed"
Command1.Caption = "打开"
End If

Call mciSendString(strStr, vbNull, 127, 0)
Screen.MousePointer = vbDefault
DoEvents
bOpen = Not bOpen
End Sub

>>步骤3----编译运行,点击"打开",光驱弹出;点击"关闭",光驱关上.
在VB中制作可滚动的图像显示 在图片上平滑移动文字 -VB资料 VB怎样使程序的标题条闪烁? VB制作图像的Mask图 CWinInetConnection-一个封装了WinInet API函数的类 -VB资料 MODEM通讯意外处理-VB资料 MsComm 文字传输-VB资料 PING一个IP地址(向它发送一个数据包并等待回应) -VB资料 SMTP协议简介 (Simple Mail Transfer Protocol) -VB资料 VB5.0 中远程数据库的访问 VB下如何编写CRC校验程序 Visual Basic 6中发送邮件的新方法 Visual Basic通信程序设计 Whois 示例程序-VB资料 Winsock Terminal示例程序 -VB资料 WinSock断开导致客户端问题-VB资料 把Outlook信箱中的附件另存为 -VB资料 保证连网计算机时间同步-VB资料 编写网络寻呼机 -VB资料 编制自已的电话录音小程序-VB资料 程序中如何启动默认的拨号连接-VB资料 打开浏览器并进入指定网址-VB资料 得到用户的IP地址 -VB资料 电话拨号 -VB资料 电子邮件的标准格式 (RFC 822)-VB资料 断开拨号网络的连接-VB资料 断开与 Internet 的连接 -VB资料 发送电子邮件附件-VB资料 VB获得用户网络登录名 基 于Win95 的VB5 串 口 通 信 程 序 基于Win95的VB5串口通信程序 离职,却被原来公司经理阴了一下 求AutoResize控件(分不够可加) 谁做过远程代理的程序(急,100分求助,不够再给) mm不让我去接她 树形菜单的问题 如何限制对SQLSERVER的请求访问数? 各位,跪谢了!不能见死不救啊! session 问题 我的服务器 无法更改 session值了 有没有好的远程服务器监控软件 主细表类型的报表问题,希望有人帮我!先谢谢了!(急) 大家救救我得机子吧~~ 极度深奥的问题!!有没有谁知道“xp_logattach ”这个存储过程的实际作用与用法。 ADO 错误代码 (能否置顶啊..斑主) ini文件的保存 智能卡读写设备(成熟技术)== 想借鉴请进 提问?关于用DreamweaverMX处理网页参数问题? ping命令的奇怪问题,你遇到过没? 有谁知道windows一共出了多少版本(包括不同语言,不同版本) 有谁知道windows一共出了多少版本(包括不同语言,不同版本) 初学者,请教小问题~~~ 用opengl写的一个屏保,有些问题想和大家讨论 帮我看看 有谁知道windows一共出了多少版本(包括不同语言,不同版本) 想暴力解决点问题,大家给点意见! 熟悉J2EE和Web,但是英语四级没过,郁闷呀!散分讨论 怎样使用一个窗体总是显示在最后面和怎样在windows桌面上写上文字。 如果全世界只有一个男人... .net组件有没有对象池的功能? 编程男友和淘气女友!绝配!!!! 企业管理器很慢? 关于窗体的问题 我明年打算考中程,到底难吗? 网络编程 为什么我的mdb数据库不能设置对象指针可以移动啊? 急啊!!!有没有做过论坛发帖机啊能否帮我一下就是怎样提交CSDN论坛的注册信息然后得到左边的树列表和右边的列表 本人做系统时有一个操作员列表,为使每个操作员的密码保密,想在数据表据中将密码用*号代替,怎么办? 怎么檢測一個線程是否已經創建? 解密软件,哪里找 美萍VOD是怎么实现不用网络共享而完成点播的呢? com入门问题2 jb8+Weblogic配置后,在jb8中不能编译jsp文件,但java文件可以编译 哪里有好的控件下载,介绍几个好的网站!!! 一个很久没有解决的问题,请各位指教。 高分求救程序 我装RASPPP软件的时候,他要我的数字签名怎么办? javaBean 是否能在应用程序里面调用??怎么调用?? 企业管理器很慢? 100分求解,急!请大家帮忙 请教:新建论坛在客户机上能访问,在服务器上却报“Microsoft VBScript 编译器错误 错误 '800a03f6'” 怎么把别人的代码窗体文件,加到自己的工程里? 权限问题 Let后是否加动词? 已知函数y=2x^2+(k-2)x+k的图像过原点,则k的值是------ she has studied (对<>里面的进行提问) ( )( )( )she.studied? they,do,Do,on,homework,Saturdays 连词成句 your,Is,maths,clever,teacher?连词成句五年级上册的内容,总感觉词语少了点.给跪了! 《送友人》诗中作者描写“浮云” “游子”使诗人联想到( )表达了诗人怎样的情感 我英语老学不好.很容易忘,渐渐产生逆反心理,甚至厌学 找本西语的书请问哪里有现代西班牙语的书卖?是否有磁带? 边缘这个解释完全不能帮助我无障碍阅读啊.这个词发明出来到底是为了表达什么?不要复制词典翻译给我 以“我受到的赞扬与批评”为题写一篇作文要写同一件事,就是父母对你做的某一件事或某一作品的不同评价,去看看一篇叫《“精彩极了”和“糟糕透了”》的文章,你就知道我要的是什么作 First Certificate什么意思? Certificate student什么意思 联大连续22年通过决议要求美国解除对朴槿惠为韩国职棒开球 因穿日本品牌球波兰曝光美国驻华沙使馆内的窃听设备(美国家安全局局长否认针对欧洲盟友“窃欧盟官员要求美国加强隐私保护以重建互美国得州一男子五地疯狂射杀 致其母在奥巴马考虑停止窃听盟国领导人日媒称安倍秀强硬让中日问题难解决 损钓鱼岛问题成安倍实现外交和安保战略工中方敦促日本说明扩军真实意图美国会将彻查全部监视项目甘肃城市供热重大事故应急预案出炉甘肃高考阅卷明日开始 成绩与分数线2今年甘肃或迎扎推生育潮 计生考核坚持甘肃省举办寻找“最美家庭”进社区活动榕高校手绘大赛揭晓内蒙古将加快淘汰水泥等行业过剩产能 头奖3672注奖金2千教师参加学校K歌摔伤 法院认定属工伤英语轻松数理化纠结 16万考生结束2头奖3注奖金6万这就叫卖片的节奏!洪荒之神龙教主神炉炼仙修真工厂魔道诺亚公元2056年之后命运天尊大学之巅全女佣兵巫师之刃拳法无敌盖世魔徒百年鼓浪屿博物馆旅游愉景湾旅游印山王陵旅游卢宅建筑群旅游秀水街旅游上苏庄旅游南安寺塔旅游陶渊明纪念馆旅游石钟山旅游永福禅寺旅游丽水金沙旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘