オープンとクローズのCD - ROMの扉

でエリシャが投稿した例として、ユーモア、チュートリアル 09第一で、2009 | 14応答

このビデオに基づいて、私はVisual Basicプログラムを通じて、その方法については、この単純な投稿を公開することを決めた。NETで、CDのドアが開いたり閉じたりすることだと、インターネット上で今日見た。

我々は一つのフォームと図のように2つのボタン（オープンおよびクローズ）が必要な例を実行するには：

と、次のコード：

 Public Class Form1の
    ファンクションmciSendStringのlib"WINMM.DLL"エイリアス"mciSendStringを"宣言_
        （文字列としてLpCommandString ByValを、文字列としてByVal lpReturnString、_
       ロングとしてロングは、ByVal hwndCallbackロングとしてとしてByVal UReturnLength）

    します。Private Sub Button1_Click（いるSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信）ハンドルButton1.Click

         AbrirCDROM（）
     End Subの

    プライベートサブをbutton2_Click（いるSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信）ハンドルButton2.Click
         cerrarCDROM（）
     End Subの

     AbrirCDROMのPublic Sub（）
         mciSendString（"セットCDAudioドアオープン"、""、0、0）
     End Subの

     CerrarCDROMのPublic Sub（）
         mciSendString（"、"セットCDAudioのドアが閉じて""、0、0）
    最後のサブ

エンドクラス

レディ！それを楽しむにして、赤ちゃん...ループ内のコードを配置し、ロープを得るためにしている場合。

14の応答は、"CD - ROMの扉を開いて、閉じる"に

Bitacoras.comは述べています：
午前2時07分時2009年1月9日
Bitacoras.com情報...
Bitacoras.com値：このビデオをもとに私が今日、オンラインで見ては、Visual Basicプログラムを使用して、単純なことについては、この投稿を公開することを決めたネット、お使いのCDのドアが開いたり閉じたりするということ。。例を単純にする... ..
回答
アレスは言う：
9:28で2009年1月9日
もしよく寝場合参照してください。
に関して
回答
Bitacoras.comは述べています：
午前10:09 2009年1月9日
Bitacoras.com情報...
Bitacoras.com値：ご使用のCDのドアが開いたり閉じたりすることだと私はVisual Basicプログラムを通じて、その方法については、この単純な投稿を公開することを決めた、インターネット上で今日見た映像をもとに、ネット、。例を単純にする... ..
回答
M.altmは言う：
19:38時2009年2月9日
こんにちは、私は非常に良いプログラムを発見、私は、Visual Basic 2005でそれを使用したい。
この言語で書き込むことができますか？どうもありがとうございました。これは、返信、送信するメールですparisparis2@hotmail.esを
回答
- エリシャは言う：
  午前9:23 2009年3月9日
  こんにちは：
  あなたは、Visual Basicでこれと同じコードを使用することができます。2005。
  運
  回答
ムスタングは言った：
12:29時17/09/2009
2005年の純で視覚的な好奇心プローブ
私はミスか何かを取り除くが、オープンボタンで実行すると、それは開きますが、次のように視覚的なメッセージがスローされます。
PInvokeの関数'！WindowsApplication1をWindowsApplication1.Form1：mciSendString'への呼び出しは、スタックのアンバランスしている。これは可能性が管理されているため、
MDAのエラー..どういう意味でしょう？
感謝
回答
EFRAは言う：
23:26時18/09/2009
vb.net 2005年にはプローブとすべてのものにも最適です...私は私が持っているいくつかの例と参加したいと思います...。
回答
- ABCは言う：
  23:27時18/09/2009
  -----
  回答
グスタボは言う：
14:55時23/09/2009
間違いを私に命じてその何でしょうかムスタング、？
回答
クリスティアンガルシアは言う：
18:35時13/02/2010
最初は私はそれを理解していないが、それを数vesesを見れば、私は少しを理解することができます。けれどそれがotonielであることを理解していれば
回答
イスマエルは言う：
14:39時2010年1月6日
小さなプログラム良い！
回答
jrchicoは言う：
15:40時2010年12月9日
こんにちは友人私はこのコードを使用するには、完璧に私の作品：
Public Class Form1の
プライベート関数mciSendStringのlib"WINMM.DLL"エイリアス整数として"mciSendStringを"（文字列としてByVal lpstrCommand、整数として整数は、ByVal hwndCallbackとしてString、ByValをuReturnLengthとしてByVal lpstrReturnString）宣言
します。Private Sub Button1_Click（いるSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信）ハンドルa.Click
AbrirCDROM（）
a.Enabled =偽
=真c.Enabled
End Subの
プライベートサブをbutton2_Click（いるSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信）ハンドルc.Click
cerrarCDROM（）
c.Enabled =偽
=真a.Enabled
End Subの
AbrirCDROMのPublic Sub（）
mciSendString（"セットCDAudioドアオープン"、""、0、0）
End Subの
CerrarCDROMのPublic Sub（）
mciSendString（"、"セットCDAudioのドアが閉じて""、0、0）
End Subの
Button1_Click_1プライベートサブ（いるSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信）ハンドルButton1.Click
Application.Exit（）
End Subの
プライベートサブのForm1_Load（いるSystem.EventArgsとしてはSystem.Object、ByValを電子としてByVal送信）ハンドルMyBase.Load
End Subの
エンドクラス
回答
jrchicoは言う：
15:56時2010年12月9日
3つのボタンと画像のラベルを追加する必要があります。
への
C
Button1を
スタッドは、cdromを開くことです
Cボタンで閉じることです。
Button1はアプリケーションを終了することです。
labelは省略可能です。
写真はオプションです
回答
エドゥアルドは言った：
午前2時16時2011年5月6日
感謝jrchico
回答