AccessTr.neT
Video oynatma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Video oynatma (/konu-video-oynatma.html)

Sayfalar: 1 2

Cvp: Video oynatma - ozanakkaya - 05/12/2014 

Private Sub Liste4_Click()



Me.Metin6 = Application.CurrentProject.Path & "\" & Liste4.Column(0)

Set player = Me.WindowsMediaPlayer0.Object





WindowsMediaPlayer0.Width = 5670

WindowsMediaPlayer0.Height = 5670

player.settings.autoStart = True

player.url = Me.Metin6

End Sub

şeklinde deneyiniz. Bu kod ile genişlik ve yükseklik 10 cm. olarak belirlenir.

5670 değeri twip değeridir.
567 Twip = 1 cm., 

Cvp: Video oynatma - mr.mustafa - 05/12/2014

Cevabınız için teşekkürler. Programımda aşağıdaki şekilde uyguladım fakat hata uyarısı veriyor." Run-Time error 438. Object doesn't support this property or method."  Ayrıca oynayan videoyu tekrardan otomatik oynatma kodunuda belirtirseniz memnunolurum.


Private Sub HID_Click()





Forms![ÇALIŞMA EKRANI]![Metin26] = Dlookup ("[videoyol]", "VIDEOLAR", "[egzersizid]=" & Forms![ÇALIŞMA EKRANI]![EGZERSİZ alt formu kopya].Form![HID])

If IsNull(Forms![ÇALIŞMA EKRANI]![Metin26]) Then

Forms![ÇALIŞMA EKRANI]![WindowsMediaPlayer5].URL = ""

Else

Set player = Forms![ÇALIŞMA EKRANI]![WindowsMediaPlayer5].Object

player.Width = 5670

player.Height = 5670

player.settings.autoStart = True

player.settings.volume = 0

player.URL = Forms![ÇALIŞMA EKRANI]![Metin26]

End If


Cvp: Video oynatma - atoz112 - 05/12/2014

sayın mr.mustafa,

Alıntı:...Ayrıca oynayan videoyu tekrardan otomatik oynatma kodunu...

bu talebiniz için,aşağıdaki komut ifadesini 

Kod:
player.settings.autoStart = True
satırının bir altına dahil ederek;ilgili video görselinin tekrar çalışmasını sağlayabilirsiniz.

Kod:
player.settings.setMode "loop", True
.setMode
Aktif veya inaktif döngü modu veya rastgele modunu ayarlamak için kullanılır

loop
Döngü,tekrarlama anlamındadır.

bilgilerinize,iyi çalışmalar,saygılar.

Cvp: Video oynatma - ozanakkaya - 05/12/2014

Alıntı:Cevabınız için teşekkürler. Programımda aşağıdaki şekilde uyguladım fakat hata uyarısı veriyor." Run-Time error 438. Object doesn't support this property or method."  Ayrıca oynayan videoyu tekrardan otomatik oynatma kodunuda belirtirseniz memnunolurum.

1. mesajınızdaki örnekte activex denetiminin adı WindowsMediaPlayer0, 8. mesaja eklediğiniz kodda WindowsMediaPlayer5 yazıyor.

Ayrıca benim önceki mesajımda yazdığım kod 

WindowsMediaPlayer0.Width = 5670

iken siz son mesajınızda yazdığınız kod
player.Width = 5670

ikisi aynı değil.

Sonraki sorunuza atoz hoca cevap yazmış.

Cvp: Video oynatma - mr.mustafa - 05/12/2014

Yardımlarınız için çok teşekkürler. Sorunların hepsi halloldu. Çalışmalarınızda başarılar.