المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : محتارة


دااانه
22-08-2004, 12:52 AM
السلام عليكم

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

وكيفية عملها في برنامج الفيجوال بيسك
Xacker
02-09-2004, 04:32 AM
بالنسبة للصوت فذلك تبعا لنوع الملف الذي تريدين ربطه
الفيديو والفلاش يمكن استخدام ادوات تاتي مع برنامج الفيجوال لعمل ذلك

راجعي الرابط
http://www.geocities.com/nanosoftegypt/
Xacker
02-09-2004, 04:34 AM
او اختي يمكنك إستخدام هذه الدالة فى موديول


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"
2501
08-09-2004, 04:35 AM
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