'弹出CD-VB基础教程第十二章
'弹出CD Private Sub Command5_Click（） If Command5.Caption = "弹碟" Then mciExecute "seek cd door open" Command5.Caption = "回位" Else mciExecute "seek cd to close" Command5.Caption = "弹碟" End If
文件大小：179KB
评论区