Private Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = True
Print "播放中"
End Sub
Private Sub Command2_Click()
Command2.Enabled = False
Command1.Enabled = True
Command3.Enabled = True
Print "暂停中"
End Sub
Private Sub Command3_Click()
Command3.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Print "请选择媒体"
End Sub
Private Sub Form_Load()
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
End Sub
运行:
很简单,其实vb很好玩的~~~