ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
Eject DVD/CD-ROM Drive [ VB6 ]
แสดงแล้ว 5349 ครั้ง /
เมษายน 11, 2010, 11:15:38

ICheer_No0M

ออฟไลน์ ( @ITD-TEAM )
กระทู้ : 36
คะแนนขอบคุณ : 0
โค๊ด: [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


hijack

ออฟไลน์
กระทู้ : 5
คะแนนขอบคุณ : 0
มิถุนายน 02, 2010, 16:31:02
โอว หามานาน ขอบคุณครับ  :'(

 

ด้วยฟังค์ชั่น ตอบด่วน คุณสามารถใช้โค๊ดและ เครื่องหมายแสดงอารมณ์ได้ เหมือนการตั้งกระทู้ธรรมดา แต่สามารถทำได้สะดวกกว่า

ระวัง: หัวข้อนี้ไม่มีการอัพเดทมานานถึง 120 วัน

แจ้งเตือน: โพสของคุณจะไม่แสดงจนกว่าผู้ดูแลจะอนุมัติ.
ชื่อ: อีเมล์: