会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前Private Sub Button1_Click(ByVal sender As System.Object, _ |
ByVal e As System.EventArgs) _ |
Handles Button1.Click |
Const DATA_FILE_EXTENSION As String = ".mp3" |
Dim dlgFileDialog As New OpenFileDialog |
With dlgFileDialog |
.Filter = DATA_FILE_EXTENSION & _ |
" files (*" & DATA_FILE_EXTENSION & "|*" & DATA_FILE_EXTENSION |
.FilterIndex = 1 |
.RestoreDirectory = True |
If .ShowDialog() = DialogResult.OK Then |
'Play the sound file |
Me.AxWindowsMediaPlayer1.URL = dlgFileDialog.FileName |
End If |
End With |
End Sub |
by: 发表于：2017-11-27 11:31:20 顶(0) | 踩(0) 回复
？？
回复评论