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.,
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
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.
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ış.
Yardımlarınız için çok teşekkürler. Sorunların hepsi halloldu. Çalışmalarınızda başarılar.