VBA 用户窗体的应用

用户窗体，今日继续~每次都是一样的标题，这次换了下

 

 

 

 

 

一、使用外部控件做个简单的音乐/视频播放器

对着工具栏点一下右键，就会出现附加组件，找到需要用的外部组件就可以啦，比如咱们要做个视频播放，只需要在附加组件中添加 WindowsMediaPlayer即可，结合昨天我们的列表框，做个简单的音乐或者视频播放器：

具体代码如下（CommandButton1 是播放按钮，CommandButton2是打开文件夹按钮）：

Private Sub CommandButton1_Click()
    On Error Resume Next
    Me.WindowsMediaPlayer1.Url = Me.ListBox1.Value
End Sub

Private Sub CommandButton2_Click()
    Dim path As String
    Dim file As String
    Dim i As Integer
    
    On Error Resume Next
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = "D:\"
        .Title = "选择一个文