Question

我用旧电脑制作音乐盒。我试图从列表框1中获取所选歌曲，以便在按下播放按钮时播放。所有歌曲都有类型。表单1具有用于选择哪种类型的按钮，单击它时会打开另一个带有列表框的表单。例如，在表单2（此表单的类型是国家/地区）上，列表框设置为在“C：/ newfiles / country /”中搜索。文件夹中的所有歌曲都显示在列表框中。问题是我试图让程序从列表框中播放选定的歌曲，而不必设置每首歌曲的目录。

我尝试以这种方式制作程序的原因是我只能添加/删除目录中的歌曲而不必从程序中设置/删除目录。

代码：公共类Form2

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
    ' make a reference to a directory
    Dim di As New IO.DirectoryInfo("c:\newfiles\Country\")
    Dim diar1 As IO.FileInfo() = di.GetFiles()
    Dim dra As IO.FileInfo

    'list the names of all files in the specified directory
    For Each dra In diar1
        ListBox1.Items.Add(dra)
    Next
End Sub

Private Sub backButton1_Click(sender As Object, e As EventArgs) Handles backButton1.Click
    Me.Close()
    Form1.Show()
End Sub

Private Sub PlayButton1_Click(sender As Object, e As EventArgs) Handles PlayButton1.Click
 ?



End Sub

Private Function AxWindowsMediaPlayer1() As Object
    Throw New NotImplementedException
End Function

结束班

Answer 1

根据我的评论，为您的文件路径声明一个变量：

const sheet = document.createElement('style');
document.body.appendChild(sheet);
sheet.innerHTML = '.btn-primary {background-color: ' + colorVar  + '!important;}';
sheet.insertAdjacentHTML('beforeend', 'input::placeholder {color:' + colorVar + '!important;}');

然后使用Path类来组合您的音乐路径和文件名：

Private musicPath As String = "c:\newfiles\Country"

vb.net。从所选项目播放文件

1 个答案: