- 情况 1:
- (语句无法识别,可能有错误): Form1.選擇.Enabled = True
- 令 Form1.路徑.Enabled = True
- 令 Form1.播放.Enabled = True
- 令 Form1.停止.Enabled = True
- 情况 :
- (语句无法识别,可能有错误): Form1.選擇.Enabled = False
- 令 Form1.路徑.Enabled = False
- 令 Form1.播放.Enabled = False
- 令 Form1.停止.Enabled = False
- 选择结束
- (语句无法识别,可能有错误): End Event
- 注释:選擇MP3文件路徑
- (语句无法识别,可能有错误): Event Form1.選擇.Click
- 定义变量 MP3
- (语句无法识别,可能有错误): MP3 = Plugin.File.SelectFile() '打開選擇文件對話框
- 如果 UCase(Right(MP3,4)) = ".MP3" 或者 UCase(Right(MP3,4)) = ".WAV" 则
- 注释:檢查是不是選中 .mp3 音樂文件
- 条件结束
- 令 Form1.路徑.Text = MP3
- 否则
- 如果 MP3 <> "" 则
- MsgBox("請選擇「.mp3或者.wav」音樂格式的文件!")
- 条件结束
- 条件结束
- (语句无法识别,可能有错误): End Event
- 注释:播放音樂測試
- Event(Form1.播放.Click)
- 调用 Media.Play(Form1.路徑.Text)
- (语句无法识别,可能有错误): End Event
- 注释:停止播放音樂
- Event(Form1.停止.Click)
- 调用 Media.Stop()
- (语句无法识别,可能有错误): End Event
- 注释:停止播放音樂
- (语句无法识别,可能有错误): Event Form1.UnLoad '當窗體被關閉卸載後觸發的事件
- 调用 Media.Stop()
- (语句无法识别,可能有错误): End Event
- 注释:加載窗體時釋放MP3文件
- (语句无法识别,可能有错误): Event Form1.Load '當窗體被加載時觸發的事件
- 展开附件 *.wav 到 C:\ 文件夹
- (语句无法识别,可能有错误): End Event