28/09/2012, 15:23
accessman
ÇOK GÜZEL
ellerine sağlık
ne güzel bir kod
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