עבור לתוכן

הוספת מוזיקה / מנגינת רקע לפרויקט ב- VB

Featured Replies

פורסם

מישהו יודע האם וכיצד ניתן להוסיף מוזיקת רקע שתנוגן כאשר FORM שאני בוחר /מעלה רץ (=פועל)?

פורסם
  • מחבר


Private Sub btnPlay_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnPlay.Click
btnPlay.Enabled = False
Application.DoEvents()

Dim file_name As String = Application.StartupPath
file_name = file_name.Substring(0, file_name.Length - 3)
AxMediaPlayer1.AutoStart = False
AxMediaPlayer1.FileName = file_name & "Test.wav"
AxMediaPlayer1.Play()
End Sub

Private Sub AxMediaPlayer1_EndOfStream(ByVal sender As _
Object, ByVal e As _
AxMediaPlayer._MediaPlayerEvents_EndOfStreamEvent) _
Handles AxMediaPlayer1.EndOfStream
btnPlay.Enabled = True
End Sub

לפי הקוד הנ"ל :

האם אפשר לתת למשתמש לבחור את המוזיקה ? כיצד?

האם ניתן לבטל את הנגן של וינדוס מדיה פלייר כך שרק המוזיקה תושמע ולא יהיה ניתן לבצע פעולות על המוזיקה ?

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

דיונים חדשים