userform mediaplayer çalıştırma

[bilisim2010]

merhaba ben userform30 da mediaplayer başlatıyorum initialize ile ancak bunu bir süre sonra userformun otomotik kapanmasını istiyorum ama mediplayerin videosunu gösterecek.

Private Sub UserForm_activate()
Dim sure
Me.Repaint
sure = Timer + 10
Do While Timer < sure
Loop
Me.Hide
End Sub

bu istediğim işlemi yapıyor ama mediaplayer çalışmıyor?

 

[md3m1ray]

dener misin

Private Sub UserForm_Activate()
Dim sure As Single
Me.Repaint

sure = Timer + 10
Do While Timer < sure
DoEvents
Loop

Me.Hide
End Sub

veya

Private Sub UserForm_Activate()
Dim sure As Single
Me.Repaint

MediaPlayer1.URL = "video.mp4"
MediaPlayer1.Controls.Play

sure = Timer + 10
Do While Timer < sure
DoEvents
Loop

Me.Hide
End Sub

 

[bilisim2010]

dener misin

Private Sub UserForm_Activate()
Dim sure As Single
Me.Repaint

sure = Timer + 10
Do While Timer < sure
DoEvents
Loop

Me.Hide
End Sub

veya

Private Sub UserForm_Activate()
Dim sure As Single
Me.Repaint

MediaPlayer1.URL = "video.mp4"
MediaPlayer1.Controls.Play

sure = Timer + 10
Do While Timer < sure
DoEvents
Loop

Me.Hide
End Sub

çok teşekkür ederim hocam peki video bitiminde form kapansına ne yazmalıyız?

 

[md3m1ray]

boyle ayarlayip dener misin

Private Sub MediaPlayer1_PlayStateChange(NewState As Long)
    If NewState = 8 Then
        Unload Me
    End If
End Sub

 

[md3m1ray]

v'deoyu yukleyip url kismina o sunucu veya nerden cekecekseniz onun url sini yazinca calismasi gerekir

drive denenebilir
MediaPlayer1.URL = "https://drive.google.com/uc?id=dosya_id" gibi

 

[bilisim2010]

v'deoyu yukleyip url kismina o sunucu veya nerden cekecekseniz onun url sini yazinca calismasi gerekir

drive denenebilir
MediaPlayer1.URL = "https://drive.google.com/uc?id=dosya_id" gibi

drive paylaşım linkini yaptım olmadı çalışmadı

 

[md3m1ray]

direk link degilde benim yazdigim gibi denedinizmi id= kismindan sonra id yazarak

 

[bilisim2010]

direk link degilde benim yazdigim gibi denedinizmi id= kismindan sonra id yazarak

tamamdır sizin linkin arkasına google drive paylaşım linkini koyunca geldi teşekkürler.

 

[bilisim2010]

boyle ayarlayip dener misin

Private Sub MediaPlayer1_PlayStateChange(NewState As Long)
    If NewState = 8 Then
        Unload Me
    End If
End Sub

hocam bu kodu yazınca Private Sub MediaPlayer1_PlayStateChange(NewState As Long u gösterek bir hata veriyor decleration procodure yazıyor

 

[md3m1ray]

formda Initialize de tanimli mi mediaplayer bilgileri

MediaPlayer1.URL = "URLniz"
MediaPlayer1.Controls.Play

gibi

 

[bilisim2010]

formda Initialize de tanimli mi mediaplayer bilgileri

MediaPlayer1.URL = "URLniz"
MediaPlayer1.Controls.Play

gibi

teşekkürler bunuda çözdük. hocam son olarak userform a mediaplayer ekledikten sonra excel ilk açılışta activex uyarısı veriyor bu uyarıyı nasıl kapatabiliriz?

 

[md3m1ray]

dosya guvenligiyle ilgili oldugunu dusunuyorum dosyaya guven dedikten sonra gelmeyecektir

dosyayi acmadan sag tiklayip ozelliklerden engeli kaldir diyebili ve deneyebilirsiniz (kaynagini ve icerigini bilmediginiz dosyalarda yapmayin)

 

[Zeki Gürsoy]

teşekkürler bunuda çözdük. hocam son olarak userform a mediaplayer ekledikten sonra excel ilk açılışta activex uyarısı veriyor bu uyarıyı nasıl kapatabiliriz?

Bağlantıdaki kodu bir defaya mahsus çalıştırın...

https://www.excel.web.tr/threads/listboxa-alternatif-olarak-spreadsheet-nesnesi-uygulamasi.15136/post-82874

.

 

[bilisim2010]

Bağlantıdaki kodu bir defaya mahsus çalıştırın...

https://www.excel.web.tr/threads/listboxa-alternatif-olarak-spreadsheet-nesnesi-uygulamasi.15136/post-82874

.

çok teşekkür ederim çalıştı.