[RaggiTech]

الآن مثال بسيط لكيفية التعامل مع Microsoft Multimedia Control 6.0
نضيف الأداة لصندوق الأدوات بنفس الطريقة السابقة ثم نضيف الأداة للنموذج Form بمسمى AxMMControl1 وأضف أيضا Button1 و TextBox1 و Timer1
الآن ضع الكود التالي :

كود :

[align=left]Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
'الصوت
AxMMControl1.FileName = (Application.StartupPath & "\Laheb.wav")
AxMMControl1.Command = "open"
AxMMControl1.Command = "prev"
AxMMControl1.Command = "play"

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'فورمات الصوت
TextBox1.Text = CStr(AxMMControl1.Position)
End Sub
End Class[/align]

وبشرح بسيط :
كود الزر لتشغيل ملف صوتي من المسار وتشغيل المؤقت الذي بدوره سيظهر الموضع الذي وصل إليه الصوت في TextBox1حاول تجربة البرنامج الآن F5
ولتوضيح استخدام Position أضف صورة PictureBox1 واجعلها مخفية Visible = Falseالان في كود التايمر أضف التالي :

كود :

[align=left]'اظهار الصورة بوقت صوتي معين
If Val(TextBox1.Text) > 16000 Then
PictureBox1.Visible = True
End If[/align]

وعندها ستظهر الصورة عندما يصل Position للقيمة المحددة هنا مثلا 16000
سأضيف نقطة بسيطة أخرى وهي الاستدلال على نهاية المقطع الصوتي وذلك من خلال StatusUpdate للاداةAxMMControl1 أضف الكود التالي :

كود :

[align=left]Private Sub AxMMControl1_StatusUpdate(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxMMControl1.StatusUpdate
If AxMMControl1.Position = AxMMControl1.Length Then
AxMMControl1.Command = "close"
MsgBox("انتهى المقطع")
End If
End Sub[/align]

وبذلك ننتهي من توضيح عملية استخدامنا M.M Control
حمل المشروع الثاني