محتارة

السلام عليكم

أريد معرفة كود الصوت والفيديو والفلاش

وكيفية عملها في برنامج الفيجوال بيسك

بالنسبة للصوت فذلك تبعا لنوع الملف الذي تريدين ربطه
الفيديو والفلاش يمكن استخدام ادوات تاتي مع برنامج الفيجوال لعمل ذلك

راجعي الرابط
http://www.geocities.com/nanosoftegypt/

او اختي يمكنك إستخدام هذه الدالة فى موديول

كود:

---

Public Sub LoadDataIntoFile(id As Integer, FileName As String)
        Dim myArray() As Byte
        Dim myFile As Long
        If Dir(FileName) = "" Then
                myArray = LoadResData(id, "CUSTOM")
                myFile = FreeFile
                Open FileName For Binary Access Write As #myFile
                Put #myFile, , myArray
                Close #myFile
        End If
End Sub

---

وهذا الكود داخل الفورم

كود:

---

        LoadDataIntoFile 101, App.Path & "\myfile.swf"
        swfAdn.Movie = App.Path & "\myfile.swf"
        swfAdn.Play
        Kill App.Path & "\myfile.swf"

---

i think she want sound and flash file format...not how to open/use them...

rtfm://www.google.com/advanced_search for wav file format...the best site i know is wotsit.org or something similer