亚洲激情专区-91九色丨porny丨老师-久久久久久久女国产乱让韩-国产精品午夜小视频观看

溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

VB語言中如何進行mp3音樂鬧鐘開發

發布時間:2022-01-14 19:47:00 來源:億速云 閱讀:142 作者:柒染 欄目:大數據

本篇文章為大家展示了VB語言中如何進行mp3音樂鬧鐘開發,內容簡明扼要并且容易理解,絕對能使你眼前一亮,通過這篇文章的詳細介紹希望你能有所收獲。

mp3音樂鬧鐘開發

如何播放指定音樂?

VB中播放音樂利用的是window media player

能夠播放mp3、m4a等格式的音頻

如何進行音樂控制?

需要使用代碼控制

界面:

VB語言中如何進行mp3音樂鬧鐘開發

項目列表(這里還有一個音樂文件1.m4a):

VB語言中如何進行mp3音樂鬧鐘開發

源代碼:

Option ExplicitDim startMusictime As DatePrivate Sub Command1_Click()WindowsMediaPlayer1.URL = App.Path & "\1.m4a"End Sub

Private Sub Command2_Click()
If Command2.Caption = "重新設置" Then    Option1.Enabled = True    Option2.Enabled = True    Option3.Enabled = True    Command2.Caption = "設置音樂定時"    Picture1.Cls    Exit SubEnd If
If Option1.Value Then    startMusictime = DateAdd("s", 5 * 60, Now)    Picture1.Print startMusictime & "開始播放音樂"ElseIf Option2.Value Then    startMusictime = DateAdd("s", 10 * 60, Now)    Picture1.Print startMusictime & "開始播放音樂"ElseIf Option3.Value Then        startMusictime = CDate(Text1.Text)    Picture1.Print startMusictime & "開始播放音樂"Else    MsgBox "請選擇時間"    Exit SubEnd If
Option1.Enabled = FalseOption2.Enabled = FalseOption3.Enabled = FalseCommand2.Caption = "重新設置"End Sub
Private Sub Command3_Click()If Command3.Caption = "暫停" Then    WindowsMediaPlayer1.Controls.pause    Command3.Caption = "繼續播放"ElseIf Command3.Caption = "繼續播放" Then    WindowsMediaPlayer1.Controls.play    Command3.Caption = "暫停"End IfEnd Sub
Private Sub Option3_Click()Text1.Text = NowEnd Sub
Private Sub Timer1_Timer()Label1.Caption = "現在時間:" & NowIf Now = startMusictime Then    WindowsMediaPlayer1.URL = App.Path & "\1.m4a"End IfEnd Sub

上述內容就是VB語言中如何進行mp3音樂鬧鐘開發,你們學到知識或技能了嗎?如果還想學到更多技能或者豐富自己的知識儲備,歡迎關注億速云行業資訊頻道。

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

AI

分宜县| 牡丹江市| 高平市| 灵璧县| 林州市| 保靖县| 富源县| 怀远县| 白银市| 凉山| 太和县| 泾阳县| 千阳县| 东辽县| 沙雅县| 东山县| 甘泉县| 玉田县| 南阳市| 浪卡子县| 巨鹿县| 双鸭山市| 汶上县| 株洲市| 罗定市| 垦利县| 衡山县| 虞城县| 巴彦县| 斗六市| 夏河县| 惠东县| 会昌县| 乌兰浩特市| 泉州市| 岢岚县| 清远市| 嘉善县| 府谷县| 文成县| 敦煌市|