也可以:Private Sub Command1_Click() With CommonDialog1 .ShowOpen If .FileName = "" Then Exit Sub WindowsMediaPlayer1.URL = .FileName End With End Sub
这样就可以选歌了