作者brianpcbest (FF4)
看板Visual_Basic
标题[VB6 ] 转换成.net的问题
时间Thu Jan 4 23:48:31 2007
如果要将下面这段程式转成.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