محتارة

[دااانه]

السلام عليكم

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

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

[Xacker]

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

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

[Xacker]

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

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]

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