http://bilgiteknoloji.net/access/access0...hanesi.asp
adresinde anlatılan media player çalıştırmak istiyorum ama yapamadım
örneğime bakabilirmisiniz
teşekkürler
yapmaya çalıştığım şey
media player Access den bağımsız çalışsın
access olayı başlatsın
access kapanmakla media player kapanmasın
shell le olacaksa öyle olur
yani Access den müzik dosyasının adresini alsın
bu adrese göre media playeri başlatsın
onun için formda media player olmasını istemiyorum
herhangi bir exe li programı çalıştırıyor gibi olacak
ama adres bilgisini acessden alacak
teşekkürler
şu adreste
http://www.dreamincode.net/forums/topic/...ile-error/
şöyle bir kod var
acaba faydası olur mu
Kod:
Private Sub watchNow_Click(ByVal sender As Object, ByVal e As EventArgs)
'get the position of the selected node
Dim i = movieTreeView.SelectedNode.Index
'get the specific directory
Dim tempMoviePath = directoryName(i)
'add extension
'Dim MoviePathAVI = String.Concat("""" + tempMoviePath, ".avi" + """")
Dim MoviePathVTS As String = String.Concat("""" + tempMoviePath, " \VIDEO_TS\VTS_01_1.VOB" + """")
Dim openMediaPlayer As String
openMediaPlayer = "C:\Program Files\Windows Media Player\wmplayer.exe"
' Dim video1 = """F:\Movies\DvD\Angels and Deamons\VIDEO_TS\VTS_01_1.VOB"""
Try
Shell(openMediaPlayer & " " & MoviePathVTS, AppWinStyle.MaximizedFocus)
Catch ex As Exception
'Do Nothing
End Try
End Sub