Eject knap

Hej jeg har lige svaret på dit andet spm. på præcis det samme her:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=24699&lngWId=1

/Answer

Klik videre her:

http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&txtCriteria=eject+cd&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1

/Answer

Det er vel den der zipmedia du mener jeg skal bruge?

Har ikke testet det.

Du skal trykke på "Download"

Tryk på "download code"

----------------module----------------

Public Declare Function SendCD Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub EjectCD()
On Error Resume Next
    SendCD "set CDAudio door open", returnstring, 127, 0
End Sub

Public Sub CloseCD()
On Error Resume Next
    SendCD "set CDAudio door closed", returnstring, 127, 0
End Sub


-------------Åben CD-----------------
Private Sub cmdEject_Click()
    'set the mousepointer to indicate to the user
    'that the computer is doing something
    MousePointer = vbHourglass
   
    'call sub
    EjectCD
   
    'return to normal cursor
    MousePointer = vbDefault
End Sub


-----------Luk CD-------------------
Private Sub cmdClose_Click()
    'set the mousepointer to indicate to the user
    'that the computer is doing something
    MousePointer = vbHourglass
   
    'call sub
    CloseCD
   
    'return to normal cursor
    MousePointer = vbDefault
End Sub


-------------------------------

Her er det så!

husk at accepter svarene på begge dine spm. :)

/Answer

answermaster: kan du ikke lige checke det andet spørgsmål... for så vil jeg hellere gøre det på timer-måden.

Jeg har checket det!

Det jeg har skrevet ovenfor åbner cd-rom drevet og lukker det igen..

Webwally du må hellere lukke dette spm. så vi ikke hele tiden skal chatte to forskellige steder..................................................................................

/Answer