[ابو روضة]

(24-04-19, 07:06 PM)elgokr كتب :

(24-04-19, 05:57 PM)ابو روضة كتب :

شكرا لك أخى وأعتذر على أنى تعبتك أو ضايقتك

الشكر لله والحمد لله

والحمد لله على كل حال

بالعكس اخى ابو روضة

لا يوجد اى تعب او ما شبه لسمح الله

فيارب يبعد عنا هذا دائماً

بالعكس انا احب دائماً توصيل المعلومة من هدف العلم

قبل ان تكون مساعدة حتى تعم عليه بالفائدة

ولكي يمكنه من افادة غيره

اليوم نحن هنا ولا نعلم بقدر الحياه غداً

فكله عند الله وحده بعلم الغيب

تحياتى لك

وتمنياتى لك التوفيق

أطال  الله عمرك أخى وحسّن من العمل فعلك وأثابك بتعاونك هنا وإفادة الجميع  أجراً...
هذا الكود كاملاً لمن أراده

كود :

Public Class Form1
   Private NumRate As Double = 1
   Private Sub OpenToolStripButton_Click(sender As Object, e As EventArgs) Handles OpenToolStripButton.Click
       OpenFileDialog1.Title = "elgokr "
       OpenFileDialog1.ShowDialog()
       AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
   End Sub
   Private Async Sub PasteToolStripButton_Click(sender As Object, e As EventArgs) Handles PasteToolStripButton.Click
       Label1.Visible = True
       AxWindowsMediaPlayer1.settings.rate += 0.1
       NumRate += 0.1
       Label1.Text = "Playback Speed : " & NumRate & "x"
       Await Task.Delay(2000)
       Label1.Visible = False
   End Sub
   Private Async Sub HelpToolStripButton_Click(sender As Object, e As EventArgs) Handles HelpToolStripButton.Click
       Label1.Visible = True
       AxWindowsMediaPlayer1.settings.rate -= 0.1
       NumRate -= 0.1
       Label1.Text = "Playback Speed : " & NumRate & "x"
       Await Task.Delay(2000)
       Label1.Visible = False

   End Sub
End Class