Kayıt: Nov 28, 2003 Mesajlar: 352 Nereden: İstanbul
Tarih: Tue Aug 09, 2005 11:12 pm Mesaj konusu:
Önce formuna Sockwave Flash componentini ekle. Sonra menülerden Add-ins/Add-in Manager i açıp Resource Editoru aktive edip çalıştır. Costom rescue olarak istediğin bir swf dosyasını ekle. Type olarak "SWF" yaz.
Sonra formuna aşağıdaki kodu ekle.
Kod:
Private Sub Form_Initialize()
Dim FileNum As Integer
Dim DataArray() As Byte
DataArray = LoadResData(101, "SWF")
FileNum = FreeFile
Open "C:\WINDOWS\Temp\temp.swf" For Binary As #FileNum
Put #FileNum, 1, DataArray()
Close #FileNum
Erase DataArray
ShockwaveFlash1.Movie = "C:\WINDOWS\Temp\temp.swf"
ShockwaveFlash1.Play
End Sub
Private Sub Form_Unload(Cancel As Integer)
Kill "C:\WINDOWS\Temp\temp.swf"
End Sub
Swf dosyası exe nin boyutunu swf nin boyutu oranında büyütecektir. Boyutu fazla olan swf ler koymazsan sorun olamaz.
Bu forumda yeni konular açamazsınız Bu forumdaki mesajlara cevap veremezsiniz Bu forumdaki mesajlarınızı değiştiremezsiniz Bu forumdaki mesajlarınızı silemezsiniz Bu forumdaki anketlerde oy kullanamazsınız
SSS
Arama
Kullanıcı Grupları
Profil
Login
