Atidaryti ir uždaryti duris į CD-ROM

Posted by Eliziejų pavyzdžiai , humoras , vadovėliai apie 09 1, 2009 | 14 atsakymai

Remiantis šio vaizdo aš mačiau internete šiandien aš nusprendė paskelbti šį paprastą pranešimus apie tai, kaip tai padaryti, naudojant programą Visual Basic. NET, CD durys, atidaryti ir uždaryti.

Norėdami paleisti pavyzdį, mes tiesiog reikia vienas deklaracijos blankas ir du mygtukus (atidarymas), kaip parodyta paveikslėlyje:

ir taip kodas: 

 Viešųjų klasė Form1
     Pripažinti, funkcinių mciSendString Lib "Winmm.dll" alias "mciSendStringA" _
        (Kaip styginių, ByVal lpReturnString As String ByVal LpCommandString, _
        UReturnLength ByVal Kaip Long, ByVal hwndCallback, As Long) tol, kol

     Private Sub Button1_Click (ByVal siuntėjas Kaip System.Object, ByVal el Kaip System.EventArgs) Rankenos Button1.Click

         AbrirCDROM ()
     End Sub

     Asmeninis. Pietus Button2_Click (ByVal siuntėjas Kaip System.Object, ByVal el Kaip System.EventArgs) Rankenos Button2.Click
         cerrarCDROM ()
     End Sub

     AbrirCDROM Public Sub ()
         mciSendString ("rinkinys CDAudio atviras duris", "", 0, 0)
     End Sub

     CerrarCDROM Public Sub ()
         mciSendString ("rinkinys CDAudio durys uždarytos", "", 0, 0)
     End Sub

 Pabaiga klasė

Dėmesio! patiks, ir jei turite kūdikį ... įtraukėte kodą kilpa viduje ir gauti virvę.

14 Atsakymai į "Atidaryti ir uždaryti duris į CD-ROM"

  1. Bitacoras.com sako:
    2009/1/9 ne 2:07 am

    Informacija Bitacoras.com ...

    Tarifas Bitacoras.com: pagal šį vaizdo įrašą aš mačiau internete, šiandien aš nusprendžiau rašyti apie tai, kaip padaryti šį paprastą visuomenę, naudojant programą Visual Basic Net, kad CD durys, atidaryti ir uždaryti. Pavyzdžiui, česnakas .....

    Atsakyti
  2. Ares sako:
    2009/1/9 ne 9:28 am

    Žr jeigu jūs miegoti gerai.
    dėl

    Atsakyti
  3. Bitacoras.com sako:
    2009/01/09 ne 10:09 valandos ryto

    Informacija Bitacoras.com ...

    Tarifas Bitacoras.com: Remiantis šiandien aš mačiau internete, aš nusprendė paskelbti šį paprastą pranešimus apie tai, kaip tai padaryti, naudojant programą Visual Basic NET, kad CD durys, atidaryti ir uždaryti. Vaizdo. Paleisti pavyzdys sim .....

    Atsakyti
  4. M.altm sako:
    2009/2/9 ne 7:38 pm

    Sveiki, radau labai gerą programą, norėčiau ją naudoti Visual Basic 2005.
    Jūs galite rašyti šia kalba? Labai ačiū. Tai laišką, kad jūs siunčiate atsakymą, parisparis2@hotmail.es~~HEAD=dobj

    Atsakyti
  5. Karininkas sakė:
    Ne 12:29 pm 17/09/2009

    smalsumas Aš išbandžiau regėjimo grynojo 2005 m.
    Aš juostelės klaidą arba nieko, bet kai paleisti ant atviros mygtuką, jis atidaro bet meta vaizdo pranešimas yra taip:

    Kvietimas PInvoke funkciją "WindowsApplication1! WindowsApplication1.Form1 :: mciSendString" nesubalansuotas kamino. Tai tikėtina, nes valdomas

    MDAs klaida .. ką tai reiškia?

    ačiū

    Atsakyti
  6. efra sako:
    Ne 11:26 pm 18/09/2009

    Na aš išbandžiau, VB.NET 2005 ir viskas puikiai veikia ... Norėčiau dalyvauti kai kuriuos pavyzdžius, kad aš ...

    Atsakyti
  7. Gustavo sako:
    23/09/2009 ne 2:55 pm

    Aš taip pat atsiuntė man tą pačią klaidą kaip Mustang, kuris kas bus?

    Atsakyti
  8. Cristian Garcia sako:
    13/02/2010 ne 6:35 pm

    iš pradžių aš nesuprantu, bet pamatyti jį keletą veses galėčiau šiek tiek suprantu. bet jei jūs suprantate, kad tai otoniel

    Atsakyti
  9. Ismaelis sako:
    2010/1/6 ne 2:39 pm

    Šis gražus programa!

    Atsakyti
  10. jrchico sako:
    2010/12/09 ne 3:40 pm

    hello friend Aš naudoju šį kodą puikiai veikia mane:

    Viešųjų klasė Form1
    Asmeninis Pripažinti Funkcija mciSendString Lib "Winmm.dll" Alias ​​"mciSendStringA" (ByVal lpstrCommand Kaip String, ByVal lpstrReturnString As String, kaip sveikasis skaičius, ByVal hwndCallback kaip sveikasis skaičius ByVal uReturnLength) Sveikasis skaičius

    Asmeninis. Pietus Button1_Click (ByVal siuntėjas Kaip System.Object, ByVal el Kaip System.EventArgs) Rankenos a.Click
    AbrirCDROM ()
    a.Enabled = False
    c.Enabled = true
    End Sub

    Asmeninis. Pietus Button2_Click (ByVal siuntėjas Kaip System.Object, ByVal el Kaip System.EventArgs) Rankenos c.Click
    cerrarCDROM ()
    c.Enabled = False
    a.Enabled = true
    End Sub

    AbrirCDROM Public Sub ()
    mciSendString ("rinkinys CDAudio atviras duris", "", 0, 0)
    End Sub

    CerrarCDROM Public Sub ()
    mciSendString ("rinkinys CDAudio durys uždarytos", "", 0, 0)
    End Sub

    Button1_Click_1 Private Sub (ByVal siuntėjas Kaip System.Object, ByVal el Kaip System.EventArgs) Rankenos Button1.Click
    Application.Exit ()
    End Sub

    Private Sub Form1_Load (ByVal siuntėjas Kaip System.Object, ByVal el Kaip System.EventArgs) Rankenos MyBase.Load
    End Sub
    Pabaiga klasė

    Atsakyti
  11. jrchico sako:
    2010/12/09 ne 3:56 pm

    turi pridėti 3 mygtukus ir etiketės ir ant paveikslėlio
    į
    c
    Button1

    žirgynas yra atidaryti CDROM
    c mygtuką, kad uždarytumėte
    button1 yra uždarote programą
    Etiketė nėra privaloma
    Foto yra nebūtina

    Atsakyti
  12. Eduardas sako:
    2011/05/06 2:16 am

    ačiū jrchico

    Atsakyti

Komentuoti