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

控制光驱门的开关 -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如何利用程序拉下 ComboBox? VB如何让窗体右上角的X失效? VB如何使Form的背景图随Form大小改变 VB如何使Text文本框的属性只读? VB如何使窗体右上角的"X"无效? VB如何使窗体最小化并消失 VB如何在VB和Delphi中快速实现立体化窗口显示 VB如何在VB中实现绘图区的大十字光标 VB如何在VB中制作不回显的文本框 VB如何制作浮动式窗口 闪烁的Label-VB资料 设定StatusBar的文字成不同的颜色-VB资料 设计一个可中断循环的按钮-VB资料 设置“执行无用户界面”-VB资料 生成一个透明窗体 -VB资料 实现窗体内部的左右移动 -VB资料 实现鼠标移到窗口上时变大,移出窗体时变小(如《东方快车》)-VB资料 实现图片平铺于窗体中-VB资料 使程序的标题条闪烁 -VB资料 使窗口总在最前 -VB资料 使窗体右上角的X按钮失效 -VB资料 VB使用 WIN95 的选择目录对话框 使指定窗口总处于其他窗口之上 -VB资料 通用对话框专辑(全) -VB资料 透明的Form上显示背景透通图 -VB资料 图像在图片框中的滚动 -VB资料 拖动无标题窗口-VB资料 拖动无系统标准标题栏的窗口-VB资料 文本框中光标位置的获得-VB资料 无关联程序时开启“打开方式”窗口 -VB资料 显示 Combo 的下拉条 -VB资料 为什么用gethostbyaddr(ip,size,PF_INET)不能把机器名得到????? 如何将Delphi程序改为汇编? 非常着急,各位高手一起来帮我研究一下这个工作流系统怎么用? 简单问题,肯定给分! 据说高程的通过标准是上下午加起来算了? 请斑竹帮忙 请问各位前辈: 在执行中出现"incorrect syntax near 'JCSZ'"的错误提示,如何解决? 下标越界是什么意思啊? 一个基础性的问题,同样一份C/C++源代码可以在UNIX 和WINDOWS运行需要具有的条件是啥??? 在一台计算机上安装两个键盘同时接受输入的问题 对XML文档中的数据能不能进行SELECE操作???? 如何用JAVA实现263邮件那样的邮件粘贴功能 请教各位大哥,小弟最近遇到麻烦,为什么我的程序安装时,出现expsrv.dll无法注册的提示?expsrv.dll有什么作用?怎样闭掉? 如何在两个结构相同的库之间倒数?? 请问如何简单确定右键点击的是哪个控件? 有哪位高手可以给出windows98登录时网络服务的身份验证模块的程序或相关资料的呢?非常感谢啦 在CTreeCtrl中同时使用系统图标与自定义图标的问题?? SHGetFileInfo()为什么在Win2000下工作不正常? 请问高手:DataGrid的问题 jsp和servlet是怎样交互的? 请问 有什么方法能实现 在几个数中随机取出几个数 谢谢 请问:在执行文件DPR中有一段代码出现错误,请各问指点! 两个问题:1 关于.NET中 一个新控件propertyGrid1的使用问题;2 我想生成一个由lable和TextBox合成的控件(label在左,TextBox靠其右),怎么办? 分栏打印 依旧是undefined function mysqsl_connect()问题 急:如何在生成的exe中添加新的属性页,显示更多文件信息? V-DVD ROM!? MSDN上的例子需要uafxcwd.lib,怎么找不到呢? 请问窗口的other事件是如何触发执行的 JSP如何学习 vc在什么时候会引起小喇叭的叫声 请教高手,如果在VB里实现内存共享? 用什么方法可以转换图片类型?譬如将BMP格式的转换为JPEG格式的,请各位大哥给点提示!!! 关于vb script数组和函数功能的二个问题!高难度! 关天打印问题? 只能最小化到屏幕的左下角 *急:无为,acptvb,请帮忙看看http://www.csdn.net/Expert/topic/426/426766.shtm (有关XMLHTTP) 在php中要取出一段字符串的前n个字节,而又要判断最后一个是中文还是英文,如果是中文则将最后半个字符省略应该怎么做? 有在BCB5中用过sapi5朗读中文的朋友,高分送上! 最初级的问题,关于编译程序的。 重庆市信息产业办公室荣获全国最差信息产业办公室称号 大家用PB创建Jaguar应用程序时,一般创建一个大包还是多个包阿? 奇怪的问题,来者有分!没回答问题的先到先得! 如何把临时表建在内存中 请教一个关于DELPHI多线程的问题 *急:无为,acptvb,请帮忙看看http://www.csdn.net/Expert/topic/426/426766.shtm(有关XMLHTTP) 比爱情少一点,比友情多一点,即不讨厌又不来电,你能做到吗? 请教一个问题,一个分两帧的窗口,分别是两个CView的子类。一个view里的下拉框选中一条记录,使另一个view刷新。不知道用什么mfc函数。 有关新开窗口的问题! please intrduce a good muti-root soft for win95,win98,winme,win2000,winxp 求助:哪位大侠能介绍一下网络传输设备(象 HDSL、Cable Modem)的品牌、厂家和性能? 万级的计数单位有哪些? 用滑轮组匀速提升重为3000牛的物体,作用在绳子自由端的拉力为625牛,拉力做功的功率为1875瓦,滑轮组的机 在整数数位顺序表中,每两个计数单位间的进率是十.小学十年级数学题判断对错. 自行车上哪些部位要增大摩擦?哪些部位要减小摩擦?这些部位各用什么方法来增大或减小摩擦力的?具体方法 某滑轮组匀速提升重为2000N的物体,作用在绳子自由端的拉力为625N,物体在20S内匀速上升5m滑轮组机械效率为80%,不计绳重和摩擦.1、绳子段数n2、总功功率3、若提升3000N的物体,滑轮组飞机械效率 从个位起,把整数的数位有顺序的排列出来 . 十位的计数单位是【 】,万位的计数单位是【】相邻两个计数单间的进率是【 】急啊啊啊啊啊! 计数单位“兆”以后是什么? 用滑轮组匀速提起400牛重的物体,作用在绳子自由端的拉力需125牛,拉力做功的功率为250瓦,此时滑轮组的机求 动滑轮的重 如果用这个滑轮组匀速提升900牛重物 作用在绳子上的拉力为多少 机械 挂在天花板上的物体绳子对物体的拉力来自于本身还是地球就是和物体重力平衡的那个力各楼朋友们我是说绳子本身为何有拉力为什么QQ上的人说这个拉力是万有引力? 举四个例子说明怎样减小或增大摩擦力 用滑轮匀速提升重为2000牛的物体,作用在绳子自由端的拉力大小为625牛,拉力的功率为1250瓦,滑轮组的机械公式 一物体质量为M.用绳子挂在天花板上,当以六分之一的加速度竖直加速上升时,求绳对物体的拉力? 物体对支持物的压力(或对悬绳的拉力)大于物体所受重力的现象叫做超重.不是支持力大于重力吗怎么这里说的是压力? 高中物理需平衡摩擦力的实验有哪些 要全! 一物体用绳悬挂于天花板上处于静止它所受绳子拉力的反作用力作用在__上它所受绳子拉力的平衡力是___ 一道科学物理力学上的求绳端拉力F的题重物A是体积为10立方分米,密度为7.9*10三次方 千克/立方米的实心金属块,将它完全浸没在水中,始终未提出水面.若不计摩擦和动滑轮重,要保持平衡,求: 高中物理力学实验哪些需要平衡摩擦力哪些不用?为什么? 高一物理:物体在传送带的摩擦力方向如何判断?用下两个图请具体讲解 计数单位是什么 高中物理必修一二中哪些实验需平衡摩擦力? 【高一物理】平衡摩擦力是什么?怎么做?顺便求(3)详细过程为了验证“当质量一定时,物体的加速度与它所受的合外力成正比”.一组同学用图甲所示的装置进行实验,并将得到的实验数据 个级的计数单位有哪些 在牛顿第二定律的实验中,平衡摩擦力的作用是什么,为什么一定要平衡摩擦力,如果不,有什么影响呢,谢谢 一根绳子能承受的最大拉力是25牛,拉重700牛物体,1米每秒的速度,绳子刚好不断,若5米每秒,绳子会断吗?一根绳子能承受的最大拉力是25牛,拉重700牛的物体,以1米每秒的速度,绳子刚好不会断,若 计数单位都有哪些? 与亿相邻的计数单位是()() 与亿位相邻的数位是()位()位 与亿相邻的自然数是()和()快 一根绳子只能承受1200牛的拉力,如果用它提升浸没在水中10米深 一根绳子只能承受1200牛的拉力,如果一根绳子只能承受1200牛的拉力,如果用它提升浸没在水中10米深,重力为4500牛体积为20分米3的 高中物理中,m 用滑轮组匀速提起400牛的中物体,作用在绳子自由端的拉力为125牛,拉力的功率为250瓦,此时滑轮组的机械效率为80%,不计摩擦和绳重求:(1)物体被匀速提升的速度这一小题答案究竟是多少? 绳子一端系在车上,另一端系在树上,绳长10米,用300牛的拉力把绳子中点向下拉0.5米绳子作用在车上力大A:3000牛B:6000牛C:300牛D:1500根3 物体受重力、支持力、摩擦力、拉力,属于弹力的有什么? 重为G的物体被手抵在墙上,受墙的摩擦力是否为G?那难道不受手的摩擦力吗,那物体岂不不平衡? 用动滑轮提升重物,重物的质量是50千克,绳子自由端在300牛的拉力F作用下以0.2米/秒的速度沿竖直方向匀速上升,求拉力F的功率及动滑轮的机械效率 万级的数位有( ),它们的计数单位分别是( ) 假如没有摩擦力 数位就是计数单位这句话是错的.哪里错了?如果要这句话正确怎么改?错在什么地方? 如何区分“数位”和“计数单位” 在功与速度变化关系中,不平衡摩擦力,能否利用这个实验装置探究拉力与摩擦力的合力做的功速度变化的关系标准答案是:假如不平衡摩擦力,那么当拉力与摩擦力的合力为零时,小车的位置不 探究加速度与力,质量的关系的实验中,需要平衡摩擦力,平衡摩擦力时应该使小车1.挂上钩码,拖上纸带2.不挂钩码,拖上纸带3.不挂钩码,不拖纸带4.挂上钩码,不拖纸带 数位和计数单位的区别? 高中物理实验探究加速度与力和质量的关系时为什么要平衡摩擦力?重点说下目的,不平衡摩擦力会怎样. 实验探究加速度与力,质量的关系中:木板倾角过大是平衡摩擦力过大,还是平衡摩擦力不足还有平衡摩擦力过大过小的图像是什么, 在升降机的天花板上用轻弹簧悬挂一个小球,升降机静止时,弹簧伸长量为4cm,升降机运动时,弹簧伸长量为3cm,则升降机的运动情况可能是A.以a=1/4g的加速度加速下降B.以a=3/4g的加速度加速下降C. 假如没有了摩擦力鬼画符鬼画符鬼画符后 当做探究加速度与力.质量的关系平衡摩擦力时.斜面倾角偏大的a-f图像以a为纵坐标.以F为横坐标.图象是一条倾斜直线.但倾角偏大.所以不过坐标原点.而是在纵轴上有一段截矩这是为什么? 电梯的天花板上悬挂着一根弹簧,弹簧下端悬挂一重物,电梯向上做匀速直线运动,电梯停止后小球运动状况 选择题;把数字写在某一【】上,它才表示一定的数值.A记数单位,B位数C数位 在牛顿第二定律的实验中,如果平衡摩擦力过大或过小,则f与1/m的图像怎么画 数位和计数单位意义不同对吗 个十百千万······是( )a计数法b数位名称c计数单位( 用AC和BC吊起一重物,绳与竖直方向夹角分别为30度和60度,AC绳能承受的最大的拉力是150牛而BC能承受的最大的拉力是100牛,求物体最大重力不能超过多少? 绳端拉动一米,滑轮组内的物体上升几米?有公式吗 将物体用绳子吊在天花板上,绳所受物体的弹力方向是什么?是竖直向上,竖直向下还是指向绳子收缩方向?注意:是绳子受物体,不是物体受绳子… 绳AC,BC吊一重100N的物体,AC,BC与竖直方向夹角为30度与45度,求AC,AB对物体拉力 增大摩擦力和减小摩擦力的办法? 某人用25牛的力拉滑轮组的绳子移动4米,而总重为80牛的物体只升高1米,则滑轮组的机械效率为多少如果是对的,没有过程也行 将物体用绳吊在天花板上,绳受物体给的弹力方向是向上的怎么看弹力的方向就高手解答? 请举出增大有益摩擦力的两个实例和方法和 减少有害摩擦力的两个实例和方法 用滑轮组匀速提升重2000N的物体,作用在绳子自由端的拉力大小为625N,拉力做功为12500J,滑轮组的机械效率为80%,不计轮与转轴之间的摩擦和绳重.(1)求物体上升的高度;(2)如果使用这个滑 弹力的方向从施力物体指向受力物体,比如天花板上吊个物体对绳子的拉力就不否和这种说法
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn