Mở và đóng CD từ Excel

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi levanduyet, 4 Tháng sáu 2005.

2,132 lượt xem

  1. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    Hì hì hì,
    Có khi nào các bạn muốn mở và đóng CD từ Excel hay không?
    Bạn hãy copy đọan mã sau vào module, và tạo nút lệnh từ Worksheet và gọi các thủ tục đóng và mở như sau:

    Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _
    ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _
    ByVal hwndCallback As Long)


    Sub OpenCDTray()
    mciSendStringA "Set CDAudio Door Open", 0&, 0, 0
    End Sub


    Sub CloseCDTray()
    mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0
    End Sub

    Chúc các bạn có 1 ngày vui.
    Sưu tầm từ Erlandsen Data Consulting
    Lê Văn Duyệt
     
    #1
  2. vongphuc

    vongphuc Excel Fans Club

    Bài viết:
    300
    Đã được thích:
    4
    Nơi ở:
    Ha Noi
    Cái này trong thực tế mình dùng để làm gì ạ? Không biết có gì thú vị không đây anh Duyệt ơi post tiếp đi nha cho đàn em học hỏi :two:
     
    Last edited: 28 Tháng tư 2008
    #2
  3. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    To:vongphuc,
    Sao hôm nay lại nêu cả Họ tên thế?
    Cái này chỉ để chơi cho vui thôi ! Ai mà trong mạng LAN sử dụng file của mình thì khi mở ra ổ đĩa CD cũng bị mở luôn. Hì hì hì.
    Để làm được điều này em phối hợp với hàm sau:
    Function User()
    ' Tra ve ten cua nguoi dung hien tai
    User = Application.UserName
    End Function
    Chúc vui vẻ với những gì khám phá được.

    Lê Văn Duyệt
    (Buồn ngủ quá, Anh post bài lúc 1h sáng...hu hu hu)
     
    #3

Chia sẻ trang này