السلام عليكم يا أخوانى امامى مشكلة وارجوا المساعدة

السلام عليكم ورحمة الله وبركاتة

بالنسبة لإعادة العزف أكتب الكود التالى فى الحدث Done لأداة العزف

ولاتنسى وضع اداة اختيار Check

If Check1.Value = 1 Then

MMControl1.Command = "Prev"

MMControl1.Command = "Play"

End If

وكود تعلية الصوت

Private Declare Function waveOutSetVolume Lib "Winmm.dll" (ByVal DevID As Integer, ByVal Vol As Long) As Long

Sub SetVol(Volume As Long)

Dim Vol&

Vol = CLng("&H" & Hex(Volume + 65536))

waveOutSetVolume 0, Vol

End Sub

Private Sub Command1_Click()

SetVol Text1.Text

End Sub

Private Sub Form_Load()

Text1.Text = "ضع قيمة عددية تنحصر ما بين 0 و 65536"

End Sub

وهو كود مأخوذ من بنك إياس للأكواد

shearer

shearer@naseej.com

اشكرك جداً أخى الحبيب shearer على ردك على وانا ان شاء الله هجرب الكود

والسلام عليكم .

السلام عليكم

ارجوا يا أخى العزيز ان تساعدنى وترسل لى المثال فى المشروع لانه لا يعمل معى

وارجوك اريد التحكم بالصوت باداة ال slider

واشكرك جدا

والسلام عليكم