打開和關閉的CD-ROM的大門

以利沙發表的例子 ， 幽默 ， 教程 1對09，2009 | 14

基於這個視頻，我看到今天在互聯網上，我決定如何做這個簡單的崗位，通過在Visual Basic程序發布。網絡，光盤門的開啟和關閉。

要運行的例子，我們只需要一種形式和兩個按鈕（開幕式），如圖片中所示：

下面的代碼： 

公共類Form1
    聲明函數mciSendString LIB“winmm.dll”別名“mciSendStringA”_
        （LpCommandString作為字符串，如字符串BYVAL lpReturnString BYVAL，_
       只要作為長，只要BYVAL hwndCallback UReturnLength BYVAL）

    私人小組中button1_Click（0 System.Object的，BYVAL e由於發件人）把手Button1.Click

         AbrirCDROM（）
     END SUB

    私人小組Button2_Click（0 System.Object的，BYVAL e由於發件人）處理Button2.Click
         cerrarCDROM（）
     END SUB

     AbrirCDROM公共小組（）
         mciSendString（“集CDAudio開門”，“”，0，0）
     END SUB

     CerrarCDROM公共小組（）
         mciSendString（“集CDAudio大門緊閉”，“”，0，0）
     END SUB

末級

準備好了！ 享受它，如果你有一個孩子......把一個循環內的代碼和一根繩子。

14響應“打開和關閉的CD-ROM的大門”

  1. Bitacoras.com 說：
    01/09/2009於2:07上午

    信息Bitacoras.com ...

    在Bitacoras.com率：基於這個視頻，我看到今天在互聯網上，我決定發表關於如何做這個簡單的市民，通過在Visual Basic.NET方案的CD門的開啟和關閉。 例如SIMPL ......

    回答
  2. 戰神說：
    9時28分01/09/2009

    如果你睡不好覺。
    問候

    回答
  3. Bitacoras.com 說：
    01/09/2009於上午10:09

    信息Bitacoras.com ...

    在Bitacoras.com率。基於視頻我今天看到的網，我決定在互聯網上發布關於如何做到這一點簡單的後，通過在Visual Basic程序的CD門的開啟和關閉。 運行例如SIM .....

    回答
  4. m.altm說：
    02/09/2009於7:38下午

    嗨，我發現很不錯的程序，我想用它在Visual Basic 2005。
    你可以寫在這門語言？ 非常感謝。 這是您發送電子郵件的答复， parisparis2@hotmail.es

    回答
  5. 野馬說：
    17/09/2009於12:29

    好奇，我試圖在視覺淨2005
    我去掉了錯誤或任何東西，但打開按鈕運行時，它會打開，但拋出一個可視化的消息如下：

    一個調用的PInvoke函數“WindowsApplication1！WindowsApplication1.Form1 :: mciSendString”不平衡堆棧。 這可能是由於託管

    MDA的錯誤......這是什麼意思？

    謝謝

    回答
  6. EFRA說：
    18/09/2009於11:26下午

    以及2005年在vb.net中，我試圖一切完美的作品......我想參加，我有一些例子...

    回答
  7. 古斯塔沃說：
    23/09/2009於2:55下午

    我也給我同樣的錯誤，這是什麼將如野馬？

    回答
  8. 克里斯蒂安·加西亞說：
    13/02/2010於6:35下午

    起初我不明白，但我看到了幾個veses可以理解一點點。 但如果你了解這是otoniel

    回答
  9. 伊斯梅爾說：
    01/06/2010於2:39下午

    這個漂亮的小程序！

    回答
  10. jrchico說：
    12/09/2010於下午3:40

    打招呼的朋友，我用這個代碼完美的作品我：

    公共類Form1
    私營聲明函數mciSendString LIB的“winmm.dll的”別名“mciSendStringA”（BYVAL作為字符串，如字符串，如整數，BYVAL hwndCallback將作為整數BYVAL uReturnLength BYVAL lpstrReturnString lpstrCommand）將作為整數

    私人小組中button1_Click（0 System.Object的，BYVAL e由於發件人）把手a.Click
    AbrirCDROM（）
    a.Enabled =假
    c.Enabled =
    END SUB

    私人小組Button2_Click（0 System.Object的，BYVAL e由於發件人）處理c.Click
    cerrarCDROM（）
    c.Enabled =假
    a.Enabled =
    END SUB

    AbrirCDROM公共小組（）
    mciSendString（“集CDAudio開門”，“”，0，0）
    END SUB

    CerrarCDROM公共小組（）
    mciSendString（“集CDAudio大門緊閉”，“”，0，0）
    END SUB

    Button1_Click_1私人小組（作為System.Object的，BYVAL e由於的BYVAL發件人）把手Button1.Click
    Application.Exit（）
    END SUB

    小組將Form1_Load（0 System.Object的，BYVAL e由於發件人）把手MyBase.Load
    END SUB
    末級

    回答
  11. jrchico說：
    12/09/2010於3:56下午

    必須添加3個按鈕和標籤和圖片
    至
    Ç
    Button1的

    根根打開CDROM
    c鍵是關閉
    button1的是退出應用程序
    標籤是可選
    圖片是可選

    回答
  12. 愛德華說：
    2011年5月6日在2:16上午

    感謝jrchico

    回答

評論