如果要將下面這段程式轉成.NET~有哪些關鍵字要改的
在表單上放兩個Button，Button1 為Open，Button2為Close:
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 Command1_Click() 'Open
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub Command2_Click() 'Close
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub
謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.57.128.92