如何用VB寫一個播放MPG檔

Question

請問如何用Visual Basic 6.0寫一個置於"C:\MPEG\203.MPG"檔，並於播放時為全螢幕。謝謝!!

做一個textbox讓使用者輸入想播放的檔名，
如 W.J.S 所提的方法做後，第一個輸入的檔名，確實能全螢幕播放; 但第二個以後輸入的名稱，卻都不能全螢幕播放，不知為什麼?

再請教一個相關問題，
請問如何擷取用VB寫的MPG播放程式錯誤碼，因在textbox輸入不存在的MPG檔名時，程式好像不會顯示錯誤碼?

WJS果然厲害。我的問題經他的指點已經解決了。
謝謝WJS的熱心幫助。

Answer 1

'專案需引用Windows Media Player元件,專案→設定使用元件→Windows Media Player
'Name=WindowsMediaPlayer1,且將其fullScreen屬性設為True
Private Sub Form_Load()
Show
With WindowsMediaPlayer1
'請自行把＼改成半型
.URL = "C:＼MPEG203.MPG"
.settings.volume = 100 '音量(0~100)
.Controls.play
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
WindowsMediaPlayer1.Controls.stop
End Sub


2007-02-16 01:16:20 補充：
可先用Dir函數去判斷該檔案是否存在後再執行如:
If Dir("C:＼" & Text.Text & ".MPG") = Text.Text & ".MPG" Then ...
或是可在MediaError事件上做錯誤判斷,但此事件及以下要談的全螢幕的問題有作業系統必須是XP或以上的限制,因我是WIn2K沒法測試,你自己做看看
'
'
'
.Controls.play
If .playState = 3 Then .fullScreen = True '加這行上去