+- 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ığı: Cvp: media player çalıştır (/konu-cvp-media-player-calistir.html)
Sayfalar:
1
2
Cvp: Cvp: media player çalıştır - accessman - 28/09/2012
ÇOK GÜZEL
ellerine sağlık
ne güzel bir kod
Kod:
Private Sub btn_film_seyret_Click()
Dim accesstrnet, filmin_adresi, tam_yol As String
accesstrnet = "c:\program files\Windows Media Player\wmplayer.exe "
filmin_adresi = CurrentProject.Path & "\Filmler\" & Me.filmin_adi
tam_yol = accesstrnet & filmin_adresi
If (Me.chk_tam_ekran = -1) Then
tam_yol = accesstrnet & filmin_adresi & " /fullscreen"
End If
Shell (tam_yol)
End Sub