IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT

ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: ICheer_No0M ที่ เมษายน 11, 2010, 11:15:38

หัวข้อ: Eject DVD/CD-ROM Drive [ VB6 ]
เริ่มหัวข้อโดย: ICheer_No0M ที่ เมษายน 11, 2010, 11:15:38

โค๊ด: [Select]

Option Explicit
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 darkOpen_Click()
    mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub
Private Sub darkClose_Click()
    mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub

จากด้านบนเป็นโค้ดที่ใช้ในการเปิด-ปิดถาดหรือ Eject CD-ROM Drive ด้วยฟังก์ชั่น mcisendstring นะครับ ..

สิ่งที่ต้องการคือ CommandButton 2 อันนะครับ ..

ตั้งชื่อว่า darkOpen กับ darkClose ครับ ..

ลองนำไปประยุกต์ใช้กันดูนะครับ ...

IT-DARK

หัวข้อ: Re: Eject DVD/CD-ROM Drive [ VB6 ]
เริ่มหัวข้อโดย: hijack ที่ มิถุนายน 02, 2010, 16:31:02

โอว หามานาน ขอบคุณครับ  :'(