هذا ما أستطعت التوصل اليه اخي الفاضل
اذا لم تفهم الكود أخبرني
اذا لم تفهم الكود أخبرني
إقتباس :Public Class Form1
Dim Sound As New System.Media.SoundPlayer()
Dim obj As New DateTime()
Dim str As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
obj = MonthCalendar1.SelectionStart
str = obj.ToString()
TextBox1.Text = str
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Timer1.Start()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
OpenFileDialog1.Filter = "Wav|*.Wav"
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
TextBox2.Text = OpenFileDialog1.FileName
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If str = TextBox1.Text Then
Sound.SoundLocation = TextBox1.Text
Sound.Load()
Sound.Play()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Sound.Stop()
Timer1.Stop()
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class
