bende aynen turkhacking e katılıyorum. daha az kodla daha çok iş yapılabilir. ... Saygılarımla...

ben bundan bişi anlamadım

O senin alıntı kodlar tam bi hammallık O kodlardan daha kısa kod ile sadece avi değil herşeyi oynatırsın. Bunu da öğrenmiş oldun manacak

Aynen, Bende Anlamadim

Kod: Avi Dosyası Çalmak-Oynatmak 'Projenize bir adet modül ekleyin 'Formunuza 2 adet buton ekleyin '1. buton dosyayı çalmaya başlar 'Avi gösterimi bitse bile memoryi hala meşgul ettiği için '2. butonla da memoryden sileriz 'Önce projeye modül ekleyin ve aşağıdakileri modüle kopyalayın: Declare Function mciSendString Lib "winmm. dll" Alias _ "mciSendStringA" As Long 'Aşağıdakileri de form'a kopyalayın: Private Sub Command1_Click Dim returnstring As String Dim FileName As String returnstring = Space(127) 'Dosya yerini kendiniz belirtin FileName = "c:\MyMovie. avi" erg = mciSendString("open " & Chr$(34) & FileName & _ Chr$(34) & " type avivideo alias video", returnstring, 127, 0) erg = mciSendString("set video time format ms", returnstring, 127, 0) erg = mciSendString("play video from 0", returnstring, 127, 0) End Sub Private Sub Command2_Click erg = mciSendString("close video", returnstring, 127, 0) End Sub alıntıdır...